diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-06 18:52:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-06 18:52:57 +0000 |
| commit | 11eeea96a679f7b20489fe2e2eab4958ef273d62 (patch) | |
| tree | 4ba2d59de4f92d4b786c77ec58b8d153f107be31 /lib/unicode | |
| parent | 11695a7329b411687637c00af24e82ec54980447 (diff) | |
| download | perl-11eeea96a679f7b20489fe2e2eab4958ef273d62.tar.gz | |
Todo update.
p4raw-id: //depot/cfgperl@3931
Diffstat (limited to 'lib/unicode')
| -rwxr-xr-x | lib/unicode/mktables.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL index 184e5ca87b..fcc8eac302 100755 --- a/lib/unicode/mktables.PL +++ b/lib/unicode/mktables.PL @@ -1,7 +1,5 @@ #!../../miniperl -# Create the equivalence mappings. - $UnicodeData = "UnicodeData-Latest.txt"; # Note: we try to keep filenames unique within first 8 chars. Using @@ -304,6 +302,8 @@ END $out; } +# Create the equivalence mappings. + open(UNICODEDATA, $UnicodeData) || die "$0: $UnicodeData: $!\n"; while (<UNICODEDATA>) { |