From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Fri, 11 Jan 2002 16:58:14 +0000 (+0100)
Subject: Shut down warnings in Normalize.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0904bc86c896844c90e158fde0faac617014287e;p=p5sagit%2Fp5-mst-13.2.git

Shut down warnings in Normalize.c
Message-ID: <543058204.20020111165814@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@14199
---

diff --git a/ext/Unicode/Normalize/mkheader b/ext/Unicode/Normalize/mkheader
index aa6a153..7aef304 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;
       }