mirror of https://github.com/schoebel/mars
marsadm: fix safe_touch
This commit is contained in:
parent
ef9c07b7d1
commit
ee058015ee
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue