require "ftp.pm";
BEGIN {
- if($] >= 5.007003) {
+ # sub second timestamping needs Time::HiRes
+ eval {
+ no warnings "all";
require Time::HiRes;
import Time::HiRes qw( gettimeofday );
}
#
sub logmsg {
my $now;
- if($] >= 5.007003) {
+ # sub second timestamping needs Time::HiRes
+ if($Time::HiRes::VERSION) {
my ($seconds, $usec) = gettimeofday();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($seconds);
BEGIN {
@INC=(@INC, $ENV{'srcdir'}, ".");
- # run time statistics needs perl 5.7 or newer
- if($] >= 5.007003) {
+ # run time statistics needs Time::HiRes
+ eval {
+ no warnings "all";
require Time::HiRes;
import Time::HiRes qw( time );
}
$keepoutfiles=1;
}
elsif($ARGV[0] eq "-r") {
- # run time statistics needs perl 5.7 or newer
- if($] >= 5.007003) {
+ # run time statistics needs Time::HiRes
+ if($Time::HiRes::VERSION) {
keys(%timeprepini) = 1000;
keys(%timesrvrini) = 1000;
keys(%timesrvrend) = 1000;
}
}
elsif($ARGV[0] eq "-rf") {
- # run time statistics needs perl 5.7 or newer
- if($] >= 5.007003) {
+ # run time statistics needs Time::HiRes
+ if($Time::HiRes::VERSION) {
keys(%timeprepini) = 1000;
keys(%timesrvrini) = 1000;
keys(%timesrvrend) = 1000;