t/porting/regen.t

   1 #!./perl -w
   2
   3 # Verify that all files generated by perl scripts are up to date.
   4
   5 my ($in_t, $lib);
   6
   7 BEGIN {
   8     $in_t = -f 'TEST' && -f '../regen.pl';
   9     $lib = $in_t ? '../lib' : 'lib';
  10     unshift @INC, $lib;
  11 }
  12
  13 use strict;
  14
  15 use File::Spec::Functions 'rel2abs';
  16 $^X = rel2abs($^X);
  17 $ENV{PERL5LIB} = rel2abs($lib);
  18
  19 chdir '..' if $in_t;
  20
  21 print "1..17\n"; # I can't see a clean way to calculate this automatically.
  22
  23 system "$^X regen.pl --tap";