@@ -1,6 +1,6 @@
--- 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 @@
++++ install.pl 2013-01-05 18:18:40.996114357 +0100
+@@ -91,16 +91,16 @@
my $whichperl;
my $ans;
$whichperl = FindCommand("perl");
@@ -25,21 +25,16 @@
+# chomp($whichperl = <STDIN>);
+# }
-- while (1) {
-+# 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 @@
+@@ -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;
-
|