1*5759b3d2Safresh1#!./perl -w 2*5759b3d2Safresh1 3*5759b3d2Safresh1# run Porting/bench.pl's selftest 4*5759b3d2Safresh1 5*5759b3d2Safresh1use strict; 6*5759b3d2Safresh1 7*5759b3d2Safresh1chdir '..' if -f 'test.pl' && -f 'thread_it.pl'; 8*5759b3d2Safresh1require './t/test.pl'; 9*5759b3d2Safresh1 10*5759b3d2Safresh1system "$^X -I. -MTestInit Porting/bench.pl --action=selftest"; 11