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