#!/usr/local/bin/perl # pdfcheck -- PDF autotest helper. # $Id: //depot/Master/support/tests/checkpdf.pl#2 $ # # Public domain. Originaly written 2004, Karl Berry. # # (Although it's much simpler and more functional in sh, Perl makes it # possible to run on Windows, for TeX Live, etc. I hope someone cares # some day.) exit (&main ()); sub main { if (@ARGV != 2) { print <; #warn "read lines from $program @args:\n@lines"; close (PROG) || warn "close($program @args |) failed: $!"; return &clean_dvitype (@lines); }