Merge pull request #29 from libwww-perl/update-mk-ca-bundle

Update mk-ca-bundle.pl script
libwww-perl · Jun 30, 2024 · 5e35b55 · 5e35b55
2 parents 15a007c + 8e55853
commit 5e35b55
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/maint/mk-ca-bundle.pl b/maint/mk-ca-bundle.pl
@@ -136,8 +136,6 @@
   $url = $opt_d;
 }
 
-my $curl = `curl -V`;
-
 if ($opt_i) {
   print ("=" x 78 . "\n");
   print "Script Version                   : $version\n";
@@ -314,6 +312,7 @@ (%)
 
   # If we have an HTTPS URL then use curl
   if($url =~ /^https:\/\//i) {
+    my $curl = `curl -V`;
     if($curl) {
       if($curl =~ /^Protocols:.* https( |$)/m) {
         report "Get certdata with curl!";