From: Frédéric Buclin <LpSolit@gmail.com>
Date: Mon, 6 Sep 2010 22:55:44 +0000 (+0200)
Subject: Bug 593881: Assignment to $[ has been deprecated in Perl 5.12.0
X-Git-Tag: bugzilla-4.1.1~290
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6fc68f38d82b6bab1313ae320a53b577447c7e60;p=thirdparty%2Fbugzilla.git

Bug 593881: Assignment to $[ has been deprecated in Perl 5.12.0
r/a=mkanat
---

diff --git a/relogin.cgi b/relogin.cgi
index 0e04b1bdc6..028f4ddb11 100755
--- a/relogin.cgi
+++ b/relogin.cgi
@@ -144,7 +144,7 @@ elsif ($action eq 'begin-sudo') {
 
     # If we have a reason passed in, keep it under 200 characters
     my $reason = $cgi->param('reason') || '';
-    $reason = substr($reason, $[, 200);
+    $reason = substr($reason, 0, 200);
     
     # Calculate the session expiry time (T + 6 hours)
     my $time_string = time2str('%a, %d-%b-%Y %T %Z', time + MAX_SUDO_TOKEN_AGE, 'GMT');