aboutsummaryrefslogtreecommitdiffstats
path: root/relogin.cgi
diff options
context:
space:
mode:
authorFrédéric Buclin <LpSolit@gmail.com>2010-09-07 00:55:44 +0200
committerFrédéric Buclin <LpSolit@gmail.com>2010-09-07 00:55:44 +0200
commit6fc68f38d82b6bab1313ae320a53b577447c7e60 (patch)
tree3cdfc3ada94eaee5763257e01954080cd0cd0881 /relogin.cgi
parent70d2f4a0ec4f8cdfe63536b266c70a3d7ef37a6e (diff)
downloadbugs-6fc68f38d82b6bab1313ae320a53b577447c7e60.tar
bugs-6fc68f38d82b6bab1313ae320a53b577447c7e60.tar.gz
bugs-6fc68f38d82b6bab1313ae320a53b577447c7e60.tar.bz2
bugs-6fc68f38d82b6bab1313ae320a53b577447c7e60.tar.xz
bugs-6fc68f38d82b6bab1313ae320a53b577447c7e60.zip
Bug 593881: Assignment to $[ has been deprecated in Perl 5.12.0
r/a=mkanat
Diffstat (limited to 'relogin.cgi')
-rwxr-xr-xrelogin.cgi2
1 files changed, 1 insertions, 1 deletions
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');