Disable PL_sawampersand

[perl5.git] / regen / embed.pl

diff --git a/regen/embed.pl b/regen/embed.pl
index 8f59f36..b46f615 100755 (executable)
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -441,7 +441,13 @@ END
 my $sym;
 
 for $sym (@intrp) {
+    if ($sym eq 'sawampersand') {
+       print $em "#ifndef PL_sawampersand\n";
+    }
     print $em multon($sym,'I','vTHX->');
+    if ($sym eq 'sawampersand') {
+       print $em "#endif\n";
+    }
 }
 
 print $em <<'END';