Index: trunk/scripts/TestHTTPS.pl
===================================================================
--- trunk/scripts/TestHTTPS.pl	(revision 14871)
+++ trunk/scripts/TestHTTPS.pl	(revision 14900)
@@ -17,5 +17,5 @@
     if($line =~ /\|\| TestHTTPS \|\| \{\{\{(.*)\}\}\} \|\|/)
     {
-      $known{$1}++;
+      $known{$1} = 1;
     }
   }
@@ -99,5 +99,5 @@
   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,2 +158,7 @@
   }
 }
+
+for my $k (sort keys %known)
+{
+  print "Unused ignores $k\n" if $known{$k} == 1;
+}