155745691Smillert#!./perl -anFx+ 255745691Smillert 355745691SmillertBEGIN { 4*91f110e0Safresh1 chdir 't' if -d 't'; 5*91f110e0Safresh1 @INC = '../lib'; 6*91f110e0Safresh1 require './test.pl'; 755745691Smillert *ARGV = *DATA; 8*91f110e0Safresh1 plan(tests => 2); 955745691Smillert} 10*91f110e0Safresh1my $index = $F[-1]; 11*91f110e0Safresh1chomp $index; 12*91f110e0Safresh1is($index, $., "line $."); 1355745691Smillert 1455745691Smillert__DATA__ 1555745691Smillertokx1 16*91f110e0Safresh1okx3xx2 17