perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r164908 - in /perl/Apache-Test/trunk: Changes lib/Apache/TestRequest.pm
Date Tue, 26 Apr 2005 23:08:51 GMT
Author: stas
Date: Tue Apr 26 16:08:51 2005
New Revision: 164908

URL: http://svn.apache.org/viewcvs?rev=164908&view=rev
Log:
Fix Apache::TestRequest::module2url to allow passing '' as a URI

Modified:
    perl/Apache-Test/trunk/Changes
    perl/Apache-Test/trunk/lib/Apache/TestRequest.pm

Modified: perl/Apache-Test/trunk/Changes
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/Changes?rev=164908&r1=164907&r2=164908&view=diff
==============================================================================
--- perl/Apache-Test/trunk/Changes (original)
+++ perl/Apache-Test/trunk/Changes Tue Apr 26 16:08:51 2005
@@ -8,6 +8,9 @@
 
 =item 1.23-dev
 
+Fix Apache::TestRequest::module2url to allow passing '' as a URI
+path. [Stas]
+
 tweaks to Apache::TestClient to better deal with corrupted responses
 when LWP is not available. [Stas]
 

Modified: perl/Apache-Test/trunk/lib/Apache/TestRequest.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/TestRequest.pm?rev=164908&r1=164907&r2=164908&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/TestRequest.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/TestRequest.pm Tue Apr 26 16:08:51 2005
@@ -111,7 +111,7 @@
     my $module   = shift;
     my $opt      = shift || {};
     my $scheme   = $opt->{scheme} || 'http';
-    my $path     = $opt->{path}   || module2path($module);
+    my $path     = exists $opt->{path} ? $opt->{path} : module2path($module);
 
     module($module);
 



Mime
View raw message