From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 17 Feb 2003 09:06:44 +0000 (+0000)
Subject: Suppress empty #ifdef blocks in embed.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47e67c64769a7911dc3162f9a36c195bd4b4278c;p=p5sagit%2Fp5-mst-13.2.git

Suppress empty #ifdef blocks in embed.pl

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

diff --git a/embed.h b/embed.h
index 813512a..a5bb315 100644
--- a/embed.h
+++ b/embed.h
@@ -776,8 +776,6 @@
 #ifdef PERL_CORE
 #define peep			Perl_peep
 #endif
-#ifdef PERL_CORE
-#endif
 #if defined(USE_REENTRANT_API)
 #define reentrant_size		Perl_reentrant_size
 #define reentrant_init		Perl_reentrant_init
@@ -1004,8 +1002,6 @@
 #define sv_eq			Perl_sv_eq
 #define sv_free			Perl_sv_free
 #ifdef PERL_CORE
-#endif
-#ifdef PERL_CORE
 #define sv_free_arenas		Perl_sv_free_arenas
 #endif
 #define sv_gets			Perl_sv_gets
diff --git a/embed.pl b/embed.pl
index 9e5c62b..598ebcc 100755
--- a/embed.pl
+++ b/embed.pl
@@ -344,7 +344,7 @@ walk_table {
 		$ret .= hide($func,"Perl_$func");
 	    }
 	}
-         unless ($flags =~ /A/) {
+	if ($ret ne '' && $flags !~ /A/) {
 	    if ($flags =~ /E/) {
 		$ret = "#if defined(PERL_CORE) || defined(PERL_EXT)\n$ret#endif\n";
 	    } else {