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

Check FATAL functionality

__END__

# Check compile time warning
use warnings FATAL => 'syntax' ;
{
    no warnings ;
    $a =+ 1 ;
}
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

# Check compile time warning
use warnings FATAL => 'all' ;
{
    no warnings ;
    my $a =+ 1 ;
}
my $a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

# Check runtime scope of pragma
use warnings FATAL => 'uninitialized' ;
{
    no warnings ;
    my $b ; chop $b ;
}
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 8.
########

# Check runtime scope of pragma
use warnings FATAL => 'all' ;
{
    no warnings ;
    my $b ; chop $b ;
}
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 8.
########

# Check runtime scope of pragma
no warnings ;
{
    use warnings FATAL => 'uninitialized' ;
    $a = sub { my $b ; chop $b ; }
}
&$a ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check runtime scope of pragma
no warnings ;
{
    use warnings FATAL => 'all' ;
    $a = sub { my $b ; chop $b ; }
}
&$a ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

--FILE-- abc
$a =+ 1 ;
1;
--FILE-- 
use warnings FATAL => 'syntax' ;
require "./abc";
EXPECT

########

--FILE-- abc
use warnings FATAL => 'syntax' ;
1;
--FILE-- 
require "./abc";
$a =+ 1 ;
EXPECT

########

--FILE-- abc
use warnings 'syntax' ;
$a =+ 1 ;
1;
--FILE-- 
use warnings FATAL => 'uninitialized' ;
require "./abc";
my $a ; chop $a ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at ./abc line 2.
Use of uninitialized value $a in scalar chop at - line 3.
########

--FILE-- abc.pm
use warnings 'syntax' ;
$a =+ 1 ;
1;
--FILE-- 
use warnings FATAL => 'uninitialized' ;
use abc;
my $a ; chop $a ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at abc.pm line 2.
Use of uninitialized value $a in scalar chop at - line 3.
########

# Check scope of pragma with eval
no warnings ;
eval {
    use warnings FATAL => 'uninitialized' ;
    my $b ; chop $b ;
}; print STDERR "-- $@" ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value $b in scalar chop at - line 6.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval {
    my $b ; chop $b ;
}; print STDERR "-- $@" ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value $b in scalar chop at - line 5.
Use of uninitialized value $b in scalar chop at - line 7.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval {
    no warnings ;
    my $b ; chop $b ;
}; print STDERR $@ ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 8.
########

# Check scope of pragma with eval
no warnings ;
eval {
    use warnings FATAL => 'syntax' ;
    $a =+ 1 ;
}; print STDERR "-- $@" ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 6.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval {
    $a =+ 1 ;
}; print STDERR "-- $@" ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 5.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval {
    no warnings ;
    $a =+ 1 ;
}; print STDERR $@ ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

# Check scope of pragma with eval
no warnings ;
eval {
    use warnings FATAL => 'syntax' ;
}; print STDERR $@ ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
The End.
########

# Check scope of pragma with eval
no warnings ;
eval q[ 
    use warnings FATAL => 'uninitialized' ;
    my $b ; chop $b ;
]; print STDERR "-- $@";
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value $b in scalar chop at (eval 1) line 3.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval '
    my $b ; chop $b ;
'; print STDERR "-- $@" ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value $b in scalar chop at (eval 1) line 2.
Use of uninitialized value $b in scalar chop at - line 7.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval '
    no warnings ;
    my $b ; chop $b ;
'; print STDERR $@ ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 8.
########

# Check scope of pragma with eval
no warnings ;
eval q[ 
    use warnings FATAL => 'syntax' ;
    $a =+ 1 ;
]; print STDERR "-- $@";
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-- Reversed += operator at (eval 1) line 3.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval '
    $a =+ 1 ;
'; print STDERR "-- $@";
print STDERR "The End.\n" ;
EXPECT
-- Reversed += operator at (eval 1) line 2.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval '
    no warnings ;
    $a =+ 1 ;
'; print STDERR "-- $@";
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########
# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''

use warnings 'void' ;

time ;

{
    use warnings FATAL => qw(void) ;
    $a = "abc";
    length $a ;
}

join "", 1,2,3 ;

print "done\n" ;
EXPECT
Useless use of time in void context at - line 4.
Useless use of length in void context at - line 9.
########
# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''

use warnings ;

time ;

{
    use warnings FATAL => qw(void) ;
    $a = "abc";
    length $a ;
}

join "", 1,2,3 ;

print "done\n" ;
EXPECT
Useless use of time in void context at - line 4.
Useless use of length in void context at - line 9.
########

