home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1122 / ckperl
Encoding:
Text File  |  1990-12-28  |  258 b   |  16 lines
  1. : ckperl
  2. # Check syntax of a Perl program, but don't execute it.
  3.  
  4. T=/tmp/perl$$
  5. trap 'exit' 1 2 3 13 15
  6. trap 'rm -f $T' 0
  7.  
  8. for f
  9. do
  10.     sed '1{s/^#!.*//;s/^:.*//;s/^/exit 0; /;}' $f >$T
  11.     if [ -s $T ]
  12.     then
  13.     perl -w $T 2>&1 | sed "s#$T#$f#"
  14.     fi
  15. done
  16.