open pipe to openssl commandline instead of writing into temp file.

1 files changed, 3 insertions, 6 deletions

diff --git a/lib/mk-ca-bundle.pl b/lib/mk-ca-bundle.pl
index 2463626be..4a70f715f 100755
--- a/lib/mk-ca-bundle.pl
+++ b/lib/mk-ca-bundle.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 # ***************************************************************************
 # *                                  _   _ ____  _
 # *  Project                     ___| | | |  _ \| |
@@ -66,7 +66,6 @@ if ($opt_i) {
 }
 
 my $crt = $ARGV[0] || 'ca-bundle.crt';
-my $tmp = 'mytmpfile.txt';
 my $txt = substr($url, rindex($url, '/') + 1);
 $txt =~ s/\?.*//;
 
@@ -164,10 +163,9 @@ while (<TXT>) {
     }
     close(CRT) or die "Couldn't close $crt: $!";
     if ($opt_t) {
-      open(TMP, ">$tmp") or die "Couldn't open $tmp: $!";
+      open(TMP, "|$openssl x509 -md5 -fingerprint -text -inform PEM >> $crt") or die "Couldn't open openssl pipe: $!";
       print TMP $pem;
-      close(TMP) or die "Couldn't close $tmp: $!";
-      system("$openssl x509 -md5 -fingerprint -text -in $tmp -inform PEM >> $crt");
+      close(TMP) or die "Couldn't close openssl pipe: $!";
     }
     print "Parsing: $caname\n" if ($opt_v);
     $certnum ++;
@@ -175,7 +173,6 @@ while (<TXT>) {
 }
 close(TXT) or die "Couldn't close $txt: $!";
 unlink $txt if ($opt_u);
-unlink $tmp;
 print "Done ($certnum CA certs processed).\n" if (!$opt_q);
 
 exit;