chiark / gitweb /
Not needed with the new XSL setup.
authorColin Watson <cjwatson@chiark.greenend.org.uk>
Mon, 26 Aug 2002 14:18:39 +0000 (14:18 +0000)
committerColin Watson <cjwatson@chiark.greenend.org.uk>
Mon, 26 Aug 2002 14:18:39 +0000 (14:18 +0000)
check-characters.pl [deleted file]

diff --git a/check-characters.pl b/check-characters.pl
deleted file mode 100755 (executable)
index eed4859..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-#! /usr/bin/perl -w
-use diagnostics;
-use strict;
-
-local $/ = undef;
-my $file = <>;
-while ($file =~ /<A.HREF="(.)\.html#(.)([-a-z]*)(?<!-).*?">(.*?)<\/A>/gs)
-{
-       if ($1 ne $2 || "$2$3" ne lc $4)
-       {
-               my $name = $4;
-               $name =~ y/\n/ /;
-               print "$name\n";
-       }
-}