diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2002-01-11 17:58:14 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-11 23:58:00 +0000 |
| commit | 0904bc86c896844c90e158fde0faac617014287e (patch) | |
| tree | 84c6a3d0b75289aeee10ab5cd3387e98b28cba51 /ext/Unicode/Normalize | |
| parent | 49551dd0a9997016c8e69fe5b2b44d63001e2508 (diff) | |
| download | perl-0904bc86c896844c90e158fde0faac617014287e.tar.gz | |
Shut down warnings in Normalize.c
Message-ID: <543058204.20020111165814@tesla.rcub.bg.ac.yu>
p4raw-id: //depot/perl@14199
Diffstat (limited to 'ext/Unicode/Normalize')
| -rw-r--r-- | ext/Unicode/Normalize/mkheader | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Unicode/Normalize/mkheader b/ext/Unicode/Normalize/mkheader index aa6a153bf1..7aef304794 100644 --- a/ext/Unicode/Normalize/mkheader +++ b/ext/Unicode/Normalize/mkheader @@ -239,7 +239,7 @@ EOF next if ! $val{ $p }{ $r }; printf "$type ${head}_%02x_%02x [256] = {\n", $p, $r; for(my $c = 0; $c < 256; $c++){ - print "\t", defined $val{$p}{$r}{$c} ? $val{$p}{$r}{$c} : $null; + print "\t", defined $val{$p}{$r}{$c} ? "($type)".$val{$p}{$r}{$c} : $null; print ',' if $c != 255; print "\n" if $c % 8 == 7; } |