GH249: Fix bad regexp in arg parsing.
Signed-off-by: Rich Salz <rsalz@akamai.com> Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
parent
0baaff1a76
commit
8846adbd36
1 changed files with 3 additions and 3 deletions
|
@ -15,13 +15,13 @@ my $symlink_exists=eval {symlink("",""); 1};
|
|||
my $removelinks = 1;
|
||||
|
||||
## Parse flags.
|
||||
while ( $ARGV[0] =~ '-.*' ) {
|
||||
while ( $ARGV[0] =~ /^-/ ) {
|
||||
my $flag = shift @ARGV;
|
||||
last if ( $flag eq '--');
|
||||
if ( $flag =~ /-old/) {
|
||||
if ( $flag eq '-old') {
|
||||
$x509hash = "-subject_hash_old";
|
||||
$crlhash = "-hash_old";
|
||||
} elsif ( $flag =~ /-h/) {
|
||||
} elsif ( $flag eq '-h') {
|
||||
help();
|
||||
} elsif ( $flag eq '-n' ) {
|
||||
$removelinks = 0;
|
||||
|
|
Loading…
Reference in a new issue