diff options
| author | Frédéric Buclin <LpSolit@gmail.com> | 2010-09-07 00:55:44 +0200 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@gmail.com> | 2010-09-07 00:55:44 +0200 |
| commit | 6fc68f38d82b6bab1313ae320a53b577447c7e60 (patch) | |
| tree | 3cdfc3ada94eaee5763257e01954080cd0cd0881 /relogin.cgi | |
| parent | 70d2f4a0ec4f8cdfe63536b266c70a3d7ef37a6e (diff) | |
| download | bugs-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-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'); |