Bug 593881: Assignment to $[ has been deprecated in Perl 5.12.0

r/a=mkanat

diff --git a/relogin.cgi b/relogin.cgi
index 0e04b1bdc6b548ac6600ae77c9b496d476d4fdb7..028f4ddb11426f6c736300f972acd3a92e2acdd2 100755 (executable)
--- 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');