143890927Smillert#!./perl -0 2*91f110e0Safresh1 3*91f110e0Safresh1BEGIN { 4*91f110e0Safresh1 chdir 't' if -d 't'; 5*91f110e0Safresh1 @INC = '../lib'; 6*91f110e0Safresh1 require './test.pl'; 7*91f110e0Safresh1} 8*91f110e0Safresh1 9*91f110e0Safresh1plan tests => 1; 10*91f110e0Safresh1 11*91f110e0Safresh1is(ord $/, 0, '$/ set to 0 via switch'); 12