This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a case of segfault in gv_check(), by making
[perl5.git] / t / op / stash.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = qw(../lib);
6 }
7
8 require "./test.pl";
9
10 plan( tests => 2 );
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 );
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 );