tests/th-sh

   1 #!/bin/sh
   2
   3 #
   4 # Simple script to find perl and run it
   5 #
   6
   7 # Avoid common problems with ENV (though perl shouldn't let it through)
   8 # (can you believe some shells don't have an unset???)
   9 unset ENV
  10
  11 x=x
  12 [ -x /bin/sh ] 2> /dev/null || x=f
  13
  14 IFS=:$IFS
  15 perl=
  16 for i in $PATH; do
  17     [ X"$i" = X ] && i=.
  18     [ -$x "$i/perl" ] && perl=$i/perl && break 2
  19 done
  20
  21 [ X"$perl" = X ] && {
  22         echo "$0: can't find perl - bye\n" 1>&2
  23         exit 1
  24     }
  25
  26 unset IFS
  27 exec $perl "$@"