X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/f4c75eaf2adb5cd0db126c10aeb774ec66de9a6b..746ac9aa81dd638d35ef43b75cefaff4af7afd48:/tests/bison.in

diff --git a/tests/bison.in b/tests/bison.in
index 0f8e07c1..f004a571 100644
--- a/tests/bison.in
+++ b/tests/bison.in
@@ -2,20 +2,35 @@
 # @configure_input@
 # Wrapper around a non installed bison to make it work as an installed one.
 
+# Copyright (C) 2001-2012 Free Software Foundation, Inc.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
 abs_top_srcdir='@abs_top_srcdir@'
 abs_top_builddir='@abs_top_builddir@'
+: ${PERL='@PERL@'}
 
 # Use the shipped files, not those installed.
 BISON_PKGDATADIR=$abs_top_srcdir/data
 export BISON_PKGDATADIR
+
 $PREBISON "$abs_top_builddir/src/bison" ${1+"$@"}
 status=$?
 
 # As a special dark magic, if we are actually using this wrapper to
 # compile Bison's src/parse-gram.y, post-process the synclines to
 # avoid dependencies on the user's set up (srcdir vs. builddir).
-PERL=perl
-
 for i
 do
   case $i in
@@ -25,8 +40,8 @@ do
       # post-processes the synclines on y.tab.c itself.  Don't let it
       # do it.  Besides, it leaves "parse-gram.y" as the source,
       # dropping the src/ part.
-      perl -pi -e 's{"y\.tab\.}{"src/parse-gram.}g;'  \
-               -e 's{".*/(parse-gram\.y)"}{"src/$1"}g;'   \
+      $PERL -pi -e 's{"y\.tab\.}{"src/parse-gram.}g;'    \
+                -e 's{".*/(parse-gram\.y)"}{"src/$1"}g;' \
            y.tab.[ch]
     fi
     ;;