This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
49551dd
)
Shut down warnings in Normalize.c
author
Nikola Knezevic
<indy@tesla.rcub.bg.ac.yu>
Fri, 11 Jan 2002 16:58:14 +0000
(17:58 +0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 11 Jan 2002 23:58:00 +0000
(23:58 +0000)
Message-ID: <
543058204
.
20020111165814
@tesla.rcub.bg.ac.yu>
p4raw-id: //depot/perl@14199
ext/Unicode/Normalize/mkheader
patch
|
blob
|
blame
|
history
diff --git
a/ext/Unicode/Normalize/mkheader
b/ext/Unicode/Normalize/mkheader
index
aa6a153
..
7aef304
100644
(file)
--- 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;
}