1#!./perl -w 2 3# run Porting/bench.pl's selftest 4 5use strict; 6 7chdir '..' if -f 'test.pl' && -f 'thread_it.pl'; 8require './t/test.pl'; 9 10system "$^X -I. -MTestInit Porting/bench.pl --action=selftest"; 11