File nfsen-install-GetPerl.patch of Package nfsen

File nfsen-install-GetPerl.patch of Package nfsen (Revision a9e7fef638c0282efa43e8dfc5f6a34c)

Currently displaying revision a9e7fef638c0282efa43e8dfc5f6a34c, show latest

--- install.pl.orig	2013-01-05 18:01:40.820122379 +0100
+++ install.pl	2013-01-05 18:04:57.244123798 +0100
@@ -91,18 +91,18 @@
 	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>);
-	}
+#	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) {
+#	while (1) {
 		if ( -x $whichperl ) {
 			my $err = system("$whichperl -e 'require 5.6.0;'") >> 8;
 			last if $err == 0;
@@ -110,9 +110,9 @@
 		} else {
 			print "No executable: '$whichperl'\n";
 		}
-		print "Perl to use: [] ";
-		chomp($whichperl = <STDIN>);
-	}
+#		print "Perl to use: [] ";
+#		chomp($whichperl = <STDIN>);
+#	}
 
 	return $whichperl;