diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-03-11 22:51:26 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-03-11 22:51:26 +0000 |
commit | 2ade63888e659bb60dd5fda64a79640b763ca351 (patch) | |
tree | 18bba21c6b066a95e3fa98cae03a594f80b701f2 /regen_perly.pl | |
parent | ca7a6974cf5d41db89dfbc604434bf0cecce35d5 (diff) | |
download | perl-2ade63888e659bb60dd5fda64a79640b763ca351.tar.gz |
Fix the last 2 perly.y specific parts of regen_perly.pl, and make
the regen_perly target call it for both perly.y and madly.y.
p4raw-id: //depot/perl@27479
Diffstat (limited to 'regen_perly.pl')
-rw-r--r-- | regen_perly.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen_perly.pl b/regen_perly.pl index 67f763f455..af92aa890c 100644 --- a/regen_perly.pl +++ b/regen_perly.pl @@ -114,7 +114,7 @@ while (<TMPH_FILE>) { print H_FILE "#endif /* PERL_CORE */\n"; $endcore_done = 1; } - s/"perlytmp.h"/"perly.h"/; + s/"$tmph_file"/"$h_file"/; print H_FILE $_; } close TMPH_FILE; @@ -150,7 +150,7 @@ sub extract { switch \s* \( \s* \w+ \s* \) \s* { \s* ( case \s* \d+ \s* : \s* - \#line [^\n]+"perly\.y" + \#line [^\n]+"\Q$y_file\E" .*? ) } |