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

Check interaction of $^W and lexical

__END__

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

EXPECT
Use of uninitialized value at - line 6.
########

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

EXPECT
Use of uninitialized value at - line 6.
########

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

EXPECT

########

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

EXPECT

########

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

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

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

########

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

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

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

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

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

EXPECT

########

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

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

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

########

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

########

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

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