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();