Debugger prints lines to the remote port when it forks and openes a new port

[perl5.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 50da232..fea46df 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -253,6 +253,9 @@ sub write_protos {
        if ( $flags =~ /r/ ) {
            push @attrs, "__attribute__noreturn__";
        }
+       if ( $flags =~ /D/ ) {
+           push @attrs, "__attribute__deprecated__";
+       }
        if ( $is_malloc ) {
            push @attrs, "__attribute__malloc__";
        }
@@ -742,18 +745,6 @@ print $em <<'END';
 
 #endif /* PERL_GLOBAL_STRUCT */
 
-#ifdef PERL_POLLUTE            /* disabled by default in 5.6.0 */
-
-END
-
-for $sym (sort @extvars) {
-    print $em hide($sym,"PL_$sym");
-}
-
-print $em <<'END';
-
-#endif /* PERL_POLLUTE */
-
 /* ex: set ro: */
 END