marsadm: fix safe_touch

This commit is contained in:
Thomas Schoebel-Theuer 2020-11-13 11:11:44 +01:00 committed by Thomas Schoebel-Theuer
parent ef9c07b7d1
commit ee058015ee
1 changed files with 1 additions and 1 deletions

View File

@ -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);