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