kalyptus/findperl

   1 #!/bin/sh
   2
   3 test -f perlbin && rm perlbin
   4
   5 for p in `echo $PATH | tr ":" " "`
   6 do
   7         if [ -x $p/perl ]
   8         then
   9                 if $p/perl -e 'require 5.000;'
  10                 then
  11                         echo $p/perl > perlbin
  12                         exit 0
  13                 fi
  14         fi
  15
  16 done
  17 exit 1