[perl5.git] / t / lib / strict / refs

Check strict refs functionality

__END__

# no strict, should build & run ok.
my $fred ;
$b = "fred" ;
$a = $$b ;
$c = ${"def"} ;
$c = @{"def"} ;
$c = %{"def"} ;
$c = *{"def"} ;
$c = \&{"def"} ;
$c = def->[0];
$c = def->{xyz};
EXPECT

########

# strict refs - error
use strict ;
my $str="A::Really::Big::Package::Name::To::Use"; 
$str->{foo}= 1;
EXPECT
Can't use string ("A::Really::Big::Package::Name::T"...) as a HASH ref while "strict refs" in use at - line 5.
########

# strict refs - error
use strict ;
my $fred ;
my $a = ${"fred"} ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $fred ;
my $a = ${"fred"} ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $fred ;
my $b = "fred" ;
my $a = $$b ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 6.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = $$b ;
EXPECT
Can't use an undefined value as a SCALAR reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = @$b ;
EXPECT
Can't use an undefined value as an ARRAY reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = %$b ;
EXPECT
Can't use an undefined value as a HASH reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = *$b ;
EXPECT
Can't use an undefined value as a symbol reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $a = fred->[0] ;
EXPECT
Can't use bareword ("fred") as an ARRAY ref while "strict refs" in use at - line 4.
########

# strict refs - error
use strict 'refs' ;
my $a = fred->{barney} ;
EXPECT
Can't use bareword ("fred") as a HASH ref while "strict refs" in use at - line 4.
########

# strict refs - no error
use strict ;
no strict 'refs' ;
my $fred ;
my $b = "fred" ;
my $a = $$b ;
use strict 'refs' ;
EXPECT

########

# strict refs - no error
use strict qw(subs vars) ;
my $fred ;
my $b = "fred" ;
my $a = $$b ;
use strict 'refs' ;
EXPECT

########

# strict refs - no error
my $fred ;
my $b = "fred" ;
my $a = $$b ;
use strict 'refs' ;
EXPECT

########

# strict refs - no error
use strict 'refs' ;
my $fred ;
my $b = \$fred ;
my $a = $$b ;
EXPECT

########

# Check runtime scope of strict refs pragma
use strict 'refs';
my $fred ;
my $b = "fred" ;
{
    no strict ;
    my $a = $$b ;
}
my $a = $$b ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10.
########

# Check runtime scope of strict refs pragma
no strict ;
my $fred ;
my $b = "fred" ;
{
    use strict 'refs' ;
    my $a = $$b ;
}
my $a = $$b ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
########

# Check runtime scope of strict refs pragma
no strict ;
my $fred ;
my $b = "fred" ;
{
    use strict 'refs' ;
    $a = sub { my $c = $$b ; }
}
&$a ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
########


--FILE-- abc
my $a = ${"Fred"} ;
1;
--FILE-- 
use strict 'refs' ;
require "./abc";
EXPECT

########

--FILE-- abc
use strict 'refs' ;
1;
--FILE-- 
require "./abc";
my $a = ${"Fred"} ;
EXPECT

########

--FILE-- abc
use strict 'refs' ;
my $a = ${"Fred"} ;
1;
--FILE-- 
${"Fred"} ;
require "./abc";
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at ./abc line 2.
Compilation failed in require at - line 2.
########

--FILE-- abc.pm
use strict 'refs' ;
my $a = ${"Fred"} ;
1;
--FILE-- 
my $a = ${"Fred"} ;
use abc;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at abc.pm line 2.
Compilation failed in require at - line 2.
BEGIN failed--compilation aborted at - line 2.
########

