Hello all,
Here is a small patch that prevents crash in the following example.
$referer = 'http://some.host.com';
$uri = Apache;:URI->parse($req,$referer);
$page = $uri->rpath;
If parsed uri don't have path at all, it'll dump core in the last line.
--- URI.xs Mon Apr 10 18:07:07 2000
+++ /root/src/mod_perl-1.24/src/modules/perl/URI.xs Tue Aug 14 11:17:57
2001
@@ -92,7 +92,8 @@
RETVAL = newSVpv(uri->uri.path, set);
}
else
- RETVAL = newSVpv(uri->uri.path, 0);
+ if ( uri->uri.path )
+ RETVAL = newSVpv(uri->uri.path, 0);
OUTPUT:
RETVAL
--
See you in the Net,
Slawa