From 944921d3d5a3e81893b5456e3d606f9ee2b45ed9 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 26 Jul 2011 12:05:51 +0200
Subject: [PATCH] In makedef.pl, inline emit_symbol.

All emit_symbol() did was add to the hash of symbols to emit the list it was
passed.
---
 makedef.pl | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/makedef.pl b/makedef.pl
index a091c13..11fed4f 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -223,7 +223,7 @@ sub emit_symbols {
 	if ($define{MULTIPLICITY}) {
 	    $skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
 	}
-	emit_symbol($symbol) unless exists $skip{$skipsym};
+	++$export{$symbol} unless exists $skip{$skipsym};
     }
 }
 
@@ -743,7 +743,7 @@ sub readvar {
 
 if ($define{'PERL_GLOBAL_STRUCT'}) {
     ++$skip{$_} foreach readvar($perlvars_h);
-    emit_symbol('Perl_GetVars');
+    ++$export{Perl_GetVars};
     emit_symbols [qw(PL_Vars PL_VarsPtr)] unless $CCTYPE eq 'GCC';
 } else {
     ++$skip{$_} foreach qw(Perl_init_global_struct Perl_free_global_struct);
@@ -960,7 +960,7 @@ for my $syms (@syms) {
 	chomp($_);
 	my $symbol = ($syms =~ /var\.sym$/i ? "PL_" : "");
 	$symbol .= $_;
-	emit_symbol($symbol) unless exists $skip{$symbol};
+	++$export{$symbol} unless exists $skip{$symbol};
     }
     close(GLOBAL);
 }
@@ -987,8 +987,7 @@ else {
 
 sub try_symbol {
     my $symbol = shift;
-    return if exists $skip{$symbol};
-    emit_symbol($symbol);
+    ++$export{$symbol} unless $skip{$symbol};
 }
 
 # Oddities from PerlIO
@@ -1360,11 +1359,6 @@ if ($PLATFORM eq 'os2') {
 EOP
 }
 
-sub emit_symbol {
-    my $symbol = shift;
-    $export{$symbol} = 1;
-}
-
 sub output_symbol {
     my $symbol = shift;
     if ($PLATFORM =~ /^win(?:32|ce)$/) {
-- 
1.8.3.1