lib/Tools/expandshort

--- a/lib/Tools/expandshort	Fri Jan 02 11:59:06 1998 +0100
+++ b/lib/Tools/expandshort	Fri Jan 02 13:24:53 1998 +0100
@@ -32,9 +32,4 @@
 
 ## main
 
-PERL=$(type -path perl)
-if [ -z $PERL ]; then
-  echo "$PRG fatal error: no perl!?"
-else
-  find $SPECS -name \*.ML -print | xargs $PERL $ISABELLE_HOME/lib/scripts/expandshort.pl
-fi
+find $SPECS -name \*.ML -print | xargs perl -w $ISABELLE_HOME/lib/scripts/expandshort.pl