perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	1	#!./perl
	2
	3	chdir 't' if -d 't';
	4	@INC = ( '.', '../lib' );
	5
	6	our $local_tests = 7;
	7	require "../t/lib/common.pl";
	8
	9	eval qq(use strict 'garbage');
	10	like($@, qr/^Unknown 'strict' tag$s$ 'garbage'/);
	11
	12	eval qq(no strict 'garbage');
	13	like($@, qr/^Unknown 'strict' tag$s$ 'garbage'/);
	14
	15	eval qq(use strict qw(foo bar));
	16	like($@, qr/^Unknown 'strict' tag$s$ 'foo bar'/);
	17
	18	eval qq(no strict qw(foo bar));
	19	like($@, qr/^Unknown 'strict' tag$s$ 'foo bar'/);
	20
	21	{
	22	my $warnings = "";
	23	local $SIG{__WARN__} = sub { $warnings .= $_[0] };
	24	eval 'use v5.12; use v5.10; ${"c"}';
	25	is($@, '', 'use v5.10 disables implicit strict refs');
	26	like($warnings,
	27	qr/^Downgrading a use VERSION declaration to below v5.11 is deprecated, and will become fatal in Perl 5.40 at /,
	28	'use v5.10 after use v5.12 provokes deprecation warning');
	29	}
	30
	31	eval 'use strict; use v5.10; ${"c"}';
	32	like($@,
	33	qr/^Can't use string $"c"$ as a SCALAR ref while "strict refs" in use/,
	34	"use v5.10 doesn't disable explicit strict ref");