|
|
| @@ -0,0 +1,45 @@
+--- 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;
+
|
