[p5sagit/p5-mst-13.2.git] / t / pragma / warn / 3both

Check interaction of $^W and lexical

__END__

# Check interaction of $^W and use warnings
sub fred { 
    use warnings ;
    my $b ; 
    chop $b ;
}
{ local $^W = 0 ;
  fred() ;
}

EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
sub fred { 
    use warnings ;
    my $b ; 
    chop $b ;
}
{ $^W = 0 ;
  fred() ;
}

EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
sub fred { 
    no warnings ;
    my $b ; 
    chop $b ;
}
{ local $^W = 1 ;
  fred() ;
}

EXPECT

########

# Check interaction of $^W and use warnings
sub fred { 
    no warnings ;
    my $b ; 
    chop $b ;
}
{ $^W = 1 ;
  fred() ;
}

EXPECT

########

# Check interaction of $^W and use warnings
use warnings ;
$^W = 1 ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
$^W = 1 ;
use warnings ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
$^W = 1 ;
no warnings ;
my $b ; 
chop $b ;
EXPECT

########

# Check interaction of $^W and use warnings
no warnings ;
$^W = 1 ;
my $b ; 
chop $b ;
EXPECT

########
-w
# Check interaction of $^W and use warnings
no warnings ;
my $b ; 
chop $b ;
EXPECT

########
-w
# Check interaction of $^W and use warnings
use warnings ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 5.
########

# Check interaction of $^W and use warnings
sub fred { 
    use warnings ;
    my $b ; 
    chop $b ;
}
BEGIN {  $^W = 0 }
fred() ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
sub fred { 
    no warnings ;
    my $b ; 
    chop $b ;
}
BEGIN {  $^W = 1 }
fred() ;

EXPECT

########

# Check interaction of $^W and use warnings
use warnings ;
BEGIN {  $^W = 1 }
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 1 }
use warnings ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 1 }
no warnings ;
my $b ; 
chop $b ;
EXPECT

########

# Check interaction of $^W and use warnings
no warnings ;
BEGIN {  $^W = 1 }
my $b ; 
chop $b ;
EXPECT

########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 1 }
{
    no warnings ;
    my $b ; 
    chop $b ;
}
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 10.
########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 0 }
{
    use warnings ;
    my $b ; 
    chop $b ;
}
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 7.
Commit	Line	Data
599cee73	1	Check interaction of $^W and lexical
	2
	3	__END__
	4
4438c4b7	5	# Check interaction of $^W and use warnings
599cee73	6	sub fred {
4438c4b7	7	use warnings ;
599cee73	8	my $b ;
	9	chop $b ;
	10	}
	11	{ local $^W = 0 ;
	12	fred() ;
	13	}
	14
	15	EXPECT
146174a9	16	Use of uninitialized value in scalar chop at - line 6.
599cee73	17	########
599cee73	18
4438c4b7	19	# Check interaction of $^W and use warnings
599cee73	20	sub fred {
4438c4b7	21	use warnings ;
0453d815	22	my $b ;
	23	chop $b ;
	24	}
	25	{ $^W = 0 ;
	26	fred() ;
	27	}
	28
	29	EXPECT
146174a9	30	Use of uninitialized value in scalar chop at - line 6.
0453d815	31	########
0453d815	32
4438c4b7	33	# Check interaction of $^W and use warnings
0453d815	34	sub fred {
4438c4b7	35	no warnings ;
599cee73	36	my $b ;
	37	chop $b ;
	38	}
	39	{ local $^W = 1 ;
	40	fred() ;
	41	}
	42
	43	EXPECT
0453d815	44
	45	########
	46
4438c4b7	47	# Check interaction of $^W and use warnings
0453d815	48	sub fred {
4438c4b7	49	no warnings ;
0453d815	50	my $b ;
	51	chop $b ;
	52	}
	53	{ $^W = 1 ;
	54	fred() ;
	55	}
	56
	57	EXPECT
	58
599cee73	59	########
599cee73	60
4438c4b7	61	# Check interaction of $^W and use warnings
4438c4b7	62	use warnings ;
599cee73	63	$^W = 1 ;
	64	my $b ;
	65	chop $b ;
	66	EXPECT
