X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=apps%2FCA.pl.in;h=f5e8e4a191ee26201ff179382e22cf99de637966;hp=fbba457646bb73d030d54d577f79c9296c0ecb6e;hb=ce3d25d3e5a7e82fd59fd30dff7acc39baed8b5e;hpb=e314c340736830a6fc0260cf72cc51ea0c227e9d

diff --git a/apps/CA.pl.in b/apps/CA.pl.in
index fbba457646..f5e8e4a191 100644
--- a/apps/CA.pl.in
+++ b/apps/CA.pl.in
@@ -120,9 +120,9 @@ if ($WHAT eq '-newcert' ) {
     close OUT;
     # ask user for existing CA certificate
     print "CA certificate filename (or enter to create)\n";
-    $FILE = <STDIN>;
-    $FILE = s|\R$|| if $FILE;
-    if ($FILE) {
+    $FILE = "" unless defined($FILE = <STDIN>);
+    $FILE =~ s{\R$}{};
+    if ($FILE ne "") {
         copy_pemfile($FILE,"${CATOP}/private/$CAKEY", "PRIVATE");
         copy_pemfile($FILE,"${CATOP}/$CACERT", "CERTIFICATE");
     } else {