Suppress a few compilation warnings in pp_hot.c.
[p5sagit/p5-mst-13.2.git] / t / op / context.t
CommitLineData
3409ec4c 1#!./perl
2
3$n=0;
4
5print "1..3\n";
6
7sub 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;
18foo;