146174a9	67	Use of uninitialized value in scalar chop at - line 6.
599cee73	68	########
599cee73	69
4438c4b7	70	# Check interaction of $^W and use warnings
599cee73	71	$^W = 1 ;
4438c4b7	72	use warnings ;
599cee73	73	my $b ;
	74	chop $b ;
	75	EXPECT
146174a9	76	Use of uninitialized value in scalar chop at - line 6.
599cee73	77	########
599cee73	78
4438c4b7	79	# Check interaction of $^W and use warnings
599cee73	80	$^W = 1 ;
4438c4b7	81	no warnings ;
599cee73	82	my $b ;
	83	chop $b ;
	84	EXPECT
0453d815	85
599cee73	86	########
599cee73	87
4438c4b7	88	# Check interaction of $^W and use warnings
4438c4b7	89	no warnings ;
599cee73	90	$^W = 1 ;
	91	my $b ;
	92	chop $b ;
	93	EXPECT
0453d815	94
	95	########
	96	-w
4438c4b7	97	# Check interaction of $^W and use warnings
4438c4b7	98	no warnings ;
0453d815	99	my $b ;
	100	chop $b ;
	101	EXPECT
	102
	103	########
	104	-w
4438c4b7	105	# Check interaction of $^W and use warnings
4438c4b7	106	use warnings ;
0453d815	107	my $b ;
	108	chop $b ;
	109	EXPECT
146174a9	110	Use of uninitialized value in scalar chop at - line 5.
0453d815	111	########
0453d815	112
4438c4b7	113	# Check interaction of $^W and use warnings
0453d815	114	sub fred {
4438c4b7	115	use warnings ;
0453d815	116	my $b ;
	117	chop $b ;
	118	}
	119	BEGIN { $^W = 0 }
	120	fred() ;
	121	EXPECT
146174a9	122	Use of uninitialized value in scalar chop at - line 6.
0453d815	123	########
0453d815	124
4438c4b7	125	# Check interaction of $^W and use warnings
0453d815	126	sub fred {
4438c4b7	127	no warnings ;
0453d815	128	my $b ;
	129	chop $b ;
	130	}
	131	BEGIN { $^W = 1 }
	132	fred() ;
	133
	134	EXPECT
	135
	136	########
	137
4438c4b7	138	# Check interaction of $^W and use warnings
4438c4b7	139	use warnings ;
0453d815	140	BEGIN { $^W = 1 }
	141	my $b ;
	142	chop $b ;
	143	EXPECT
146174a9	144	Use of uninitialized value in scalar chop at - line 6.
0453d815	145	########
0453d815	146
4438c4b7	147	# Check interaction of $^W and use warnings
0453d815	148	BEGIN { $^W = 1 }
4438c4b7	149	use warnings ;
0453d815	150	my $b ;
	151	chop $b ;
	152	EXPECT
146174a9	153	Use of uninitialized value in scalar chop at - line 6.
0453d815	154	########
0453d815	155
4438c4b7	156	# Check interaction of $^W and use warnings
0453d815	157	BEGIN { $^W = 1 }
4438c4b7	158	no warnings ;
0453d815	159	my $b ;
	160	chop $b ;
	161	EXPECT
	162
	163	########
	164
4438c4b7	165	# Check interaction of $^W and use warnings
4438c4b7	166	no warnings ;
0453d815	167	BEGIN { $^W = 1 }
	168	my $b ;
	169	chop $b ;
	170	EXPECT
	171
	172	########
	173
4438c4b7	174	# Check interaction of $^W and use warnings
0453d815	175	BEGIN { $^W = 1 }
0453d815	176	{
4438c4b7	177	no warnings ;
0453d815	178	my $b ;
	179	chop $b ;
	180	}
	181	my $b ;
	182	chop $b ;
	183	EXPECT
146174a9	184	Use of uninitialized value in scalar chop at - line 10.
0453d815	185	########
0453d815	186
4438c4b7	187	# Check interaction of $^W and use warnings
0453d815	188	BEGIN { $^W = 0 }
0453d815	189	{
4438c4b7	190	use warnings ;
0453d815	191	my $b ;
	192	chop $b ;
	193	}
	194	my $b ;
	195	chop $b ;
	196	EXPECT
146174a9	197	Use of uninitialized value in scalar chop at - line 7.