prest/tbin/run_prest

   1 #!/usr/local/bin/perl
   2
   3 # This script simply runs the experimental version of prest in blib/scripts.
   4
   5 use FindBin;
   6 eval "%CFG = (" . `cat $FindBin::RealBin/../config.log` . ")";
   7
   8 my @ARGS = ("-I$FindBin::RealBin/../blib/lib",
   9             "$FindBin::RealBin/../blib/script/prest",
  10             @ARGV);
  11 if ($ENV{DEBUG}) {
  12     unshift @ARGS, '-d' ;
  13     push @ARGS, qw(-D no_line_directives);
  14 }
  15
  16 exec $CFG{perl},@ARGS;