1*0Sstevel@tonic-gate#!./perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateBEGIN { 4*0Sstevel@tonic-gate chdir 't' if -d 't'; 5*0Sstevel@tonic-gate @INC = '../lib'; 6*0Sstevel@tonic-gate} 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gaterequire './test.pl'; 9*0Sstevel@tonic-gateuse File::Spec::Functions; 10*0Sstevel@tonic-gate 11*0Sstevel@tonic-gateprint runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') ); 12