23 lines
507 B
Text
23 lines
507 B
Text
--- reconfig.old 2010-11-18 13:40:58.000000000 +0100
|
|
+++ reconfig 2010-11-18 13:43:50.000000000 +0100
|
|
@@ -56,18 +56,9 @@
|
|
next if (! -d $dir);
|
|
while (<$dir/perl5* $dir/perl*>) {
|
|
if (-x $_) {
|
|
- $perl_version=`($_ -v 2> /dev/null) |
|
|
- awk '
|
|
- /This is perl, version 5/ { print $NF }
|
|
- /This is perl, v5/ { print $4 }
|
|
- '`;
|
|
- if ($perl_version) {
|
|
- $PERL=$_;
|
|
- $pflag="1";
|
|
- last;
|
|
- }
|
|
+ $PERL=$_;
|
|
+ $pflag="1";
|
|
}
|
|
- last if $pflag;
|
|
}
|
|
last if $pflag;
|
|
}
|