Syntax terror.

p4raw-id: //depot/perl@19233

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index a462ff9..4c56b0f 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -651,7 +651,7 @@ sub UnicodeData_Txt()
                                     || $code == 0x2029;# 2029: PARAGRAPH SEP.
 
         $Cat{Blank}->$op($code) if $cat eq "Zs"
-                                || $code == 0x0009  # 0009: HORIZONTAL TAB;
+                                || $code == 0x0009; # 0009: HORIZONTAL TAB
 
         $Cat{Digit}->$op($code) if $cat eq "Nd";
         $Cat{Upper}->$op($code) if $cat eq "Lu";