Bug 122650 - Fix errors for mod_perl 2.0.8 / perl 5.18.1

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1835 6955db30-a419-402b-8a0d-67ecbb4d7f56

Bugzilla.pm

@@ -75,8 +75,8 @@ sub _die_error
     }
     else
     {
-        utf8::decode($_[0]);
         my $msg = $_[0];
+        utf8::decode($msg);
         $msg =~ s/\s*$//so;
         # We are not interested in getting "Software caused connection abort" errors
         # on each "Stop" click in the browser.

relogin.cgi

@@ -145,7 +145,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');