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

Check existing $^W functionality


__END__

# warnable code, warnings disabled
$a =+ 3 ;
EXPECT

########
-w
# warnable code, warnings enabled via command line switch
$a =+ 3 ;
EXPECT
Reversed += operator at - line 3.
Name "main::a" used only once: possible typo at - line 3.
########
#! perl -w
# warnable code, warnings enabled via #! line
$a =+ 3 ;
EXPECT
Reversed += operator at - line 3.
Name "main::a" used only once: possible typo at - line 3.
########

# warnable code, warnings enabled via compile time $^W
BEGIN { $^W = 1 }
$a =+ 3 ;
EXPECT
Reversed += operator at - line 4.
Name "main::a" used only once: possible typo at - line 4.
########

# compile-time warnable code, warnings enabled via runtime $^W
# so no warning printed.
$^W = 1 ;
$a =+ 3 ;
EXPECT

########

# warnable code, warnings enabled via runtime $^W
$^W = 1 ;
my $b ; chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 4.
########

# warnings enabled at compile time, disabled at run time
BEGIN { $^W = 1 }
$^W = 0 ;
my $b ; chop $b ;
EXPECT

########

# warnings disabled at compile time, enabled at run time
BEGIN { $^W = 0 }
$^W = 1 ;
my $b ; chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 5.
########
-w
--FILE-- abcd
my $b ; chop $b ;
1 ;
--FILE-- 
require "./abcd";
EXPECT
Use of uninitialized value in scalar chop at ./abcd line 1.
########

--FILE-- abcd
my $b ; chop $b ;
1 ;
--FILE-- 
#! perl -w
require "./abcd";
EXPECT
Use of uninitialized value in scalar chop at ./abcd line 1.
########

--FILE-- abcd
my $b ; chop $b ;
1 ;
--FILE-- 
$^W =1 ;
require "./abcd";
EXPECT
Use of uninitialized value in scalar chop at ./abcd line 1.
########

--FILE-- abcd
$^W = 0;
my $b ; chop $b ;
1 ;
--FILE-- 
$^W =1 ;
require "./abcd";
EXPECT

########

--FILE-- abcd
$^W = 1;
1 ;
--FILE-- 
$^W =0 ;
require "./abcd";
my $b ; chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 3.
########

$^W = 1;
eval 'my $b ; chop $b ;' ;
print $@ ;
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 1.
########

eval '$^W = 1;' ;
print $@ ;
my $b ; chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 4.
########

eval {$^W = 1;} ;
print $@ ;
my $b ; chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 4.
########

{
    local ($^W) = 1;
}
my $b ; chop $b ;
EXPECT

########

my $a ; chop $a ;
{
    local ($^W) = 1;
    my $b ; chop $b ;
}
my $c ; chop $c ;
EXPECT
Use of uninitialized value in scalar chop at - line 5.
########
-w
-e undef
EXPECT
Use of uninitialized value in -e at - line 2.
########

$^W = 1 + 2 ;
EXPECT

########

$^W = $a ;
EXPECT

########

sub fred {}
$^W = fred() ;
EXPECT

########

sub fred { my $b ; chop $b ;}
{ local $^W = 0 ;
  fred() ;
}
EXPECT

########

sub fred { my $b ; chop $b ;}
{ local $^W = 1 ;
  fred() ;
}
EXPECT
Use of uninitialized value in scalar chop at - line 2.
Commit	Line	Data
8ebc5c01	1	Check existing $^W functionality
8ebc5c01	2
599cee73	3
8ebc5c01	4	__END__
	5
	6	# warnable code, warnings disabled
	7	$a =+ 3 ;
	8	EXPECT
	9
	10	########
	11	-w
	12	# warnable code, warnings enabled via command line switch
	13	$a =+ 3 ;
	14	EXPECT
	15	Reversed += operator at - line 3.
1c17f625	16	Name "main::a" used only once: possible typo at - line 3.
8ebc5c01	17	########
	18	#! perl -w
	19	# warnable code, warnings enabled via #! line
	20	$a =+ 3 ;
	21	EXPECT
	22	Reversed += operator at - line 3.
1c17f625	23	Name "main::a" used only once: possible typo at - line 3.
8ebc5c01	24	########
	25
	26	# warnable code, warnings enabled via compile time $^W
	27	BEGIN { $^W = 1 }
	28	$a =+ 3 ;
	29	EXPECT
	30	Reversed += operator at - line 4.
