3 # Make sure pos / resetting pos on failed match works
16 ## Early bailout of pp_match because matchlen > stringlen
24 is(pos($str), 2, 'pos correct');
26 $str =~ /toolongtomatch/g;
28 is(pos($str), undef, 'pos undef after failed match');
37 is(pos, 2, 'pos correct');
41 is(pos, undef, 'pos undef after failed match');
44 ## Early bail out of pp_match because ?? already matched
51 if ($str =~ m?bird?g) {
52 is(pos($str), 4, 'pos correct');
54 is(pos($str), undef, 'pos undef after failed match');
63 is(pos, 1, 'pos correct');
65 is(pos, undef, 'pos undef after failed match');