From 690839509f1ce985205824e8092d5893a2130ba6 Mon Sep 17 00:00:00 2001 From: "bbaetz%student.usyd.edu.au" <> Date: Wed, 3 Jul 2002 09:45:12 +0000 Subject: Bug 151871 - rewrite quoteUrls to fix major performance problems, and a few other misc bugs too. r=myk x2 --- CGI.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'CGI.pl') diff --git a/CGI.pl b/CGI.pl index b65c74a75..0b9935602 100644 --- a/CGI.pl +++ b/CGI.pl @@ -792,8 +792,8 @@ Content-type: text/html if (!defined $nexturl || $nexturl eq "") { # Sets nexturl to be argv0, stripping everything up to and # including the last slash (or backslash on Windows). - $0 =~ m:[^/\\]*$:; - $nexturl = $&; + $0 =~ m:([^/\\]*)$:; + $nexturl = $1; } my $method = "POST"; # We always want to use POST here, because we're submitting a password and don't -- cgit v1.2.3-24-g4f1b