--- AnyEvent/util/gen_uts46data	2011/02/02 11:27:50	1.4
+++ AnyEvent/util/gen_uts46data	2011/02/02 13:00:32	1.5
@@ -44,7 +44,7 @@
          $imap .= "\x00" . chr . $map
             for $r1 .. $r2 || $r1;
       }
-      when ("valid") {
+      when (/^(?:valid)$/) {
          (vec $valid, $_, 1) = 1
             for $r1 .. $r2 || $r1;
       }