#
# regen_perly.pl, DAPM 12-Feb-04
#
-# Copyright (c) 2004 Larry Wall
+# Copyright (c) 2004, 2005 Larry Wall
#
# Given an input file perly.y, run bison on it and produce
# the following output files:
# the test below to allow that version too. DAPM Feb 04.
my $version = `$bison -V`;
-unless ($version =~ /\b1\.875\b/) { die <<EOF; }
+unless ($version =~ /\b(1\.875[a-z]?|2\.[01])\b/) { die <<EOF; }
-You have the wrong version of bison in your path; currently 1.875 is
-required. Try installing
- http://ftp.gnu.org/gnu/bison/bison-1.875.tar.bz2
+You have the wrong version of bison in your path; currently 1.875
+2.0 or 2.1 is required. Try installing
+ http://ftp.gnu.org/gnu/bison/bison-2.1.tar.gz
or similar. Your bison identifies itself as:
$version
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;
switch \s* \( \s* \w+ \s* \) \s* { \s*
(
case \s* \d+ \s* : \s*
- \#line [^\n]+"perly\.y"
+ \#line [^\n]+"\Q$y_file\E"
.*?
)
}
return $actlines. "\n", $tablines. "\n";
}
-
-
-
-
sub my_system {
system(@_);
if ($? == -1) {