[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 ;' ;
print $@ ;
EXPECT
Use of uninitialized value at (eval 1) line 1.
########

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

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