diff options
Diffstat (limited to 'cpan/Encode/bin/enc2xs')
-rw-r--r-- | cpan/Encode/bin/enc2xs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/cpan/Encode/bin/enc2xs b/cpan/Encode/bin/enc2xs index 5e9f04a4a3..bed415e141 100644 --- a/cpan/Encode/bin/enc2xs +++ b/cpan/Encode/bin/enc2xs @@ -10,7 +10,7 @@ use warnings; use Getopt::Std; use Config; my @orig_ARGV = @ARGV; -our $VERSION = do { my @r = (q$Revision: 2.14 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 2.15 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # These may get re-ordered. # RAW is a do_now as inserted by &enter @@ -701,7 +701,12 @@ sub addstrings my $cpp = ($Config{d_cplusplus} || '') eq 'define'; my $var = $^O eq 'MacOS' || $cpp ? 'extern' : 'static'; my $const = $cpp ? '' : 'const'; - print $fh "$var $const encpage_t $name\[",scalar(@{$a->{'Entries'}}),"];\n"; + my $ccflags = $Config{ccflags}; + if (defined $Config{ccwarnflags}) { + $ccflags .= " " . $Config{ccwarnflags}; + } + my $count = $ccflags =~ /-Wc\+\+-compat/ ? '' : scalar(@{$a->{'Entries'}}); + print $fh "$var $const encpage_t $name\[$count];\n"; } $a->{'DoneStrings'} = 1; foreach my $b (@{$a->{'Entries'}}) |