This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid warnings when $Config{d_cplusplus} is undefined.
authorNicholas Clark <nick@ccl4.org>
Fri, 15 Sep 2006 22:03:53 +0000 (22:03 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 15 Sep 2006 22:03:53 +0000 (22:03 +0000)
p4raw-id: //depot/perl@28849

ext/Encode/bin/enc2xs

index 8a85ca0..7665fa5 100644 (file)
@@ -689,7 +689,7 @@ sub addstrings
   }
  if ($a->{'Forward'})
   {
-   my $cpp = $Config{d_cplusplus} eq 'define';
+   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";
@@ -755,7 +755,7 @@ sub outbigstring
   }
 
   $strings = length $string_acc;
-  my $cpp = $Config{d_cplusplus} eq 'define';
+  my $cpp = ($Config{d_cplusplus} || '') eq 'define';
   my $var = $cpp ? '' : 'static';
   my $definition = "\n$var const U8 $name\[$strings] = { " .
     join(',',unpack "C*",$string_acc);
@@ -782,7 +782,7 @@ sub outtable
    my ($s,$e,$out,$t,$end,$l) = @$b;
    outtable($fh,$t,$bigname) unless $t->{'Done'};
   }
- my $cpp = $Config{d_cplusplus} eq 'define';
+ my $cpp = ($Config{d_cplusplus} || '') eq 'define';
  my $var = $cpp ? '' : 'static';
  my $const = $cpp ? '' : 'const';
  print $fh "\n$var $const encpage_t $name\[",