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