From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 19 Feb 2007 18:23:51 +0000 (+0000)
Subject: Revert change #28980 per Jarkko's suggestion
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e5928301057155786b1e13b4cc0efad5ef9b27f;p=p5sagit%2Fp5-mst-13.2.git

Revert change #28980 per Jarkko's suggestion
(it was actually breaking g++ builds)
p4raw-link: @28980 on //depot/perl: 6e8dae779caa61392088d43ba93888dc57f1df7e

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

diff --git a/ext/Encode/bin/enc2xs b/ext/Encode/bin/enc2xs
index 2179f61..95067c8 100644
--- a/ext/Encode/bin/enc2xs
+++ b/ext/Encode/bin/enc2xs
@@ -271,8 +271,6 @@ if ($doC)
 
     # push(@{$encoding{$name}},outstring(\*C,$e2u->{Cname}.'_def',$erep));
    }
-  my $cpp  = ($Config{d_cplusplus} || '') eq 'define';
-  my $ext_c = $cpp ? 'extern "C" ' : "";
   foreach my $enc (sort cmp_name keys %encoding)
    {
     # my ($e2u,$u2e,$rep,$min_el,$max_el,$rsym) = @{$encoding{$enc}};
@@ -284,9 +282,9 @@ if ($doC)
     $sym =~ s/\W+/_/g;
     my @info = ($e2u->{Cname},$u2e->{Cname},"${sym}_rep_character",$replen,
         $min_el,$max_el);
-    print C "${ext_c}static const U8 ${sym}_rep_character[] = \"$rep\";\n";
-    print C "${ext_c}static const char ${sym}_enc_name[] = \"$enc\";\n\n";
-    print C "${ext_c}const encode_t $sym = \n";
+    print C "static const U8 ${sym}_rep_character[] = \"$rep\";\n";
+    print C "static const char ${sym}_enc_name[] = \"$enc\";\n\n";
+    print C "const encode_t $sym = \n";
     # This is to make null encoding work -- dankogai
     for (my $i = (scalar @info) - 1;  $i >= 0; --$i){
     $info[$i] ||= 1;