Remove SSL_OP_TLS_BLOCK_PADDING_BUG

[openssl.git] / tools / c_rehash.in

diff --git a/tools/c_rehash.in b/tools/c_rehash.in
index cd2cc39f271f6eb789dc97d8ef476d7d6a55eb18..b086ff9cf0d964bc5577a8e8a6401ea305c75152 100644 (file)
--- a/tools/c_rehash.in
+++ b/tools/c_rehash.in
@@ -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;
@@ -93,10 +93,10 @@ sub hash_dir {
        my %hashlist;
        print "Doing $_[0]\n";
        chdir $_[0];
+       opendir(DIR, ".");
+       my @flist = readdir(DIR);
+       closedir DIR;
        if ( $removelinks ) {
-               opendir(DIR, ".");
-               my @flist = readdir(DIR);
-               closedir DIR;
                # Delete any existing symbolic links
                foreach (grep {/^[\da-f]+\.r{0,1}\d+$/} @flist) {
                        if(-l $_) {