[perl5.git] / t / op / context.t

#!./perl

$n=0;

print "1..3\n";

sub foo {
    $a='abcd';

    $a=~/(.)/g;

    $1 eq 'a' or print 'not ';
    print "ok ",++$n,"\n";
}

$a=foo;
@a=foo;
foo;
Commit	Line	Data
3409ec4c F	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;