| Subject: | Zero time from timetick |
Hi, I'm running the following script.
#!/usr/bin/perl
use Time::HiRes qw(gettimeofday sleep usleep time);
use Time::TimeTick;
my $bufferlen=32000;
print "time == " . Time::HiRes::time . "\n";
print "timeof day == " . Time::HiRes::gettimeofday . "\n";
my $qmgr = "HAQM1S";
timetick("Pre MQCONN");
timetick("Post MQCONN");
print "CONN: $Reason\n";
timetick("Postprint MQCONN");
exit 0;
and get output
time == 1116922027.70559
timeof day == 1116922027.70576
CONN:
0.0000 Timeticker for test.pl starting
0.0000 Pre MQCONN
0.0000 Post MQCONN
0.0000 Postprint MQCONN
0.0000 Timeticker for test.pl finishing.
Where do I go wrong? (I did a similar test over a period of 14 seconds and got the same 0 time.)
Environment is SUSE linux, on zSeries
Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
Built under linux
Compiled at Sep 27 2003 06:19:49
@INC:
/usr/lib/perl5/5.8.0/s390-linux-thread-multi
/usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/s390-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
.