1c17f625	31	Name "main::a" used only once: possible typo at - line 4.
8ebc5c01	32	########
	33
	34	# compile-time warnable code, warnings enabled via runtime $^W
	35	# so no warning printed.
	36	$^W = 1 ;
	37	$a =+ 3 ;
	38	EXPECT
	39
	40	########
	41
	42	# warnable code, warnings enabled via runtime $^W
	43	$^W = 1 ;
	44	my $b ; chop $b ;
	45	EXPECT
b89fed5f	46	Use of uninitialized value in scalar chop at - line 4.
8ebc5c01	47	########
	48
	49	# warnings enabled at compile time, disabled at run time
	50	BEGIN { $^W = 1 }
	51	$^W = 0 ;
	52	my $b ; chop $b ;
	53	EXPECT
	54
	55	########
	56
	57	# warnings disabled at compile time, enabled at run time
	58	BEGIN { $^W = 0 }
	59	$^W = 1 ;
	60	my $b ; chop $b ;
	61	EXPECT
b89fed5f	62	Use of uninitialized value in scalar chop at - line 5.
8ebc5c01	63	########
	64	-w
	65	--FILE-- abcd
	66	my $b ; chop $b ;
	67	1 ;
	68	--FILE--
	69	require "./abcd";
	70	EXPECT
b89fed5f	71	Use of uninitialized value in scalar chop at ./abcd line 1.
8ebc5c01	72	########
	73
	74	--FILE-- abcd
	75	my $b ; chop $b ;
	76	1 ;
	77	--FILE--
	78	#! perl -w
	79	require "./abcd";
	80	EXPECT
b89fed5f	81	Use of uninitialized value in scalar chop at ./abcd line 1.
8ebc5c01	82	########
	83
	84	--FILE-- abcd
	85	my $b ; chop $b ;
	86	1 ;
	87	--FILE--
	88	$^W =1 ;
	89	require "./abcd";
	90	EXPECT
b89fed5f	91	Use of uninitialized value in scalar chop at ./abcd line 1.
8ebc5c01	92	########
	93
	94	--FILE-- abcd
	95	$^W = 0;
	96	my $b ; chop $b ;
	97	1 ;
	98	--FILE--
	99	$^W =1 ;
	100	require "./abcd";
	101	EXPECT
	102
	103	########
	104
	105	--FILE-- abcd
	106	$^W = 1;
	107	1 ;
	108	--FILE--
	109	$^W =0 ;
	110	require "./abcd";
	111	my $b ; chop $b ;
	112	EXPECT
b89fed5f	113	Use of uninitialized value in scalar chop at - line 3.
8ebc5c01	114	########
	115
	116	$^W = 1;
599cee73	117	eval 'my $b ; chop $b ;' ;
599cee73	118	print $@ ;
8ebc5c01	119	EXPECT
b89fed5f	120	Use of uninitialized value in scalar chop at (eval 1) line 1.
8ebc5c01	121	########
8ebc5c01	122
599cee73	123	eval '$^W = 1;' ;
599cee73	124	print $@ ;
8ebc5c01	125	my $b ; chop $b ;
8ebc5c01	126	EXPECT
b89fed5f	127	Use of uninitialized value in scalar chop at - line 4.
8ebc5c01	128	########
	129
	130	eval {$^W = 1;} ;
599cee73	131	print $@ ;
8ebc5c01	132	my $b ; chop $b ;
8ebc5c01	133	EXPECT
b89fed5f	134	Use of uninitialized value in scalar chop at - line 4.
8ebc5c01	135	########
	136
	137	{
	138	local ($^W) = 1;
	139	}
	140	my $b ; chop $b ;
	141	EXPECT
	142
	143	########
	144
	145	my $a ; chop $a ;
	146	{
	147	local ($^W) = 1;
	148	my $b ; chop $b ;
	149	}
	150	my $c ; chop $c ;
	151	EXPECT
b89fed5f	152	Use of uninitialized value in scalar chop at - line 5.
4b74e3fb	153	########
	154	-w
	155	-e undef
	156	EXPECT
b89fed5f	157	Use of uninitialized value in -e at - line 2.
599cee73	158	########
	159
	160	$^W = 1 + 2 ;
	161	EXPECT
	162
	163	########
	164
	165	$^W = $a ;
	166	EXPECT
	167
	168	########
	169
	170	sub fred {}
	171	$^W = fred() ;
	172	EXPECT
	173
	174	########
	175
	176	sub fred { my $b ; chop $b ;}
	177	{ local $^W = 0 ;
	178	fred() ;
	179	}
	180	EXPECT
	181
	182	########
	183
	184	sub fred { my $b ; chop $b ;}
	185	{ local $^W = 1 ;
	186	fred() ;
	187	}
	188	EXPECT
b89fed5f	189	Use of uninitialized value in scalar chop at - line 2.