xref: /openbsd-src/gnu/usr.bin/perl/ext/re/t/intflags.pl (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)
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