From 503ce80a7707036875f3e9f7a58326f297a8b90d Mon Sep 17 00:00:00 2001 From: Vidar Westfelt Date: Thu, 22 Mar 2018 11:44:03 +0100 Subject: make pintos-script perl 5.26 compatible --- src/utils/pintos | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils/pintos b/src/utils/pintos index 546b152..e96bc22 100755 --- a/src/utils/pintos +++ b/src/utils/pintos @@ -867,7 +867,7 @@ sub get_load_average { # Calls setitimer to set a timeout, then execs what was passed to us. sub exec_setitimer { if (defined $timeout) { - if ($ ge 5.8.0) { + if ($^V ge 5.8.0) { eval " use Time::HiRes qw(setitimer ITIMER_VIRTUAL); setitimer (ITIMER_VIRTUAL, $timeout, 0); -- cgit v1.2.1