From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 4 Jan 2008 13:17:31 +0000 (+0000)
Subject: Upgrade to CGI.pm-3.33.  There are still differences between the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8d66bb32924c1d8ffdb21b759849941ba8ce619;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to CGI.pm-3.33.  There are still differences between the
core version and CPAN version, so, the version bump continues.

p4raw-id: //depot/perl@32826
---

diff --git a/lib/CGI.pm b/lib/CGI.pm
index b415bcf..8ac257a 100644
--- a/lib/CGI.pm
+++ b/lib/CGI.pm
@@ -19,7 +19,7 @@ use Carp 'croak';
 #   http://stein.cshl.org/WWW/software/CGI/
 
 $CGI::revision = '$Id: CGI.pm,v 1.240 2007/11/30 18:58:27 lstein Exp $';
-$CGI::VERSION='3.32_01';
+$CGI::VERSION='3.33_01';
 
 # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
 # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -2730,6 +2730,7 @@ sub url {
 
     $url .= $path         if $path_info and defined $path;
     $url .= "?$query_str" if $query     and $query_str ne '';
+    $url ||= '';
     $url =~ s/([^a-zA-Z0-9_.%;&?\/\\:+=~-])/sprintf("%%%02X",ord($1))/eg;
     return $url;
 }