diff options
author | Viktor Dukhovni <openssl-users@dukhovni.org> | 2016-02-13 02:53:13 -0500 |
---|---|---|
committer | Viktor Dukhovni <openssl-users@dukhovni.org> | 2016-02-13 02:54:48 -0500 |
commit | ce3d25d3e5a7e82fd59fd30dff7acc39baed8b5e (patch) | |
tree | fe3f497a9aaaf49078391eae17a74d7fe6be97a6 /apps/CA.pl.in | |
parent | e314c340736830a6fc0260cf72cc51ea0c227e9d (diff) |
Fix some issues near recent chomp changes.
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'apps/CA.pl.in')
-rw-r--r-- | apps/CA.pl.in | 6 |
1 files changed, 3 insertions, 3 deletions
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 { |