Cross Reference: stash.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
op
/
stash.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
qw
(../
lib
)
;
1
N/A
}
1
N/A
1
N/A
require
"./
test.pl
"
;
1
N/A
1
N/A
plan
(
tests
=>
2
)
;
1
N/A
1
N/A
# Used to segfault (bug #15479)
1
N/A
fresh_perl_is
(
1
N/A
'%:: = ""'
,
1
N/A
'Odd number of elements in hash assignment at - line 1.'
,
1
N/A
{
switches
=> [
'-w'
] },
1
N/A
'delete $::{STDERR} and print a warning'
,
1
N/A
);
1
N/A
1
N/A
# Used to segfault
1
N/A
fresh_perl_is
(
1
N/A
'BEGIN { $::{"X::"} = 2 }'
,
1
N/A
''
,
1
N/A
{
switches
=> [
'-w'
] },
1
N/A
q
(
Insert
a
non
-
GV
in
a
stash
,
under
warnings
'once'
)
,
1
N/A
);