You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@locus.apache.org on 2000/05/23 20:15:47 UTC
cvs commit: modperl/src/modules/perl Apache.xs
dougm 00/05/23 11:15:47
Modified: . Changes
src/modules/perl Apache.xs
Log:
fix unescape_url_info() when url is undef or ""
Revision Changes Path
1.490 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.489
retrieving revision 1.490
diff -u -r1.489 -r1.490
--- Changes 2000/05/23 15:56:04 1.489
+++ Changes 2000/05/23 18:15:45 1.490
@@ -10,6 +10,9 @@
=item 1.24_01-dev
+fix unescape_url_info() when url is undef or "",
+thanks to Kenneth Lee for the spot
+
fix 1.24's Apache::Table->unset changes for win32
[Randy Kobes <ra...@theoryx5.uwinnipeg.ca>]
1.97 +4 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -r1.96 -r1.97
--- Apache.xs 2000/04/21 06:03:52 1.96
+++ Apache.xs 2000/05/23 18:15:46 1.97
@@ -669,6 +669,10 @@
register char * trans = url ;
char digit ;
+ if (!url || !*url) {
+ XSRETURN_UNDEF;
+ }
+
RETVAL = url;
while (*url != '\0') {