2 files changed, 1 insertions, 5 deletions
diff --git a/embed.h b/embed.h
index 813512abf3..a5bb315483 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 9e5c62b482..598ebcc0cd 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 {