1#!./perl -w 2 3BEGIN { 4 chdir 't' if -d 't'; 5 require './test.pl'; 6 set_up_inc('../lib'); 7} 8 9plan tests => 1; 10 11use strict; 12 13eval 'my $_'; 14like $@, qr/^Can't use global \$_ in "my" at /; 15 16