perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject svn commit: r411352 - /perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm
Date Sat, 03 Jun 2006 01:17:43 GMT
Author: randyk
Date: Fri Jun  2 18:17:43 2006
New Revision: 411352

URL: http://svn.apache.org/viewvc?rev=411352&view=rev
Log:
For the file to be tested, use the httpd.conf generated by testing, so that it has a ctime
that won't (usually) encounter a bug in Win32's stat() function for files that span across
DST season boundaries.

Modified:
    perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm

Modified: perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm?rev=411352&r1=411351&r2=411352&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm Fri Jun  2 18:17:43 2006
@@ -30,7 +30,11 @@
 
 sub test {
 
-    my $file = __FILE__;
+    # for the file to be tested, use the httpd.conf generated
+    # by testing, so that it has a ctime that won't (usually)
+    # encounter a bug in Win32's stat() function for files that
+    # span across DST season boundaries.
+    my $file = catfile Apache::Test::vars->{t_dir}, 'conf', 'httpd.conf';
 
     # 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()
@@ -44,8 +48,8 @@
     # instead.
     #
     if (WIN32) {
-        my $now = time;
-        utime $now, $now, $file;
+        #my $now = time;
+        #utime $now, $now, $file;
     }
 
     my $pool = APR::Pool->new();



Mime
View raw message