From: Ben Pfaff Date: Tue, 9 Feb 2016 04:47:10 +0000 (-0800) Subject: pintos: Avoid literal control character in Perl variable name. X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fd2a5afa946474ba0839de0e9da238dbaecbd6a5;p=pintos-anon pintos: Avoid literal control character in Perl variable name. Modern versions of Perl prefer a caret in variable names over literal control characters and issue a warning if the control character is used. This fixes the warning. --- diff --git a/src/utils/pintos b/src/utils/pintos index 1564216..2ebe642 100755 --- a/src/utils/pintos +++ b/src/utils/pintos @@ -912,7 +912,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);