Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 59152 invoked by uid 500); 9 Sep 2001 18:52:27 -0000 Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 59141 invoked from network); 9 Sep 2001 18:52:27 -0000 Date: 9 Sep 2001 18:48:47 -0000 Message-ID: <20010909184847.56198.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-cvs@apache.org Subject: cvs commit: modperl/src/modules/perl URI.xs X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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 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 ] + 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