Author: randyk
Date: Sat May 21 14:34:14 2005
New Revision: 171257
URL: http://svn.apache.org/viewcvs?rev=171257&view=rev
Log:
use utime $now, $now, $file;, rather than utime undef, undef, $file;,
as on perl-5.8.0 on Win32 the latter causes an uninitialized value warning.
Modified:
perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm
Modified: perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm?rev=171257&r1=171256&r2=171257&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/finfo.pm Sat May 21 14:34:14 2005
@@ -34,8 +34,17 @@
# 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.
+ #
+ # With perl-5.8.0 on Win32, the syntax
+ # utime undef, undef, $file;
+ # causes an uninitialized warning to be emitted,
+ # so use the equivalent
+ # utime $now, $now, $file;
+ # instead.
+ #
if (WIN32) {
- utime undef, undef, $file;
+ my $now = time;
+ utime $now, $now, $file;
}
my $pool = APR::Pool->new();