use warnings FATAL => 'all';
{
    no warnings;
    my $b ; chop $b;
    {
        use warnings ;
        my $b ; chop $b;
    }
}
my $b ; chop $b;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 8.
Use of uninitialized value $b in scalar chop at - line 11.
########

use warnings FATAL => 'all';
{
    no warnings FATAL => 'all';
    my $b ; chop $b;
    {
        use warnings ;
        my $b ; chop $b;
    }
}
my $b ; chop $b;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 8.
Use of uninitialized value $b in scalar chop at - line 11.
########

use warnings FATAL => 'all';
{
    no warnings 'syntax';
    {
        use warnings ;
        my $b ; chop $b;
    }
}
my $b ; chop $b;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 7.
########

use warnings FATAL => 'syntax', NONFATAL => 'void' ;

$a = "abc";
length $a;
print STDERR "The End.\n" ;
EXPECT
Useless use of length in void context at - line 5.
The End.
########

use warnings FATAL => 'all', NONFATAL => 'void' ;

$a = "abc";
length $a;
print STDERR "The End.\n" ;
EXPECT
Useless use of length in void context at - line 5.
The End.
########

use warnings FATAL => 'all', NONFATAL => 'void' ;

my $a ; chomp $a;

$b = "abc" ;
length $b;
print STDERR "The End.\n" ;
EXPECT
Useless use of length in void context at - line 7.
Use of uninitialized value $a in scalar chomp at - line 4.
########

use warnings FATAL => 'void', NONFATAL => 'void' ;
$a = "abc";
length $a;
print STDERR "The End.\n" ;
EXPECT
Useless use of length in void context at - line 4.
The End.
########
# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''

use warnings NONFATAL => 'void', FATAL => 'void' ;
$a = "abc";
length $a;
print STDERR "The End.\n" ;
EXPECT
Useless use of length in void context at - line 4.
########

use warnings FATAL => 'all', NONFATAL => 'io';
no warnings 'once';

open(F, "<true\ncd");
close "fred" ;
print STDERR "The End.\n" ;
EXPECT
Unsuccessful open on filename containing newline at - line 5.
close() on unopened filehandle fred at - line 6.
The End.
########

use warnings FATAL => 'all', NONFATAL => 'io', FATAL => 'unopened' ;
no warnings 'once';

open(F, "<true\ncd");
close "fred" ;
print STDERR "The End.\n" ;
EXPECT
Unsuccessful open on filename containing newline at - line 5.
close() on unopened filehandle fred at - line 6.
Commit	Line	Data
4438c4b7	1	Check FATAL functionality
	2
	3	__END__
	4
	5	# Check compile time warning
551cd33c	6	use warnings FATAL => 'syntax' ;
4438c4b7	7	{
4438c4b7	8	no warnings ;
551cd33c	9	$a =+ 1 ;
4438c4b7	10	}
551cd33c	11	$a =+ 1 ;
4438c4b7	12	print STDERR "The End.\n" ;
4438c4b7	13	EXPECT
551cd33c	14	Reversed += operator at - line 8.
4438c4b7	15	########
4438c4b7	16
d5a71f30	17	# Check compile time warning
	18	use warnings FATAL => 'all' ;
	19	{
	20	no warnings ;
551cd33c	21	my $a =+ 1 ;
d5a71f30	22	}
551cd33c	23	my $a =+ 1 ;
d5a71f30	24	print STDERR "The End.\n" ;
d5a71f30	25	EXPECT
551cd33c	26	Reversed += operator at - line 8.
d5a71f30	27	########
d5a71f30	28
4438c4b7	29	# Check runtime scope of pragma
	30	use warnings FATAL => 'uninitialized' ;
	31	{
	32	no warnings ;
	33	my $b ; chop $b ;
	34	}
	35	my $b ; chop $b ;
	36	print STDERR "The End.\n" ;
	37	EXPECT
29489e7c	38	Use of uninitialized value $b in scalar chop at - line 8.
4438c4b7	39	########
	40
	41	# Check runtime scope of pragma
d5a71f30	42	use warnings FATAL => 'all' ;
	43	{
	44	no warnings ;
	45	my $b ; chop $b ;
	46	}
	47	my $b ; chop $b ;
	48	print STDERR "The End.\n" ;
	49	EXPECT
29489e7c	50	Use of uninitialized value $b in scalar chop at - line 8.
d5a71f30	51	########
	52
	53	# Check runtime scope of pragma
4438c4b7	54	no warnings ;
	55	{
	56	use warnings FATAL => 'uninitialized' ;
	57	$a = sub { my $b ; chop $b ; }
	58	}
	59	&$a ;
	60	print STDERR "The End.\n" ;
	61	EXPECT
