This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Shut down warnings in Normalize.c
authorNikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Fri, 11 Jan 2002 16:58:14 +0000 (17:58 +0100)
committerJarkko 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

index aa6a153..7aef304 100644 (file)
@@ -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;
       }