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
@ -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;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user