RepoMirrors/mars
1
0
Fork 0
mirror of https://github.com/schoebel/mars synced 2024-12-27 17:12:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

marsadm: workaround unimplemented AT_SYMLINK_NOFOLLOW and undef at utime()

Browse Source
This commit is contained in:
Thomas Schoebel-Theuer 2020-12-06 16:30:14 +01:00
parent 136dcae0ba
commit 601f378cd7
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
userspace/marsadm
View File

@ -153,12 +153,28 @@ sub safe_creat {
sub safe_touch {
my ($path, $stamp) = @_;
# Workaround for non-implemented undef parameter at utime()
# [should be implemented beyond perl 5.8.0 according to "man perlfunc",
# but seems to not work as documented.]
$stamp = time() unless defined($stamp);
use IO::Handle;
if (-l $path) {
my $val = readlink($path);
return 0 if $val eq ".deleted";
# Perl doesn't seem to support AT_SYMLINK_NOFOLLOW
my $opt = $stamp ? "-d \"\@$stamp\"" : "";
my $status = system("touch -h $opt \"$path\"");
# additional systemd-trigger when relevant
if ($path =~ m:/(primary|systemd):p) {
my $trig_path = "$PREMATCH/systemd-trigger";
unless ($trig_path =~ m:/userspace/:) {
utime($stamp, $stamp, $trig_path) || safe_creat($trig_path);
}
}
return $status;
}
return utime($stamp, $stamp, $path);
my $status = utime($stamp, $stamp, $path);
return $status;
}
sub link_exists {