From: Ben Pfaff <blp@cs.stanford.edu>
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);