1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!./perl
# Make sure pos / resetting pos on failed match works
use strict;
use warnings;
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
plan tests => 8;
## Early bailout of pp_match because matchlen > stringlen
# With a var
{
my $str = "bird";
$str =~ /i/g;
is(pos($str), 2, 'pos correct');
$str =~ /toolongtomatch/g;
is(pos($str), undef, 'pos undef after failed match');
}
# With $_
{
$_ = "bird";
m/i/g;
is(pos, 2, 'pos correct');
m/toolongtomatch/g;
is(pos, undef, 'pos undef after failed match');
}
## Early bail out of pp_match because ?? already matched
# With a var
{
my $str = "bird";
for (1..2) {
if ($str =~ m?bird?g) {
is(pos($str), 4, 'pos correct');
} else {
is(pos($str), undef, 'pos undef after failed match');
}
}
}
# With $_
{
for (1..2) {
if (m?\d?g) {
is(pos, 1, 'pos correct');
} else {
is(pos, undef, 'pos undef after failed match');
}
}
}
|
