in reply to Re: localtime/strftime not behaving as expected
in thread localtime/strftime not behaving as expected
open DEBUG, ">", "debug.txt"; print DEBUG "Begin: Debug " . strftime( '%m-%d-%Y %H:%M:%S', localtim +e() ) . "\n";
and I have one just before I put up my wxPerl app windowmy $ok; use Archive::Zip; my $z = Archive::Zip->new(); eval { $ok = $z->read($HelpFile); }; if ( $ok == 0 ) { if ($debug) { print DEBUG "Start unzip help " . strftime( '%m-%d-%Y %H: +%M:%S', localtime() ) . "\n"; } # unzip the new copy of the scripts into the update folder mkdir './help'; $ok = $z->extractTree( 'help', 'help' ); if($debug) { print DEBUG "End unzip help " . strftime( '%m-%d-%Y %H: +%M:%S', localtime() ) . "\n"; } } undef $z; unlink($HelpFile); if ($debug) { print DEBUG "Begin: Populating product names." . strftime( '%m +-%d-%Y %H:%M:%S', localtime() ) ."\n"; } populateProductNames(); $products = [@products]; if ($debug) { print DEBUG "End: Populating product names." . strftime( '%m-% +d-%Y %H:%M:%S', localtime() ) ."\n"; }
and I see thisif ($debug) { use POSIX 'strftime'; print DEBUG "Starting window loop " . strftime( '%m-%d-%Y %H:%M:%S +', localtime() ) . "\n"; } $app->MainLoop;
Begin: Debug 02-21-2013 12:09:54 Start unzip help 02-21-2013 12:09:54 End unzip help 02-21-2013 12:09:54 Begin: Populating product names.02-21-2013 12:09:54 End: Populating product names.02-21-2013 12:09:54 Starting window loop 02-21-2013 12:09:54
|
|---|