| From e194b3c7e00429612a9d40e78ea571687fd25b91 Mon Sep 17 00:00:00 2001 |
| From: =?UTF-8?q?Andreas=20K=2E=20H=C3=BCttel?= <dilfridge@gentoo.org> |
| Date: Sun, 1 Aug 2021 19:07:48 +0200 |
| Subject: [PATCH] Use stat from Time::HiRes (instead of File::stat) |
| MIME-Version: 1.0 |
| Content-Type: text/plain; charset=UTF-8 |
| Content-Transfer-Encoding: 8bit |
| |
| Signed-off-by: Andreas K. HΓΌttel <dilfridge@gentoo.org> |
| --- |
| lib/Autom4te/FileUtils.pm | 9 +++++---- |
| 1 file changed, 5 insertions(+), 4 deletions(-) |
| |
| diff --git a/lib/Autom4te/FileUtils.pm b/lib/Autom4te/FileUtils.pm |
| index a182031b..27a5fd91 100644 |
| --- a/lib/Autom4te/FileUtils.pm |
| +++ b/lib/Autom4te/FileUtils.pm |
| @@ -34,12 +34,12 @@ This perl module provides various general purpose file handling functions. |
| |
| =cut |
| |
| -use 5.006; |
| +use 5.008; |
| use strict; |
| use warnings FATAL => 'all'; |
| |
| use Exporter; |
| -use File::stat; |
| +use Time::HiRes qw(stat); |
| use IO::File; |
| |
| use Autom4te::Channels; |
| @@ -115,10 +115,11 @@ sub mtime ($) |
| return 0 |
| if $file eq '-' || ! -f $file; |
| |
| - my $stat = stat ($file) |
| + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, |
| + $atime,$mtime,$ctime,$blksize,$blocks) = stat ($file) |
| or fatal "cannot stat $file: $!"; |
| |
| - return $stat->mtime; |
| + return $mtime; |
| } |
| |
| |
| -- |
| 2.31.1 |
| |