perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject svn commit: r1215235 - /perl/Apache-Test/trunk/lib/Apache/TestRequest.pm
Date Fri, 16 Dec 2011 18:14:22 GMT
Author: gozer
Date: Fri Dec 16 18:14:21 2011
New Revision: 1215235

URL: http://svn.apache.org/viewvc?rev=1215235&view=rev
Log:
Make sure we do have LWP before checking its version. 

Avoids: "Use of uninitialized value in numeric ge (>=)" warnings


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

Modified: perl/Apache-Test/trunk/lib/Apache/TestRequest.pm
URL: http://svn.apache.org/viewvc/perl/Apache-Test/trunk/lib/Apache/TestRequest.pm?rev=1215235&r1=1215234&r2=1215235&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/TestRequest.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/TestRequest.pm Fri Dec 16 18:14:21 2011
@@ -161,7 +161,7 @@ sub user_agent {
 
     # in LWP 6, verify_hostname defaults to on, so SSL_ca_file
     # needs to be set accordingly
-    if ($LWP::VERSION >= 6.0 and not exists $args->{ssl_opts}->{SSL_ca_file}) {
+    if ($have_lwp and $LWP::VERSION >= 6.0 and not exists $args->{ssl_opts}->{SSL_ca_file})
{
         my $vars = Apache::Test::vars();
         my $cafile = "$vars->{sslca}/$vars->{sslcaorg}/certs/ca.crt";
         $args->{ssl_opts}->{SSL_ca_file} = $cafile;



Mime
View raw message