HI,
It is a executable shell script ...
The file starts with
#!/bin/sh -- need to mention perl here to avoid recursion
'true' || eval 'exec perl -S $0 $argv:q';
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
if 0;
# find perl5! < I THINK SOME PROB IN THIS >
print "Ok, trying to find perl5 now... hang on a bit...\n";
for $dir (@all_dirs) {
# first, find where it might be; oftentimes you'll see perl,
# perl4, perl5, etc. in the same dir
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 }'`;
if ($perl_version) {
$PERL=$_;
$pflag="1";
-----------------------------------------------------
I am getting the messege this :-
##########
print "Ok, trying to find perl5 now... hang on a bit...\n";
##############
but after this it used to go in a infinite loop I believe !!