Steve Hay wrote:
>The simplest solution is probably just to "touch" the file first so that
>it is in the same DST season as the current time. The attached patch
>does this.
>
Oops. Here's the patch :)
- Steve
------------------------------------------------
This email has been scanned for viruses and content by the Radan Computational
Webshield Appliances.
Index: t/lib/TestAPRlib/finfo.pm
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/lib/TestAPRlib/finfo.pm,v
retrieving revision 1.5
diff -u -u -r1.5 finfo.pm
--- t/lib/TestAPRlib/finfo.pm 22 Sep 2004 01:29:30 -0000 1.5
+++ t/lib/TestAPRlib/finfo.pm 4 Nov 2004 12:16:53 -0000
@@ -30,6 +30,14 @@
sub test {
my $file = __FILE__;
+
+ # On Win32, touch the file to ensure it is in the same Daylight Saving
+ # Time season as the current time to workaround a bug in Win32's stat()
+ # which APR::Finfo allows for, otherwise the two disagree.
+ if (WIN32) {
+ utime undef, undef, $file;
+ }
+
my $pool = APR::Pool->new();
# populate the finfo struct first
my $finfo = APR::Finfo::stat($file, APR::FINFO_NORM, $pool);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
