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...@apache.org on 2001/09/09 20:48:47 UTC
cvs commit: modperl/src/modules/perl URI.xs
dougm 01/09/09 11:48:47
Modified: . Changes
src/modules/perl URI.xs
Log:
fix potential segv in Apache::URI->rpath
Submitted by: Vyacheslav Zamyatin <sl...@w-m.ru>
Reviewed by: dougm
Revision Changes Path
1.621 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.620
retrieving revision 1.621
diff -u -r1.620 -r1.621
--- Changes 2001/08/26 18:29:55 1.620
+++ Changes 2001/09/09 18:48:47 1.621
@@ -10,6 +10,9 @@
=item 1.26_01-dev
+fix potential segv in Apache::URI->rpath
+[Vyacheslav Zamyatin <sl...@w-m.ru>]
+
require URI::URL to work with newer libwww-perl
allow overriding of container directive handlers using the func parameter
1.7 +5 -2 modperl/src/modules/perl/URI.xs
Index: URI.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/URI.xs,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- URI.xs 2000/04/10 14:07:07 1.6
+++ URI.xs 2001/09/09 18:48:47 1.7
@@ -91,8 +91,11 @@
if(set > 0)
RETVAL = newSVpv(uri->uri.path, set);
}
- else
- RETVAL = newSVpv(uri->uri.path, 0);
+ else {
+ if (uri->uri.path) {
+ RETVAL = newSVpv(uri->uri.path, 0);
+ }
+ }
OUTPUT:
RETVAL