[p5sagit/p5-mst-13.2.git] / t / foo

#!./perl

$_ = 'aaabbbccc';
if (/(a+b+c+)/ && $1 eq 'aaabbbccc') {
	print "ok 14\n";
} else {
	print "not ok 14\n";
}
Commit	Line	Data
79072805	1	#!./perl
	2
	3	$_ = 'aaabbbccc';
	4	if (/(a+b+c+)/ && $1 eq 'aaabbbccc') {
	5	print "ok 14\n";
	6	} else {
	7	print "not ok 14\n";
	8	}