29489e7c	62	Use of uninitialized value $b in scalar chop at - line 6.
4438c4b7	63	########
d5a71f30	64
	65	# Check runtime scope of pragma
	66	no warnings ;
	67	{
	68	use warnings FATAL => 'all' ;
	69	$a = sub { my $b ; chop $b ; }
	70	}
	71	&$a ;
	72	print STDERR "The End.\n" ;
	73	EXPECT
29489e7c	74	Use of uninitialized value $b in scalar chop at - line 6.
d5a71f30	75	########
4438c4b7	76
4438c4b7	77	--FILE-- abc
551cd33c	78	$a =+ 1 ;
4438c4b7	79	1;
4438c4b7	80	--FILE--
551cd33c	81	use warnings FATAL => 'syntax' ;
4438c4b7	82	require "./abc";
	83	EXPECT
	84
	85	########
	86
	87	--FILE-- abc
551cd33c	88	use warnings FATAL => 'syntax' ;
4438c4b7	89	1;
	90	--FILE--
	91	require "./abc";
551cd33c	92	$a =+ 1 ;
4438c4b7	93	EXPECT
	94
	95	########
	96
	97	--FILE-- abc
551cd33c	98	use warnings 'syntax' ;
551cd33c	99	$a =+ 1 ;
4438c4b7	100	1;
	101	--FILE--
	102	use warnings FATAL => 'uninitialized' ;
	103	require "./abc";
	104	my $a ; chop $a ;
	105	print STDERR "The End.\n" ;
	106	EXPECT
551cd33c	107	Reversed += operator at ./abc line 2.
29489e7c	108	Use of uninitialized value $a in scalar chop at - line 3.
4438c4b7	109	########
	110
	111	--FILE-- abc.pm
551cd33c	112	use warnings 'syntax' ;
551cd33c	113	$a =+ 1 ;
4438c4b7	114	1;
	115	--FILE--
	116	use warnings FATAL => 'uninitialized' ;
	117	use abc;
	118	my $a ; chop $a ;
	119	print STDERR "The End.\n" ;
	120	EXPECT
551cd33c	121	Reversed += operator at abc.pm line 2.
29489e7c	122	Use of uninitialized value $a in scalar chop at - line 3.
4438c4b7	123	########
	124
	125	# Check scope of pragma with eval
	126	no warnings ;
	127	eval {
	128	use warnings FATAL => 'uninitialized' ;
	129	my $b ; chop $b ;
	130	}; print STDERR "-- $@" ;
	131	my $b ; chop $b ;
	132	print STDERR "The End.\n" ;
	133	EXPECT
29489e7c	134	-- Use of uninitialized value $b in scalar chop at - line 6.
4438c4b7	135	The End.
	136	########
	137
	138	# Check scope of pragma with eval
	139	use warnings FATAL => 'uninitialized' ;
	140	eval {
	141	my $b ; chop $b ;
	142	}; print STDERR "-- $@" ;
	143	my $b ; chop $b ;
	144	print STDERR "The End.\n" ;
	145	EXPECT
29489e7c	146	-- Use of uninitialized value $b in scalar chop at - line 5.
29489e7c	147	Use of uninitialized value $b in scalar chop at - line 7.
4438c4b7	148	########
	149
	150	# Check scope of pragma with eval
	151	use warnings FATAL => 'uninitialized' ;
	152	eval {
	153	no warnings ;
	154	my $b ; chop $b ;
	155	}; print STDERR $@ ;
	156	my $b ; chop $b ;
	157	print STDERR "The End.\n" ;
	158	EXPECT
29489e7c	159	Use of uninitialized value $b in scalar chop at - line 8.
4438c4b7	160	########
	161
	162	# Check scope of pragma with eval
	163	no warnings ;
	164	eval {
551cd33c	165	use warnings FATAL => 'syntax' ;
551cd33c	166	$a =+ 1 ;
4438c4b7	167	}; print STDERR "-- $@" ;
551cd33c	168	$a =+ 1 ;
4438c4b7	169	print STDERR "The End.\n" ;
4438c4b7	170	EXPECT
551cd33c	171	Reversed += operator at - line 6.
4438c4b7	172	########
	173
	174	# Check scope of pragma with eval
551cd33c	175	use warnings FATAL => 'syntax' ;
4438c4b7	176	eval {
551cd33c	177	$a =+ 1 ;
4438c4b7	178	}; print STDERR "-- $@" ;
551cd33c	179	$a =+ 1 ;
4438c4b7	180	print STDERR "The End.\n" ;
4438c4b7	181	EXPECT
551cd33c	182	Reversed += operator at - line 5.
4438c4b7	183	########
	184
	185	# Check scope of pragma with eval
