[perl5.git] / t / lib / warnings / perl

  perl.c	AOK

  gv_check(defstash)
	Name \"%s::%s\" used only once: possible typo 

  Mandatory Warnings All TODO
  ------------------
  Recompile perl with -DDEBUGGING to use -D switch	[moreswitches]
  Unbalanced scopes: %ld more ENTERs than LEAVEs	[perl_destruct]
  Unbalanced saves: %ld more saves than restores	[perl_destruct]
  Unbalanced tmps: %ld more allocs than frees		[perl_destruct]
  Unbalanced context: %ld more PUSHes than POPs		[perl_destruct]
  Unbalanced string table refcount: (%d) for \"%s\"	[perl_destruct]
  Scalars leaked: %ld					[perl_destruct]


__END__
# perl.c
no warnings 'once' ;
$x = 3 ;
use warnings 'once' ;
$z = 3 ;
EXPECT
Name "main::z" used only once: possible typo at - line 5.
########
-w
# perl.c
$x = 3 ;
no warnings 'once' ;
$z = 3 
EXPECT
Name "main::x" used only once: possible typo at - line 3.
########
# perl.c
BEGIN { $^W =1 ; }
$x = 3 ;
no warnings 'once' ;
$z = 3 
EXPECT
Name "main::x" used only once: possible typo at - line 3.
########
# perl.c
use warnings 'once';
$\; # test a few
$:; # punct vars
$0; # and
$123; # numbers
$_;    # and
$_foo;  # underscores (none of which should warn)
@DB::args
EXPECT
########
-w
# perl.c
print # avoid void warning
$\, # test a few
$:, # punct vars
$0, # and
$123, # numbers
$_,    # and
$_foo,  # underscores (none of which should warn)
@DB::args
if 0;
EXPECT
########
-W
# perl.c
no warnings 'once' ;
$x = 3 ;
use warnings 'once' ;
$z = 3 ;
EXPECT
OPTION random
Name "main::z" used only once: possible typo at - line 6.
Name "main::x" used only once: possible typo at - line 4.
########
-X
# perl.c
use warnings 'once' ;
$x = 3 ;
EXPECT
########

# perl.c
{ use warnings 'once' ; $x = 3 ; }
$y = 3 ;
EXPECT
Name "main::x" used only once: possible typo at - line 3.
########

# perl.c
$z = 3 ;
BEGIN { $^W = 1 }
{ no warnings 'once' ; $x = 3 ; }
$y = 3 ;
EXPECT
Name "main::y" used only once: possible typo at - line 6.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
Name "main::ȥ" used only once: possible typo at - line 8.
########
-w
# perl.c
use utf8;
use open qw( :utf8 :std );
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3;
EXPECT
Name "main::ᛪ" used only once: possible typo at - line 5.
########
# perl.c
use utf8;
use open qw( :utf8 :std );
BEGIN { $^W =1 ; }
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3 
EXPECT
Name "main::ᛪ" used only once: possible typo at - line 5.
########
-W
# perl.c
use utf8;
use open qw( :utf8 :std );
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
OPTION random
Name "main::ȥ" used only once: possible typo at - line 8.
Name "main::ᛪ" used only once: possible typo at - line 6.
########
-X
# perl.c
use utf8;
use open qw( :utf8 :std );
use warnings 'once' ;
$ᛪ = 3 ;
EXPECT
########

