Changeset 14900 in josm


Ignore:
Timestamp:
2019-03-18T18:31:07+01:00 (6 years ago)
Author:
stoecker
Message:

show unused ignores

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/scripts/TestHTTPS.pl

    r14871 r14900  
    1717    if($line =~ /\|\| TestHTTPS \|\| \{\{\{(.*)\}\}\} \|\|/)
    1818    {
    19       $known{$1}++;
     19      $known{$1} = 1;
    2020    }
    2121  }
    … …  
    9999  for my $k (sort keys %known)
    100100  {
    101     $t =~ s/(\Q$k\E)/~~$1~~/g;
     101    $known{$k}++ if($t =~ s/(\Q$k\E)/~~$1~~/g);
    102102  }
    103103  print OUTFILE $t;
    … …  
    158158  }
    159159}
     160
     161for my $k (sort keys %known)
     162{
     163  print "Unused ignores $k\n" if $known{$k} == 1;
     164}
Note: See TracChangeset for help on using the changeset viewer.