Use bio_err not stderr in apps.

[openssl.git] / apps / CA.pl.in

diff --git a/apps/CA.pl.in b/apps/CA.pl.in
index de5c0135f1626ea997ccdac7d6eca303dc98c15c..5c8cdd09f29f1a6862d0d9b241c95363ec036a26 100644 (file)
--- a/apps/CA.pl.in
+++ b/apps/CA.pl.in
@@ -121,7 +121,7 @@ if ($WHAT eq '-newcert' ) {
     # ask user for existing CA certificate
     print "CA certificate filename (or enter to create)\n";
     $FILE = <STDIN>;
-    chop $FILE;
+    chop $FILE if $FILE;
     if ($FILE) {
         copy_pemfile($FILE,"${CATOP}/private/$CAKEY", "PRIVATE");
         copy_pemfile($FILE,"${CATOP}/$CACERT", "CERTIFICATE");
@@ -161,7 +161,8 @@ if ($WHAT eq '-newcert' ) {
             . " -infiles tmp.pem") if $RET == 0;
     print "Signed certificate is in $NEWCERT\n" if $RET == 0;
 } elsif ($WHAT eq '-verify' ) {
-    my @files = @ARGV ? @ARGV : ( $NEWCVERT );
+    my @files = @ARGV ? @ARGV : ( $NEWCERT );
+    my $file;
     foreach $file (@files) {
         my $status = run("$VERIFY -CAfile ${CATOP}/$CACERT $file");
         $RET = $status if $status != 0;