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;