File nfsen-install-GetPerl.patch of Package nfsen

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

Currently displaying revision 581a4d81b49635be8a00a0375bd3d61e, show latest

--- install.pl.orig	2013-01-05 18:01:40.820122379 +0100
+++ install.pl	2013-01-05 18:18:40.996114357 +0100
@@ -91,16 +91,16 @@
 	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) {
 		if ( -x $whichperl ) {
@@ -110,8 +110,8 @@
 		} else {
 			print "No executable: '$whichperl'\n";
 		}
-		print "Perl to use: [] ";
-		chomp($whichperl = <STDIN>);
+#		print "Perl to use: [] ";
+#		chomp($whichperl = <STDIN>);
 	}
 
 	return $whichperl;