[p5sagit/p5-mst-13.2.git] / lib / warnings.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    $ENV{PERL5LIB} = '../lib';
}

our $pragma_name = "warnings";
our $UTF8 = (${^OPEN} || "") =~ /:utf8/;
require "../t/lib/common.pl";
Commit	Line	Data
f126f811	1	#!./perl
bd4dea8e	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	$ENV{PERL5LIB} = '../lib';
bd4dea8e	7	}
bd4dea8e	8
0d863452	9	our $pragma_name = "warnings";
2bd168e2	10	our $UTF8 = (${^OPEN} \|\| "") =~ /:utf8/;
0d863452	11	require "../t/lib/common.pl";