Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^2: localtime/strftime not behaving as expected

by sdetweil (Sexton)
on Feb 22, 2013 at 02:43 UTC ( [id://1020055]=note: print w/replies, xml ) Need Help??


in reply to Re: localtime/strftime not behaving as expected
in thread localtime/strftime not behaving as expected

Thx.. as far as I am aware I do not overlay or alias localtime() anywhere that would cause a cached value I have a statement as the second line of my app
open DEBUG, ">", "debug.txt"; print DEBUG "Begin: Debug " . strftime( '%m-%d-%Y %H:%M:%S', localtim +e() ) . "\n";

I have a statement before & after I unzip the help file.
and before/after I load my product reference files (this one I expect to be the trouble area. On windows it uses Find to get the individual lines in my product config files that matter. On my dev system it takes 2.4-2.5 seconds (timed with another language script wrapper)
my $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 have one just before I put up my wxPerl app window
if ($debug) { use POSIX 'strftime'; print DEBUG "Starting window loop " . strftime( '%m-%d-%Y %H:%M:%S +', localtime() ) . "\n"; } $app->MainLoop;
and I see this
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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1020055]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2024-04-24 11:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found