diff options
Diffstat (limited to 'net-mgmt/nfsen/files/patch-install.pl')
| -rw-r--r-- | net-mgmt/nfsen/files/patch-install.pl | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/net-mgmt/nfsen/files/patch-install.pl b/net-mgmt/nfsen/files/patch-install.pl new file mode 100644 index 000000000000..6aabeb302540 --- /dev/null +++ b/net-mgmt/nfsen/files/patch-install.pl @@ -0,0 +1,40 @@ + +$FreeBSD$ + +--- install.pl.orig ++++ install.pl +@@ -56,33 +56,7 @@ + # Get Perl + sub GetPerl { + +- my $whichperl; +- my $ans; +- chomp($whichperl = `which perl`); +- if ( length $whichperl ) { +- print "Perl to use: [$whichperl] "; +- chomp($ans = <STDIN>); +- if ( length $ans ) { +- $whichperl = $ans; +- } +- } else { +- print "No Perl found in 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 + |