blob: 4b4113a85cc1749ec6dc1698d88cba33706e7f84 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
$FreeBSD$
--- install.pl.orig
+++ install.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!%%PERL%% -I %%PREFIX%%/libexec/nfsen
#
#
# Copyright (c) 2004, SWITCH - Teleinformatikdienste fuer Lehre und Forschung
@@ -81,33 +81,7 @@
# Get Perl
sub GetPerl {
- my $whichperl;
- my $ans;
- $whichperl = FindCommand("perl");
- if ( defined $whichperl ) {
- print "Perl to use: [$whichperl] ";
- chomp($ans = <STDIN>);
- if ( length $ans ) {
- $whichperl = $ans;
- }
- } else {
- print "No Perl found in your PATH. Please specify where to find perl [] ";
- chomp($whichperl = <STDIN>);
- }
-
- while (1) {
- if ( -x $whichperl ) {
- my $err = system("$whichperl -e 'require 5.6.0;'") >> 8;
- last if $err == 0;
- print "Found errors while testing Perl\n";
- } else {
- print "No executable: '$whichperl'\n";
- }
- print "Perl to use: [] ";
- chomp($whichperl = <STDIN>);
- }
-
- return $whichperl;
+ return "%%PERL%%";
} # End of GetPerl
|
