提交 8846adbd 编写于 作者: O Olaf Johansson 提交者: Rich Salz

GH249: Fix bad regexp in arg parsing.

Signed-off-by: NRich Salz <rsalz@akamai.com>
Reviewed-by: NRichard Levitte <levitte@openssl.org>
上级 0baaff1a
...@@ -15,13 +15,13 @@ my $symlink_exists=eval {symlink("",""); 1}; ...@@ -15,13 +15,13 @@ my $symlink_exists=eval {symlink("",""); 1};
my $removelinks = 1; my $removelinks = 1;
## Parse flags. ## Parse flags.
while ( $ARGV[0] =~ '-.*' ) { while ( $ARGV[0] =~ /^-/ ) {
my $flag = shift @ARGV; my $flag = shift @ARGV;
last if ( $flag eq '--'); last if ( $flag eq '--');
if ( $flag =~ /-old/) { if ( $flag eq '-old') {
$x509hash = "-subject_hash_old"; $x509hash = "-subject_hash_old";
$crlhash = "-hash_old"; $crlhash = "-hash_old";
} elsif ( $flag =~ /-h/) { } elsif ( $flag eq '-h') {
help(); help();
} elsif ( $flag eq '-n' ) { } elsif ( $flag eq '-n' ) {
$removelinks = 0; $removelinks = 0;
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册