1#!./perl -w 2 3# run Porting/bench.pl's selftest 4 5BEGIN { 6 @INC = '..' if -f '../TestInit.pm'; 7} 8use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute 9use strict; 10 11require 't/test.pl'; 12my $source = find_git_or_skip('all'); 13chdir $source or die "Can't chdir to $source: $!"; 14 15system "$^X Porting/bench.pl --action=selftest"; 16