[perl5.git] / ext / re / t / lexical_debug.pl

use re 'debug';

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

/foo/ and $count++;

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

{
    use re 'debug';
    /boq/ and $count++;
    no re;
    /bor/ 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 YO	1	use re 'debug';
f9f4320a YO	2
3ab1d973	3	$_ = 'foo bar baz bop boq bor fip fop';
f9f4320a YO	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
3ab1d973 KW	17	{
	18	use re 'debug';
	19	/boq/ and $count++;
	20	no re;
	21	/bor/ and $count++;
	22	}
	23
f9f4320a YO	24	/fip/ and $count++;
	25
	26	no re 'debug';
	27
	28	/fop/ and $count++;
	29
1e2e3d02	30	use re 'debug';
de734bd5	31	my $var='zoo\|liz\|zap';
1e2e3d02 YO	32	/($var)/ or $count++;
1e2e3d02 YO	33
f9f4320a YO	34	print "Count=$count\n";
	35
	36