[p5sagit/p5-mst-13.2.git] / t / pragma / warn-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.
########
#! perl -w
# warnable code, warnings enabled via #! line
$a =+ 3 ;
EXPECT
Reversed += operator at - line 3.
########

# warnable code, warnings enabled via compile time $^W
BEGIN { $^W = 1 }
$a =+ 3 ;
EXPECT
Reversed += operator 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 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 at - line 5.
########
-w
--FILE-- abcd
my $b ; chop $b ;
1 ;
--FILE-- 
require "./abcd";
EXPECT
Use of uninitialized value at ./abcd line 1.
########

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

--FILE-- abcd
my $b ; chop $b ;
1 ;
--FILE-- 
$^W =1 ;
require "./abcd";
EXPECT
Use of uninitialized value 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 at - line 3.
########

$^W = 1;
eval "my $b ; chop $b ;" ;
EXPECT
Use of uninitialized value at - line 3.
Use of uninitialized value at - line 3.
########

eval "$^W = 1;" ;
my $b ; chop $b ;
EXPECT

########

eval {$^W = 1;} ;
my $b ; chop $b ;
EXPECT
Use of uninitialized value at - line 3.
########

{
    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 at - line 5.
########
-w
-e undef
EXPECT
Use of uninitialized value at - line 2.
Commit	Line	Data
8ebc5c01	1	Check existing $^W functionality
	2
	3	__END__
	4
	5	# warnable code, warnings disabled
	6	$a =+ 3 ;
	7	EXPECT
	8
	9	########
	10	-w
	11	# warnable code, warnings enabled via command line switch
	12	$a =+ 3 ;
	13	EXPECT
	14	Reversed += operator at - line 3.
	15	########
	16	#! perl -w
	17	# warnable code, warnings enabled via #! line
	18	$a =+ 3 ;
	19	EXPECT
	20	Reversed += operator at - line 3.
	21	########
	22
	23	# warnable code, warnings enabled via compile time $^W
	24	BEGIN { $^W = 1 }
	25	$a =+ 3 ;
	26	EXPECT
	27	Reversed += operator at - line 4.
	28	########
	29
	30	# compile-time warnable code, warnings enabled via runtime $^W
	31	# so no warning printed.
	32	$^W = 1 ;
	33	$a =+ 3 ;
	34	EXPECT
	35
	36	########
	37
	38	# warnable code, warnings enabled via runtime $^W
	39	$^W = 1 ;
	40	my $b ; chop $b ;
	41	EXPECT
	42	Use of uninitialized value at - line 4.
	43	########
	44
	45	# warnings enabled at compile time, disabled at run time
	46	BEGIN { $^W = 1 }
	47	$^W = 0 ;
	48	my $b ; chop $b ;
	49	EXPECT
	50
	51	########
	52
	53	# warnings disabled at compile time, enabled at run time
	54	BEGIN { $^W = 0 }
	55	$^W = 1 ;
	56	my $b ; chop $b ;
	57	EXPECT
	58	Use of uninitialized value at - line 5.
	59	########
	60	-w
	61	--FILE-- abcd
	62	my $b ; chop $b ;
	63	1 ;
	64	--FILE--
65	require "./abcd";
66	EXPECT
67	Use of uninitialized value at ./abcd line 1.
68	########
69
70	--FILE-- abcd
71	my $b ; chop $b ;
72	1 ;
73	--FILE--
74	#! perl -w
75	require "./abcd";
76	EXPECT
77	Use of uninitialized value at ./abcd line 1.
78	########
79
80	--FILE-- abcd
81	my $b ; chop $b ;
82	1 ;
83	--FILE--
84	$^W =1 ;
85	require "./abcd";
86	EXPECT
87	Use of uninitialized value at ./abcd line 1.
88	########
89
90	--FILE-- abcd
91	$^W = 0;
92	my $b ; chop $b ;
93	1 ;
94	--FILE--
95	$^W =1 ;
96	require "./abcd";
97	EXPECT
98
99	########
100
101	--FILE-- abcd
102	$^W = 1;
103	1 ;
104	--FILE--
105	$^W =0 ;
106	require "./abcd";
107	my $b ; chop $b ;
108	EXPECT
109	Use of uninitialized value at - line 3.
110	########
111
112	$^W = 1;
113	eval "my $b ; chop $b ;" ;
114	EXPECT
115	Use of uninitialized value at - line 3.
116	Use of uninitialized value at - line 3.
117	########
118
119	eval "$^W = 1;" ;
120	my $b ; chop $b ;
121	EXPECT
122
123	########
124
125	eval {$^W = 1;} ;
126	my $b ; chop $b ;
127	EXPECT
128	Use of uninitialized value at - line 3.
129	########
130
131	{
132	local ($^W) = 1;
133	}
134	my $b ; chop $b ;
135	EXPECT
136
137	########
138
139	my $a ; chop $a ;
140	{
141	local ($^W) = 1;
142	my $b ; chop $b ;
143	}
144	my $c ; chop $c ;
145	EXPECT
146	Use of uninitialized value at - line 5.
4b74e3fb	147	########
	148	-w
	149	-e undef
	150	EXPECT
	151	Use of uninitialized value at - line 2.