[perl5.git] / t / op / mydef.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

use strict;

eval 'my $_';
like $@, qr/^Can't use global \$_ in "my" at /;

done_testing();
Commit	Line	Data
9a0b91eb	1	#!./perl -w
59f00321 RGS	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
1c25d394	6	require './test.pl';
59f00321 RGS	7	}
59f00321 RGS	8
9a0b91eb	9	use strict;
59f00321	10
7fba2966 FC	11	eval 'my $_';
7fba2966 FC	12	like $@, qr/^Can't use global \$_ in "my" at /;
9a0b91eb NC	13
9a0b91eb NC	14	done_testing();