tjh.dev
Clone of https://github.com/NixOS/nixpkgs.git (to stress-test knotserver)
1https://savannah.gnu.org/support/index.php?110521
2https://git.savannah.gnu.org/cgit/autoconf.git/patch/?id=3a9802d60156809c139e9b4620bf04917e143ee2
3--- a/lib/Autom4te/FileUtils.pm
4+++ b/lib/Autom4te/FileUtils.pm
5@@ -34,12 +34,12 @@ This perl module provides various general purpose file handling functions.
6
7 =cut
8
9-use 5.006;
10+use 5.008;
11 use strict;
12 use warnings FATAL => 'all';
13
14 use Exporter;
15-use File::stat;
16+use Time::HiRes qw(stat);
17 use IO::File;
18
19 use Autom4te::Channels;
20@@ -115,10 +115,11 @@ sub mtime ($)
21 return 0
22 if $file eq '-' || ! -f $file;
23
24- my $stat = stat ($file)
25+ my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
26+ $atime,$mtime,$ctime,$blksize,$blocks) = stat ($file)
27 or fatal "cannot stat $file: $!";
28
29- return $stat->mtime;
30+ return $mtime;
31 }
32
33
34--
35cgit v1.2.1
36