1use re 'Debug' => qw(DUMP FLAGS);
2our $count;
3my $code= '(?{$count++})';
4my @p= (
5 qr/(foo)(?1)?/,
6 qr/\Gfoo/,
7 qr/.*foo/,
8 qr/^foo/,
9 qr/(foo(*THEN)bar|food)/,
10 qr/a.*b.*/,
11 qr/a{1,4}\Gfoo/,
12 qr/a+/,
13 do { use re 'eval'; qr/a$code/},
14);
15
16print STDERR "-OK-\n";
17