source: vendor/perl/5.8.8/t/op/context.t

Last change on this file was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 159 bytes
Line 
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;
Note: See TracBrowser for help on using the repository browser.