Changes to perlfaq8 "How do I find out if I'm running interactively

[p5sagit/p5-mst-13.2.git] / regen_perly.pl

diff --git a/regen_perly.pl b/regen_perly.pl
index 67f763f..af92aa8 100644 (file)
--- 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"
            .*?
        )
        }