551cd33c	186	use warnings FATAL => 'syntax' ;
4438c4b7	187	eval {
4438c4b7	188	no warnings ;
551cd33c	189	$a =+ 1 ;
4438c4b7	190	}; print STDERR $@ ;
551cd33c	191	$a =+ 1 ;
4438c4b7	192	print STDERR "The End.\n" ;
4438c4b7	193	EXPECT
551cd33c	194	Reversed += operator at - line 8.
4438c4b7	195	########
	196
	197	# Check scope of pragma with eval
	198	no warnings ;
	199	eval {
551cd33c	200	use warnings FATAL => 'syntax' ;
4438c4b7	201	}; print STDERR $@ ;
551cd33c	202	$a =+ 1 ;
4438c4b7	203	print STDERR "The End.\n" ;
	204	EXPECT
	205	The End.
	206	########
	207
	208	# Check scope of pragma with eval
	209	no warnings ;
	210	eval q[
	211	use warnings FATAL => 'uninitialized' ;
	212	my $b ; chop $b ;
	213	]; print STDERR "-- $@";
	214	my $b ; chop $b ;
	215	print STDERR "The End.\n" ;
	216	EXPECT
29489e7c	217	-- Use of uninitialized value $b in scalar chop at (eval 1) line 3.
4438c4b7	218	The End.
	219	########
	220
	221	# Check scope of pragma with eval
	222	use warnings FATAL => 'uninitialized' ;
	223	eval '
	224	my $b ; chop $b ;
	225	'; print STDERR "-- $@" ;
	226	my $b ; chop $b ;
	227	print STDERR "The End.\n" ;
	228	EXPECT
29489e7c	229	-- Use of uninitialized value $b in scalar chop at (eval 1) line 2.
29489e7c	230	Use of uninitialized value $b in scalar chop at - line 7.
4438c4b7	231	########
	232
	233	# Check scope of pragma with eval
	234	use warnings FATAL => 'uninitialized' ;
	235	eval '
	236	no warnings ;
	237	my $b ; chop $b ;
	238	'; print STDERR $@ ;
	239	my $b ; chop $b ;
	240	print STDERR "The End.\n" ;
	241	EXPECT
29489e7c	242	Use of uninitialized value $b in scalar chop at - line 8.
4438c4b7	243	########
	244
	245	# Check scope of pragma with eval
	246	no warnings ;
	247	eval q[
551cd33c	248	use warnings FATAL => 'syntax' ;
551cd33c	249	$a =+ 1 ;
4438c4b7	250	]; print STDERR "-- $@";
551cd33c	251	$a =+ 1 ;
4438c4b7	252	print STDERR "The End.\n" ;
4438c4b7	253	EXPECT
551cd33c	254	-- Reversed += operator at (eval 1) line 3.
4438c4b7	255	The End.
	256	########
	257
	258	# Check scope of pragma with eval
551cd33c	259	use warnings FATAL => 'syntax' ;
4438c4b7	260	eval '
551cd33c	261	$a =+ 1 ;
4438c4b7	262	'; print STDERR "-- $@";
	263	print STDERR "The End.\n" ;
	264	EXPECT
551cd33c	265	-- Reversed += operator at (eval 1) line 2.
4438c4b7	266	The End.
	267	########
	268
	269	# Check scope of pragma with eval
551cd33c	270	use warnings FATAL => 'syntax' ;
4438c4b7	271	eval '
4438c4b7	272	no warnings ;
551cd33c	273	$a =+ 1 ;
4438c4b7	274	'; print STDERR "-- $@";
551cd33c	275	$a =+ 1 ;
4438c4b7	276	print STDERR "The End.\n" ;
4438c4b7	277	EXPECT
551cd33c	278	Reversed += operator at - line 8.
f1f33818	279	########
2bd168e2	280	# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} \|\| 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
f1f33818	281
	282	use warnings 'void' ;
	283
	284	time ;
	285
	286	{
	287	use warnings FATAL => qw(void) ;
1518d620	288	$a = "abc";
1518d620	289	length $a ;
f1f33818	290	}
	291
	292	join "", 1,2,3 ;
	293
	294	print "done\n" ;
	295	EXPECT
	296	Useless use of time in void context at - line 4.
