1#!./perl
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = qw(../lib);
6}
7
8require "./test.pl";
9
10plan( tests => 2 );
11
12# Used to segfault (bug #15479)
13fresh_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);
19
20# Used to segfault
21fresh_perl_is(
22    'BEGIN { $::{"X::"} = 2 }',
23    '',
24    { switches => [ '-w' ] },
25    q(Insert a non-GV in a stash, under warnings 'once'),
26);
27