Commit | Line | Data |
---|---|---|
6b78add2 RGS |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | @INC = qw(../lib); | |
6 | } | |
7 | ||
8 | require "./test.pl"; | |
9 | ||
b862623f | 10 | plan( tests => 2 ); |
6b78add2 RGS |
11 | |
12 | # Used to segfault (bug #15479) | |
13 | fresh_perl_is( | |
14 | '%:: = ""', | |
15 | 'Odd number of elements in hash assignment at - line 1.', | |
16 | { switches => [ '-w' ] }, | |
17 | 'delete $::{STDERR} and print a warning', | |
18 | ); | |
b862623f RGS |
19 | |
20 | # Used to segfault | |
21 | fresh_perl_is( | |
22 | 'BEGIN { $::{"X::"} = 2 }', | |
23 | '', | |
24 | { switches => [ '-w' ] }, | |
25 | q(Insert a non-GV in a stash, under warnings 'once'), | |
26 | ); |