1518d620	297	Useless use of length in void context at - line 9.
f1f33818	298	########
2bd168e2	299	# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} \|\| 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
f1f33818	300
	301	use warnings ;
	302
	303	time ;
	304
	305	{
	306	use warnings FATAL => qw(void) ;
1518d620	307	$a = "abc";
1518d620	308	length $a ;
f1f33818	309	}
	310
	311	join "", 1,2,3 ;
	312
	313	print "done\n" ;
	314	EXPECT
	315	Useless use of time in void context at - line 4.
1518d620	316	Useless use of length in void context at - line 9.
08540116	317	########
	318
	319	use warnings FATAL => 'all';
	320	{
	321	no warnings;
	322	my $b ; chop $b;
	323	{
	324	use warnings ;
	325	my $b ; chop $b;
	326	}
	327	}
	328	my $b ; chop $b;
	329	print STDERR "The End.\n" ;
	330	EXPECT
29489e7c	331	Use of uninitialized value $b in scalar chop at - line 8.
29489e7c	332	Use of uninitialized value $b in scalar chop at - line 11.
08540116	333	########
	334
	335	use warnings FATAL => 'all';
	336	{
	337	no warnings FATAL => 'all';
	338	my $b ; chop $b;
	339	{
	340	use warnings ;
	341	my $b ; chop $b;
	342	}
	343	}
	344	my $b ; chop $b;
	345	print STDERR "The End.\n" ;
	346	EXPECT
29489e7c	347	Use of uninitialized value $b in scalar chop at - line 8.
29489e7c	348	Use of uninitialized value $b in scalar chop at - line 11.
08540116	349	########
	350
	351	use warnings FATAL => 'all';
	352	{
	353	no warnings 'syntax';
	354	{
	355	use warnings ;
	356	my $b ; chop $b;
	357	}
	358	}
	359	my $b ; chop $b;
	360	print STDERR "The End.\n" ;
	361	EXPECT
29489e7c	362	Use of uninitialized value $b in scalar chop at - line 7.
6e9af7e4	363	########
	364
	365	use warnings FATAL => 'syntax', NONFATAL => 'void' ;
	366
1518d620	367	$a = "abc";
1518d620	368	length $a;
6e9af7e4	369	print STDERR "The End.\n" ;
6e9af7e4	370	EXPECT
1518d620	371	Useless use of length in void context at - line 5.
6e9af7e4	372	The End.
	373	########
	374
	375	use warnings FATAL => 'all', NONFATAL => 'void' ;
	376
1518d620	377	$a = "abc";
1518d620	378	length $a;
6e9af7e4	379	print STDERR "The End.\n" ;
6e9af7e4	380	EXPECT
1518d620	381	Useless use of length in void context at - line 5.
6e9af7e4	382	The End.
	383	########
	384
	385	use warnings FATAL => 'all', NONFATAL => 'void' ;
	386
	387	my $a ; chomp $a;
1518d620	388
	389	$b = "abc" ;
	390	length $b;
6e9af7e4	391	print STDERR "The End.\n" ;
6e9af7e4	392	EXPECT
1518d620	393	Useless use of length in void context at - line 7.
29489e7c	394	Use of uninitialized value $a in scalar chomp at - line 4.
6e9af7e4	395	########
	396
	397	use warnings FATAL => 'void', NONFATAL => 'void' ;
1518d620	398	$a = "abc";
1518d620	399	length $a;
6e9af7e4	400	print STDERR "The End.\n" ;
	401	EXPECT
	402	Useless use of length in void context at - line 4.
	403	The End.
	404	########
2bd168e2	405	# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} \|\| 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
6e9af7e4	406
6e9af7e4	407	use warnings NONFATAL => 'void', FATAL => 'void' ;
1518d620	408	$a = "abc";
1518d620	409	length $a;
6e9af7e4	410	print STDERR "The End.\n" ;
	411	EXPECT
	412	Useless use of length in void context at - line 4.
	413	########
	414
	415	use warnings FATAL => 'all', NONFATAL => 'io';
	416	no warnings 'once';
	417
	418	open(F, "<true\ncd");
	419	close "fred" ;
	420	print STDERR "The End.\n" ;
	421	EXPECT
	422	Unsuccessful open on filename containing newline at - line 5.
	423	close() on unopened filehandle fred at - line 6.
	424	The End.
	425	########
	426
	427	use warnings FATAL => 'all', NONFATAL => 'io', FATAL => 'unopened' ;
	428	no warnings 'once';
	429
	430	open(F, "<true\ncd");
	431	close "fred" ;
	432	print STDERR "The End.\n" ;
	433	EXPECT
	434	Unsuccessful open on filename containing newline at - line 5.
	435	close() on unopened filehandle fred at - line 6.