For a job like this, you probably want to use Devel-NYTProf, Devel::DProf or Devel::Profile (the first tends to be preferred these days).

thanks will look at those.. this was the first gross pass.. I might be able to get a second out, but when the OS tool takes 10, there is no way to make that 1.

use Time::HiRes qw(gettimeofday tv_interval);
[..]
my  $t0 = [gettimeofday];
    my $resp = &long_running_funct();
    my $ttaken = tv_interval ($t0, [gettimeofday]);
[download]

so, what did I miss?

A demonstration that demonstrates the problem

$ perl -E " say scalar localtime;  sleep 2; say scalar localtime; "
Thu Feb 21 16:52:56 2013
Thu Feb 21 16:52:58 2013
[download]

As you can see, two seconds later is two seconds later, its two seconds later

Maybe you override localtime with another function which caches the value, who knows

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";
[download]


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";
    }
[download]

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;
[download]

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

As a supplement, reading this might be helpful. Regards, Karl

That talk is marked OUTDATED, try http://www.slideshare.net/Tim.Bunce/develnytprof-v4-at-oscon-201007

Mmh, points to same slide by Tim Bunce from July 2010. Regards, Karl

«The Crux of the Biscuit is the Apostrophe»