From ee058015ee12ad7ea8d44e1e13ce9026834f8978 Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Fri, 13 Nov 2020 11:11:44 +0100
Subject: [PATCH] marsadm: fix safe_touch

---
 userspace/marsadm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/userspace/marsadm b/userspace/marsadm
index 81099b8f..5ce78ae6 100755
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -152,7 +152,7 @@ sub safe_creat {
 }
 
 sub safe_touch {
-  my ($path, $stamp) = shift;
+  my ($path, $stamp) = @_;
   use IO::Handle;
   if (-l $path) {
     my $val = readlink($path);