[p5sagit/p5-mst-13.2.git] / ext / re / t / lexical_debug.pl

use re 'debug';

$_ = 'foo bar baz bop fip fop';

/foo/ and $count++;

{
    no re 'debug';
    /bar/ and $count++;
    {
        use re 'debug';
        /baz/ and $count++;
    }
    /bop/ and $count++;
}

/fip/ and $count++;

no re 'debug';

/fop/ and $count++;

use re 'debug';
my $var='zoo|liz|zap';
/($var)/ or $count++;

print "Count=$count\n";
Commit	Line	Data
f9f4320a	1	use re 'debug';
	2
	3	$_ = 'foo bar baz bop fip fop';
	4
	5	/foo/ and $count++;
	6
	7	{
	8	no re 'debug';
	9	/bar/ and $count++;
	10	{
	11	use re 'debug';
	12	/baz/ and $count++;
	13	}
	14	/bop/ and $count++;
	15	}
	16
	17	/fip/ and $count++;
	18
	19	no re 'debug';
	20
	21	/fop/ and $count++;
	22
1e2e3d02	23	use re 'debug';
de734bd5	24	my $var='zoo\|liz\|zap';
1e2e3d02	25	/($var)/ or $count++;
1e2e3d02	26
f9f4320a	27	print "Count=$count\n";
	28
	29