perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From steve...@apache.org
Subject svn commit: r1565579 - /perl/modperl/branches/httpd24threading/t/response/TestDirective/perlloadmodule2.pm
Date Fri, 07 Feb 2014 08:37:01 GMT
Author: stevehay
Date: Fri Feb  7 08:37:01 2014
New Revision: 1565579

URL: http://svn.apache.org/r1565579
Log:
Fix t/directive/perlloadmodule2.t

The third test (for $url/subdir) was failing because the absence of an argument ($url?...)
caused a warning that $r->arg was undefined in perlloadmodule2.pm, and the "use warnings
FATAL => 'all';" line saw to it that the server returned 500/Internal Server Error in this
case.

Modified:
    perl/modperl/branches/httpd24threading/t/response/TestDirective/perlloadmodule2.pm

Modified: perl/modperl/branches/httpd24threading/t/response/TestDirective/perlloadmodule2.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24threading/t/response/TestDirective/perlloadmodule2.pm?rev=1565579&r1=1565578&r2=1565579&view=diff
==============================================================================
--- perl/modperl/branches/httpd24threading/t/response/TestDirective/perlloadmodule2.pm (original)
+++ perl/modperl/branches/httpd24threading/t/response/TestDirective/perlloadmodule2.pm Fri
Feb  7 08:37:01 2014
@@ -83,7 +83,7 @@ sub handler : method {
 
     my $s = $r->server;
 
-    if ($r->args eq 'srv') {
+    if (defined $r->args and $r->args eq 'srv') {
         my $srv_cfg = $self->get_config($s);
         $r->print("srv: @{ $srv_cfg->{MyMergeTest}||[] }");
     }



Mime
View raw message