An implementation of change 29735 for blead (PL_curcop could be NULL)

[perl5.git] / regen_perly.pl

diff --git a/regen_perly.pl b/regen_perly.pl
index 378c5a3..fb01dbd 100644 (file)
--- a/regen_perly.pl
+++ b/regen_perly.pl
@@ -175,6 +175,11 @@ sub extract {
     # C<#line 188 "perlytmp.c"> gets picked up by make depend, so remove them.
     $actlines =~ s/^#line \d+ "\Q$tmpc_file\E".*$//gm;
 
+    # convert yyvsp[nnn] into ps[nnn].val
+
+    $actlines =~ s/yyvsp\[(.*?)\]/ps[$1].val/g
+       or die "Can't convert value stack name\n";
+
     return $actlines. "\n", $tablines. "\n";
 }