Commit | Line | Data |
6b78add2 |
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 |
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 |
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 | ); |