diff options
author | 2010-09-07 00:55:44 +0200 | |
---|---|---|
committer | 2010-09-07 00:55:44 +0200 | |
commit | 6fc68f38d82b6bab1313ae320a53b577447c7e60 (patch) | |
tree | 3cdfc3ada94eaee5763257e01954080cd0cd0881 /relogin.cgi | |
parent | Bug 559549: Make checksetup.pl print out a "checksetup.pl complete" message (diff) | |
download | bugzilla-6fc68f38d82b6bab1313ae320a53b577447c7e60.tar.gz bugzilla-6fc68f38d82b6bab1313ae320a53b577447c7e60.tar.bz2 bugzilla-6fc68f38d82b6bab1313ae320a53b577447c7e60.zip |
Bug 593881: Assignment to $[ has been deprecated in Perl 5.12.0
r/a=mkanat
Diffstat (limited to 'relogin.cgi')
-rwxr-xr-x | relogin.cgi | 2 |
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'); |