Changeset 14900 in josm

Timestamp:

2019-03-18T18:31:07+01:00 (5 years ago)

Author:

stoecker

Message:

show unused ignores

File:

• trunk/scripts/TestHTTPS.pl (modified) (3 diffs)

trunk/scripts/TestHTTPS.pl

@@ -17 +17 @@
     if($line =~ /\|\| TestHTTPS \|\| \{\{\{(.*)\}\}\} \|\|/)
     {
-      $known{$1}++;
+      $known{$1} = 1;
     }
   }
@@ -99 +99 @@
   for my $k (sort keys %known)
   {
-    $t =~ s/(\Q$k\E)/~~$1~~/g;
+    $known{$k}++ if($t =~ s/(\Q$k\E)/~~$1~~/g);
   }
   print OUTFILE $t;
@@ -158 +158 @@
   }
 }
+
+for my $k (sort keys %known)
+{
+  print "Unused ignores $k\n" if $known{$k} == 1;
+}