scripts: time.pl: avoid hard Time::HiRes dependency

Use Time::HiRes when available and fallback to raw syscall interface
when not. If that fails too, simply report 0, 0 as real time.

Signed-off-by: Jo-Philipp Wich <jo@mein.io>
master
Jo-Philipp Wich 6 years ago
parent d3ddf6631e
commit a692e4e3de
  1. 31
      scripts/time.pl

@ -2,14 +2,37 @@
use strict; use strict;
use warnings; use warnings;
use Time::HiRes qw(gettimeofday); use Config;
if (@ARGV < 2) { if (@ARGV < 2) {
die "Usage: $0 <prefix> <command...>\n"; die "Usage: $0 <prefix> <command...>\n";
} }
sub gettime {
my ($sec, $usec);
eval {
require Time::HiRes;
($sec, $usec) = Time::HiRes::gettimeofday();
};
unless (defined($sec) && defined($usec)) {
my $tv_t = ($Config{'longsize'} == 8) ? 'qq' : 'll';
my $tv = pack $tv_t, 0, 0;
eval {
require 'syscall.ph';
syscall(SYS_gettimeofday(), $tv, 0);
};
($sec, $usec) = unpack $tv_t, $tv;
}
return ($sec, $usec);
}
my ($prefix, @cmd) = @ARGV; my ($prefix, @cmd) = @ARGV;
my ($sec, $msec) = gettimeofday(); my ($sec, $usec) = gettime();
my $pid = fork(); my $pid = fork();
if (!defined($pid)) { if (!defined($pid)) {
@ -28,12 +51,12 @@ else {
} }
my $exitcode = $? >> 8; my $exitcode = $? >> 8;
my ($sec2, $msec2) = gettimeofday(); my ($sec2, $usec2) = gettime();
my (undef, undef, $cuser, $csystem) = times(); my (undef, undef, $cuser, $csystem) = times();
printf STDERR "%s#%.2f#%.2f#%.2f\n", printf STDERR "%s#%.2f#%.2f#%.2f\n",
$prefix, $cuser, $csystem, $prefix, $cuser, $csystem,
($sec2 - $sec) + ($msec2 - $msec) / 1000000; ($sec2 - $sec) + ($usec2 - $usec) / 1000000;
$SIG{'INT'} = 'DEFAULT'; $SIG{'INT'} = 'DEFAULT';
$SIG{'QUIT'} = 'DEFAULT'; $SIG{'QUIT'} = 'DEFAULT';

Loading…
Cancel
Save