Allow '\' as a path delimiter (bug 29064)

Patch Concept by <timeless@mac.com>
r= jake@acutex.net

diff --git a/CGI.pl b/CGI.pl
index 138e52414a262a2b2bb7679467e80c56a6b05471..efcf0c2ac132ee4d664987020fa665ba51f1898c 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -910,8 +910,8 @@ Content-type: text/html
         }
         if (!defined $nexturl || $nexturl eq "") {
            # Sets nexturl to be argv0, stripping everything up to and
-           # including the last slash.
-           $0 =~ m:[^/]*$:;
+           # including the last slash (or backslash on Windows).
+           $0 =~ m:[^/\\]*$:;
            $nexturl = $&;
         }
         my $method = "POST";