home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/perl
- eval "exec /usr/bin/perl -S $0 $*"
- if $running_under_some_shell;
-
- # ckp - check a Perl script (from STDIN) for syntax.
- # Perl switches may be supplied as optional arguments.
-
- die unless open(IN,"-"); # get around program/data STDIN conflict
-
- $pcmd = "perl" unless ($pcmd) = ($topline = <IN>) =~ /^#!\s*(.+)\s*$/;
- $pcmd .= " @ARGV" if @ARGV;
-
- die unless open(CMD,"|$pcmd");
- print CMD "exit 0; ",$topline;
- while (<IN>) { print CMD; } # conserve memory
- close(CMD);
-