Suppress a few compilation warnings in pp_hot.c.
[p5sagit/p5-mst-13.2.git] / t / op / context.t
1 #!./perl
2
3 $n=0;
4
5 print "1..3\n";
6
7 sub foo {
8     $a='abcd';
9
10     $a=~/(.)/g;
11
12     $1 eq 'a' or print 'not ';
13     print "ok ",++$n,"\n";
14 }
15
16 $a=foo;
17 @a=foo;
18 foo;