# perl.c
use utf8;
use open qw( :utf8 :std );
{ use warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "main::ᛪ" used only once: possible typo at - line 5.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
$ȥ = 3 ;
BEGIN { $^W = 1 }
{ no warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "main::ŷ" used only once: possible typo at - line 8.
########


# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
Name "ɕლȃṢȿ::ȥ" used only once: possible typo at - line 10.
########
-w
# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3 
EXPECT
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
########
# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
BEGIN { $^W =1 ; }
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3 
EXPECT
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
########
-W
# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
OPTION random
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 7.
Name "ɕლȃṢȿ::ȥ" used only once: possible typo at - line 9.
########
-X
# perl.c
use utf8;
use open qw( :utf8 :std );
use warnings 'once' ;
package ɕლȃṢȿ;
$ᛪ = 3 ;
EXPECT
########

# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
{ use warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
$ȥ = 3 ;
BEGIN { $^W = 1 }
{ no warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "ɕლȃṢȿ::ŷ" used only once: possible typo at - line 9.
########

use warnings 'once';
$foo++; BEGIN { eval q|@a =~ s///; sub foo;| }
EXPECT
Name "main::foo" used only once: possible typo at - line 3.
########

use warnings 'once';
BEGIN { ${"_<".__FILE__} = \1 } # should not affect file name in warning
$foo++;
EXPECT
Name "main::foo" used only once: possible typo at - line 4.
########

use warnings 'once'; # necessary to trigger the crash
BEGIN{*MUSHROOMS::mushrooms::MUSHROOMS:: = *MUSHROOMS::} # circularity
$foo++;
EXPECT
Name "main::foo" used only once: possible typo at - line 4.
Commit	Line	Data
599cee73 PM	1	perl.c AOK
	2
	3	gv_check(defstash)
	4	Name \"%s::%s\" used only once: possible typo
	5
0453d815 PM	6	Mandatory Warnings All TODO
	7	------------------
	8	Recompile perl with -DDEBUGGING to use -D switch [moreswitches]
	9	Unbalanced scopes: %ld more ENTERs than LEAVEs [perl_destruct]
	10	Unbalanced saves: %ld more saves than restores [perl_destruct]
	11	Unbalanced tmps: %ld more allocs than frees [perl_destruct]
	12	Unbalanced context: %ld more PUSHes than POPs [perl_destruct]
	13	Unbalanced string table refcount: (%d) for \"%s\" [perl_destruct]
	14	Scalars leaked: %ld [perl_destruct]
	15
599cee73 PM	16
	17	__END__
	18	# perl.c
4438c4b7	19	no warnings 'once' ;
0453d815	20	$x = 3 ;
4438c4b7	21	use warnings 'once' ;
0453d815 PM	22	$z = 3 ;
	23	EXPECT
	24	Name "main::z" used only once: possible typo at - line 5.
	25	########
	26	-w
	27	# perl.c
599cee73	28	$x = 3 ;
4438c4b7	29	no warnings 'once' ;
0453d815	30	$z = 3
599cee73 PM	31	EXPECT
599cee73 PM	32	Name "main::x" used only once: possible typo at - line 3.
0453d815 PM	33	########
	34	# perl.c
	35	BEGIN { $^W =1 ; }
	36	$x = 3 ;
4438c4b7	37	no warnings 'once' ;
0453d815 PM	38	$z = 3
	39	EXPECT
	40	Name "main::x" used only once: possible typo at - line 3.
	41	########
0d974c9d FC	42	# perl.c
	43	use warnings 'once';
	44	$\; # test a few
	45	$:; # punct vars
	46	$0; # and
	47	$123; # numbers
	48	$_; # and
	49	$_foo; # underscores (none of which should warn)
7bb33634 FC	50	@DB::args
	51	EXPECT
	52	########
	53	-w
	54	# perl.c
	55	print # avoid void warning
	56	$\, # test a few
	57	$:, # punct vars
	58	$0, # and
	59	$123, # numbers
	60	$_, # and
	61	$_foo, # underscores (none of which should warn)
	62	@DB::args
	63	if 0;
0d974c9d FC	64	EXPECT
0d974c9d FC	65	########
0453d815 PM	66	-W
0453d815 PM	67	# perl.c
4438c4b7	68	no warnings 'once' ;
0453d815	69	$x = 3 ;
4438c4b7	70	use warnings 'once' ;
0453d815 PM	71	$z = 3 ;
0453d815 PM	72	EXPECT
247c8d76	73	OPTION random
0453d815	74	Name "main::z" used only once: possible typo at - line 6.
a6fe520e	75	Name "main::x" used only once: possible typo at - line 4.
0453d815 PM	76	########
	77	-X
	78	# perl.c
4438c4b7	79	use warnings 'once' ;
0453d815 PM	80	$x = 3 ;
0453d815 PM	81	EXPECT
7272584d	82	########
0453d815	83
7272584d PM	84	# perl.c
	85	{ use warnings 'once' ; $x = 3 ; }
	86	$y = 3 ;
	87	EXPECT
	88	Name "main::x" used only once: possible typo at - line 3.
	89	########
	90
	91	# perl.c
	92	$z = 3 ;
	93	BEGIN { $^W = 1 }
	94	{ no warnings 'once' ; $x = 3 ; }
	95	$y = 3 ;
	96	EXPECT
	97	Name "main::y" used only once: possible typo at - line 6.
012bcf7e BF	98	########
	99
	100	# perl.c
	101	use utf8;
	102	use open qw( :utf8 :std );
	103	no warnings 'once' ;
	104	$ᛪ = 3 ;
	105	use warnings 'once' ;
	106	$ȥ = 3 ;
	107	EXPECT
	108	Name "main::ȥ" used only once: possible typo at - line 8.
	109	########
	110	-w
	111	# perl.c
	112	use utf8;
	113	use open qw( :utf8 :std );
	114	$ᛪ = 3 ;
	115	no warnings 'once' ;
	116	$ȥ = 3;
	117	EXPECT
	118	Name "main::ᛪ" used only once: possible typo at - line 5.
	119	########
	120	# perl.c
	121	use utf8;
	122	use open qw( :utf8 :std );
	123	BEGIN { $^W =1 ; }
	124	$ᛪ = 3 ;
	125	no warnings 'once' ;
	126	$ȥ = 3
	127	EXPECT
	128	Name "main::ᛪ" used only once: possible typo at - line 5.
	129	########
	130	-W
	131	# perl.c
	132	use utf8;
	133	use open qw( :utf8 :std );
	134	no warnings 'once' ;
	135	$ᛪ = 3 ;
	136	use warnings 'once' ;
	137	$ȥ = 3 ;
	138	EXPECT
	139	OPTION random
	140	Name "main::ȥ" used only once: possible typo at - line 8.
	141	Name "main::ᛪ" used only once: possible typo at - line 6.
	142	########
	143	-X
	144	# perl.c
	145	use utf8;
	146	use open qw( :utf8 :std );
	147	use warnings 'once' ;
	148	$ᛪ = 3 ;
	149	EXPECT
	150	########
	151
	152	# perl.c
	153	use utf8;
	154	use open qw( :utf8 :std );
	155	{ use warnings 'once' ; $ᛪ = 3 ; }
	156	$ŷ = 3 ;
	157	EXPECT
	158	Name "main::ᛪ" used only once: possible typo at - line 5.
	159	########
	160
	161	# perl.c
162	use utf8;
163	use open qw( :utf8 :std );
164	$ȥ = 3 ;
165	BEGIN { $^W = 1 }
166	{ no warnings 'once' ; $ᛪ = 3 ; }
167	$ŷ = 3 ;
168	EXPECT
169	Name "main::ŷ" used only once: possible typo at - line 8.
170	########
171
172
173	# perl.c
174	use utf8;
175	use open qw( :utf8 :std );
176	package ɕლȃṢȿ;
177	no warnings 'once' ;
178	$ᛪ = 3 ;
179	use warnings 'once' ;
180	$ȥ = 3 ;
181	EXPECT
182	Name "ɕლȃṢȿ::ȥ" used only once: possible typo at - line 10.
183	########
184	-w
185	# perl.c
186	use utf8;
187	use open qw( :utf8 :std );
188	package ɕლȃṢȿ;
189	$ᛪ = 3 ;
190	no warnings 'once' ;
191	$ȥ = 3
192	EXPECT
193	Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
194	########
195	# perl.c
196	use utf8;
197	use open qw( :utf8 :std );
198	package ɕლȃṢȿ;
199	BEGIN { $^W =1 ; }
200	$ᛪ = 3 ;
201	no warnings 'once' ;
202	$ȥ = 3
203	EXPECT
204	Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
205	########
206	-W
207	# perl.c
208	use utf8;
209	use open qw( :utf8 :std );
210	package ɕლȃṢȿ;
211	no warnings 'once' ;
212	$ᛪ = 3 ;
213	use warnings 'once' ;
214	$ȥ = 3 ;
215	EXPECT
216	OPTION random
217	Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 7.
218	Name "ɕლȃṢȿ::ȥ" used only once: possible typo at - line 9.
219	########
220	-X
221	# perl.c
222	use utf8;
223	use open qw( :utf8 :std );
224	use warnings 'once' ;
225	package ɕლȃṢȿ;
226	$ᛪ = 3 ;
227	EXPECT
228	########
229
230	# perl.c
231	use utf8;
232	use open qw( :utf8 :std );
233	package ɕლȃṢȿ;
234	{ use warnings 'once' ; $ᛪ = 3 ; }
235	$ŷ = 3 ;
236	EXPECT
237	Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
238	########
239
240	# perl.c
241	use utf8;
242	use open qw( :utf8 :std );
243	package ɕლȃṢȿ;
244	$ȥ = 3 ;
245	BEGIN { $^W = 1 }
246	{ no warnings 'once' ; $ᛪ = 3 ; }
247	$ŷ = 3 ;
248	EXPECT
249	Name "ɕლȃṢȿ::ŷ" used only once: possible typo at - line 9.
a73ef99b FC	250	########
	251
	252	use warnings 'once';
	253	$foo++; BEGIN { eval q\|@a =~ s///; sub foo;\| }
	254	EXPECT
	255	Name "main::foo" used only once: possible typo at - line 3.
6b352265 FC	256	########
	257
	258	use warnings 'once';
	259	BEGIN { ${"_<".__FILE__} = \1 } # should not affect file name in warning
	260	$foo++;
	261	EXPECT
	262	Name "main::foo" used only once: possible typo at - line 4.
51da40ed FC	263	########
	264
	265	use warnings 'once'; # necessary to trigger the crash
	266	BEGIN{MUSHROOMS::mushrooms::MUSHROOMS:: = MUSHROOMS::} # circularity
	267	$foo++;
	268	EXPECT
	269	Name "main::foo" used only once: possible typo at - line 4.