summaryrefslogtreecommitdiff
path: root/ext/Unicode
diff options
context:
space:
mode:
authorNikola Knezevic <indy@tesla.rcub.bg.ac.yu>2002-01-11 17:58:14 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2002-01-11 23:58:00 +0000
commit0904bc86c896844c90e158fde0faac617014287e (patch)
tree84c6a3d0b75289aeee10ab5cd3387e98b28cba51 /ext/Unicode
parent49551dd0a9997016c8e69fe5b2b44d63001e2508 (diff)
downloadperl-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')
-rw-r--r--ext/Unicode/Normalize/mkheader2
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;
}