# Check scope of pragma with eval
no strict ;
eval {
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
my $a = ${"Fred"} ;
EXPECT

########

# Check scope of pragma with eval
no strict ;
eval {
    use strict 'refs' ;
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
my $a = ${"Fred"} ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 6.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval {
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 5.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval {
    no strict ;
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
my $a = ${"Fred"} ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 9.
########

# Check scope of pragma with eval
no strict ;
eval '
    my $a = ${"Fred"} ;
'; print STDERR $@ ;
my $a = ${"Fred"} ;
EXPECT

########

# Check scope of pragma with eval
no strict ;
eval q[ 
    use strict 'refs' ;
    my $a = ${"Fred"} ;
]; print STDERR $@;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 3.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval '
    my $a = ${"Fred"} ;
'; print STDERR $@ ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 2.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval '
    no strict ;
    my $a = ${"Fred"} ;
'; print STDERR $@;
my $a = ${"Fred"} ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 8.
########
# [perl #26910] hints not propagated into (?{...})
use strict 'refs';
/(?{${"foo"}++})/;
EXPECT
Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.
########
# [perl #37886] strict 'refs' doesn't apply inside defined
use strict 'refs';
my $x = "foo";
defined $$x;
EXPECT
Can't use string ("foo") as a SCALAR ref while "strict refs" in use at - line 4.
########
# [perl #37886] strict 'refs' doesn't apply inside defined
use strict 'refs';
my $x = "foo";
defined @$x;
EXPECT
Can't use string ("foo") as an ARRAY ref while "strict refs" in use at - line 4.
########
# [perl #37886] strict 'refs' doesn't apply inside defined
use strict 'refs';
my $x = "foo";
defined %$x;
EXPECT
defined(%hash) is deprecated at - line 4.
	(Maybe you should just omit the defined()?)
Can't use string ("foo") as a HASH ref while "strict refs" in use at - line 4.
########
# [perl #74168] Assertion failed: (SvTYPE(_svcur) >= SVt_PV), function Perl_softref2xv, file pp.c, line 240.
use strict 'refs';
my $o = 1 ; $o->{1} ;
EXPECT
Can't use string ("1") as a HASH ref while "strict refs" in use at - line 3.
Commit	Line	Data
8ebc5c01	1	Check strict refs functionality
	2
	3	__END__
	4
	5	# no strict, should build & run ok.
	6	my $fred ;
	7	$b = "fred" ;
	8	$a = $$b ;
	9	$c = ${"def"} ;
	10	$c = @{"def"} ;
	11	$c = %{"def"} ;
	12	$c = *{"def"} ;
	13	$c = \&{"def"} ;
44a8e56a	14	$c = def->[0];
44a8e56a	15	$c = def->{xyz};
8ebc5c01	16	EXPECT
	17
	18	########
	19
	20	# strict refs - error
	21	use strict ;
9134ea20 YO	22	my $str="A::Really::Big::Package::Name::To::Use";
	23	$str->{foo}= 1;
	24	EXPECT
	25	Can't use string ("A::Really::Big::Package::Name::T"...) as a HASH ref while "strict refs" in use at - line 5.
	26	########
	27
	28	# strict refs - error
	29	use strict ;
8ebc5c01	30	my $fred ;
	31	my $a = ${"fred"} ;
	32	EXPECT
	33	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
	34	########
	35
	36	# strict refs - error
	37	use strict 'refs' ;
	38	my $fred ;
	39	my $a = ${"fred"} ;
	40	EXPECT
	41	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
	42	########
	43
	44	# strict refs - error
	45	use strict 'refs' ;
	46	my $fred ;
	47	my $b = "fred" ;
	48	my $a = $$b ;
	49	EXPECT
	50	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 6.
	51	########
	52
	53	# strict refs - error
	54	use strict 'refs' ;
	55	my $b ;
	56	my $a = $$b ;
	57	EXPECT
	58	Can't use an undefined value as a SCALAR reference at - line 5.
	59	########
	60
	61	# strict refs - error
	62	use strict 'refs' ;
	63	my $b ;
	64	my $a = @$b ;
	65	EXPECT
	66	Can't use an undefined value as an ARRAY reference at - line 5.
	67	########
	68
	69	# strict refs - error
	70	use strict 'refs' ;
	71	my $b ;
	72	my $a = %$b ;
	73	EXPECT
	74	Can't use an undefined value as a HASH reference at - line 5.
	75	########
	76
	77	# strict refs - error
	78	use strict 'refs' ;
	79	my $b ;
	80	my $a = *$b ;
	81	EXPECT
	82	Can't use an undefined value as a symbol reference at - line 5.
	83	########
	84
44a8e56a	85	# strict refs - error
	86	use strict 'refs' ;
	87	my $a = fred->[0] ;
	88	EXPECT
	89	Can't use bareword ("fred") as an ARRAY ref while "strict refs" in use at - line 4.
	90	########
	91
	92	# strict refs - error
	93	use strict 'refs' ;
	94	my $a = fred->{barney} ;
	95	EXPECT
	96	Can't use bareword ("fred") as a HASH ref while "strict refs" in use at - line 4.
	97	########
	98
8ebc5c01	99	# strict refs - no error
	100	use strict ;
	101	no strict 'refs' ;
	102	my $fred ;
	103	my $b = "fred" ;
	104	my $a = $$b ;
	105	use strict 'refs' ;
	106	EXPECT
	107
	108	########
	109
	110	# strict refs - no error
	111	use strict qw(subs vars) ;
	112	my $fred ;
	113	my $b = "fred" ;
	114	my $a = $$b ;
	115	use strict 'refs' ;
	116	EXPECT
	117
	118	########
	119
	120	# strict refs - no error
	121	my $fred ;
	122	my $b = "fred" ;
	123	my $a = $$b ;
	124	use strict 'refs' ;
	125	EXPECT
	126
	127	########
	128
	129	# strict refs - no error
	130	use strict 'refs' ;
	131	my $fred ;
	132	my $b = \$fred ;
	133	my $a = $$b ;
	134	EXPECT
	135
	136	########
	137
	138	# Check runtime scope of strict refs pragma
	139	use strict 'refs';
	140	my $fred ;
	141	my $b = "fred" ;
	142	{
	143	no strict ;
	144	my $a = $$b ;
	145	}
	146	my $a = $$b ;
	147	EXPECT
	148	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10.
	149	########
	150
	151	# Check runtime scope of strict refs pragma
	152	no strict ;
	153	my $fred ;
	154	my $b = "fred" ;
	155	{
	156	use strict 'refs' ;
	157	my $a = $$b ;
	158	}
	159	my $a = $$b ;
	160	EXPECT
	161	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
	162	########
163
164	# Check runtime scope of strict refs pragma
165	no strict ;
166	my $fred ;
167	my $b = "fred" ;
168	{
169	use strict 'refs' ;
170	$a = sub { my $c = $$b ; }
171	}
172	&$a ;
173	EXPECT
174	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
175	########
176
177
178	--FILE-- abc
179	my $a = ${"Fred"} ;
180	1;
181	--FILE--
182	use strict 'refs' ;
183	require "./abc";
184	EXPECT
185
186	########
187
188	--FILE-- abc
189	use strict 'refs' ;
190	1;
191	--FILE--
192	require "./abc";
193	my $a = ${"Fred"} ;
194	EXPECT
195
196	########
197
198	--FILE-- abc
199	use strict 'refs' ;
200	my $a = ${"Fred"} ;
201	1;
202	--FILE--
203	${"Fred"} ;
204	require "./abc";
205	EXPECT
206	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at ./abc line 2.
5a844595	207	Compilation failed in require at - line 2.
8ebc5c01	208	########
	209
	210	--FILE-- abc.pm
	211	use strict 'refs' ;
	212	my $a = ${"Fred"} ;
	213	1;
	214	--FILE--
	215	my $a = ${"Fred"} ;
	216	use abc;
	217	EXPECT
	218	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at abc.pm line 2.
5a844595	219	Compilation failed in require at - line 2.
8ebc5c01	220	BEGIN failed--compilation aborted at - line 2.
	221	########
	222
	223	# Check scope of pragma with eval
	224	no strict ;
	225	eval {
	226	my $a = ${"Fred"} ;
	227	};
	228	print STDERR $@ ;
	229	my $a = ${"Fred"} ;
	230	EXPECT
	231
	232	########
	233
	234	# Check scope of pragma with eval
	235	no strict ;
	236	eval {
	237	use strict 'refs' ;
	238	my $a = ${"Fred"} ;
	239	};
	240	print STDERR $@ ;
	241	my $a = ${"Fred"} ;
	242	EXPECT
	243	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 6.
	244	########
	245
	246	# Check scope of pragma with eval
	247	use strict 'refs' ;
	248	eval {
	249	my $a = ${"Fred"} ;
	250	};
	251	print STDERR $@ ;
	252	EXPECT
	253	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 5.
	254	########
	255
	256	# Check scope of pragma with eval
	257	use strict 'refs' ;
	258	eval {
	259	no strict ;
	260	my $a = ${"Fred"} ;
	261	};
	262	print STDERR $@ ;
	263	my $a = ${"Fred"} ;
	264	EXPECT
	265	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 9.
	266	########
	267
	268	# Check scope of pragma with eval
	269	no strict ;
	270	eval '
	271	my $a = ${"Fred"} ;
	272	'; print STDERR $@ ;
	273	my $a = ${"Fred"} ;
	274	EXPECT
	275
	276	########
	277
	278	# Check scope of pragma with eval
	279	no strict ;
	280	eval q[
	281	use strict 'refs' ;
	282	my $a = ${"Fred"} ;
	283	]; print STDERR $@;
284	EXPECT
285	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 3.
286	########
287
288	# Check scope of pragma with eval
289	use strict 'refs' ;
290	eval '
291	my $a = ${"Fred"} ;
292	'; print STDERR $@ ;
293	EXPECT
294	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 2.
295	########
296
297	# Check scope of pragma with eval
298	use strict 'refs' ;
299	eval '
300	no strict ;
301	my $a = ${"Fred"} ;
302	'; print STDERR $@;
303	my $a = ${"Fred"} ;
304	EXPECT
305	Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 8.
35d90494 RGS	306	########
	307	# [perl #26910] hints not propagated into (?{...})
	308	use strict 'refs';
	309	/(?{${"foo"}++})/;
	310	EXPECT
	311	Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.
2e6a7e23 RGS	312	########
	313	# [perl #37886] strict 'refs' doesn't apply inside defined
	314	use strict 'refs';
	315	my $x = "foo";
	316	defined $$x;
	317	EXPECT
	318	Can't use string ("foo") as a SCALAR ref while "strict refs" in use at - line 4.
d9f30342 NC	319	########
	320	# [perl #37886] strict 'refs' doesn't apply inside defined
	321	use strict 'refs';
	322	my $x = "foo";
	323	defined @$x;
	324	EXPECT
	325	Can't use string ("foo") as an ARRAY ref while "strict refs" in use at - line 4.
	326	########
	327	# [perl #37886] strict 'refs' doesn't apply inside defined
	328	use strict 'refs';
	329	my $x = "foo";
	330	defined %$x;
	331	EXPECT
d47e1c27 NC	332	defined(%hash) is deprecated at - line 4.
d47e1c27 NC	333	(Maybe you should just omit the defined()?)
d9f30342	334	Can't use string ("foo") as a HASH ref while "strict refs" in use at - line 4.
10b53e54	335	########
2ee5986a	336	# [perl #74168] Assertion failed: (SvTYPE(_svcur) >= SVt_PV), function Perl_softref2xv, file pp.c, line 240.
10b53e54 RGS	337	use strict 'refs';
	338	my $o = 1 ; $o->{1} ;
	339	EXPECT
	340	Can't use string ("1") as a HASH ref while "strict refs" in use at - line 3.