Suppress a few compilation warnings in pp_hot.c.
[p5sagit/p5-mst-13.2.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 => 1 );
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 );