From 6fc68f38d82b6bab1313ae320a53b577447c7e60 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Buclin?= <LpSolit@gmail.com>
Date: Tue, 7 Sep 2010 00:55:44 +0200
Subject: Bug 593881: Assignment to $[ has been deprecated in Perl 5.12.0
 r/a=mkanat

---
 relogin.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'relogin.cgi')

diff --git a/relogin.cgi b/relogin.cgi
index 0e04b1bdc..028f4ddb1 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');
-- 
cgit v1.2.1