summaryrefslogtreecommitdiff
path: root/regen_perly.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-03-11 22:51:26 +0000
committerNicholas Clark <nick@ccl4.org>2006-03-11 22:51:26 +0000
commit2ade63888e659bb60dd5fda64a79640b763ca351 (patch)
tree18bba21c6b066a95e3fa98cae03a594f80b701f2 /regen_perly.pl
parentca7a6974cf5d41db89dfbc604434bf0cecce35d5 (diff)
downloadperl-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.pl4
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"
.*?
)
}