d1ace2a653
- Provide rc script - Fix ipv6 dependency - Various fixes PR: ports/95032 Submitted by: Janos Mohacsi <janos.mohacsi@bsd.hu>
46 lines
956 B
Perl
46 lines
956 B
Perl
|
|
$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
|
|
|