Creation time makes sense for other file types also.
Signed-off-by: Dietmar Maurer <dietmar@proxmox.com>
use strict;
use warnings;
+use Fcntl ':mode';
use File::chdir;
use File::Path;
use File::Basename;
foreach my $fn (<$path/*>) {
- next if -d $fn;
+ my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+ $atime,$mtime,$ctime,$blksize,$blocks)
+ = stat($fn);
+
+ next if S_ISDIR($mode);
my $info;
};
}
- $info->{size} = -s $fn // 0;
+ $info->{size} = $size;
+ $info->{ctime} //= $ctime;
push @$res, $info;
}