| Subject: | last_modified using wrong file test operator |
The last_modified method is not returning the correct value (confirm by
using the File::stat mtime method to compare).
The problem seems to be that the last_modified sub in File::Util.pm is
using the "last inode change" file test operator (-C) rather than the
"last modified" operator (-M).
Attached is a patch to fix this.
| Subject: | FileUtil_lastmod.patch |
--- File/Util.pm.old 2008-08-06 08:41:18.708475752 -0400
+++ File/Util.pm 2008-08-06 08:42:04.448796042 -0400
@@ -1115,7 +1115,7 @@
return undef unless -e $f;
- $^T - ((-C $f) * 60 * 60 * 24)
+ $^T - ((-M $f) * 60 * 60 * 24)
}