path: root/mcon/U/perlpath.U
diff options
Diffstat (limited to 'mcon/U/perlpath.U')
1 files changed, 56 insertions, 0 deletions
diff --git a/mcon/U/perlpath.U b/mcon/U/perlpath.U
new file mode 100644
index 0000000..1c3637b
--- /dev/null
+++ b/mcon/U/perlpath.U
@@ -0,0 +1,56 @@
+?RCS: $Id: perlpath.U,v 1995/09/25 09:17:04 ram Exp $
+?RCS: Copyright (c) 1991-1993, Raphael Manfredi
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 3.0.
+?RCS: $Log: perlpath.U,v $
+?RCS: Revision 1995/09/25 09:17:04 ram
+?RCS: patch59: unit is now forced to the top of Configure, if possible
+?RCS: Revision 1995/01/11 15:33:53 ram
+?RCS: patch45: can now use Loc variables since path stripping is deferred
+?RCS: Revision 3.0 1993/08/18 12:09:32 ram
+?RCS: Baseline for dist 3.0 netwide release.
+?X: The purpose of this unit is to locate perl good enough to construct a #!
+?MAKE:perlpath: Getfile Oldconfig Loc perl
+?MAKE: -pick add $@ %<
+?S: This variable contains the eventual value of the PERLPATH symbol,
+?S: which contains the absolute location of the perl interpeter.
+?C: This symbol contains the absolute location of the perl interpeter.
+?H:#define PERLPATH "$perlpath" /**/
+: determine perl absolute location
+case "$perlpath" in
+ if test -f /usr/bin/perl; then
+ dflt=/usr/bin/perl
+ else
+ case "$perl" in
+ */*) dflt="$perl";;
+ *) dflt=/usr/bin/perl;;
+ esac
+ fi
+ ;;
+*) dflt="$perlpath"
+ ;;
+echo " "
+rp="Where is perl located on your system?"
+. ./getfile