bugfix in Apache::URI

[Vyacheslav Zamyatin]

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