PL_ stuff for threads

p4raw-id: //depot/ansiperl@1534

1 files changed, 2 insertions, 3 deletions

diff --git a/embed.pl b/embed.pl
index ca489c5b2f..f685f66288 100755
--- a/embed.pl
+++ b/embed.pl
@@ -98,8 +98,7 @@ sub multon ($$$) {
 }
 sub multoff ($$) {
     my ($sym,$pre) = @_;
-#   hide("$pre$sym", "PL_$sym");
-    return '';
+    return hide("PL_$pre$sym", "PL_$sym");
 }
 
 unlink 'embed.h';
@@ -256,7 +255,7 @@ print EM <<'END';
 END
 
 for $sym (sort keys %globvar) {
-    print EM multon($sym,'G','Perl_Vars.');
+    print EM multon($sym,'G','PL_Vars.');
 }
 
 print EM <<'END';