Commit | Line | Data |
599cee73 |
1 | regcomp.c AOK |
2 | |
3 | %.*s matches null string many times |
4 | |
5 | $a = "ABC123" ; $a =~ /(?=a)*/' |
6 | |
7 | Strange *+?{} on zero-length expression |
8 | |
9 | /(?=a)?/ |
10 | |
11 | Character class syntax [: :] is reserved for future extensions |
12 | /[a[:xyz:]b]/ |
13 | |
14 | Character class syntax [. .] is reserved for future extensions |
15 | Character class syntax [= =] is reserved for future extensions |
16 | |
17 | __END__ |
18 | # regcomp.c |
19 | use warning 'unsafe' ; |
20 | my $a = "ABC123" ; |
21 | $a =~ /(?=a)*/ ; |
22 | EXPECT |
23 | (?=a)* matches null string many times at - line 4. |
24 | ######## |
25 | # regcomp.c |
26 | use warning 'unsafe' ; |
27 | $_ = "" ; |
28 | /(?=a)?/; |
29 | EXPECT |
30 | Strange *+?{} on zero-length expression at - line 4. |
31 | ######## |
32 | # regcomp.c |
33 | use warning 'unsafe' ; |
34 | $_ = "" ; |
35 | /[a[:xyz:]b]/; |
36 | /[a[.xyz.]b]/; |
37 | /[a[=xyz=]b]/; |
38 | EXPECT |
39 | Character class syntax [: :] is reserved for future extensions at - line 4. |
40 | Character class syntax [. .] is reserved for future extensions at - line 5. |
41 | Character class syntax [= =] is reserved for future extensions at - line 6. |
42 | ######## |
43 | # regcomp.c |
44 | use warning 'unsafe' ; |
45 | # use utf8 ; # Note this line should be uncommented when utf8 gets fixed. |
46 | $_ = "" ; |
47 | /[a[:xyz:]b]/; |
48 | /[a[.xyz.]b]/; |
49 | /[a[=xyz=]b]/; |
50 | EXPECT |
51 | Character class syntax [: :] is reserved for future extensions at - line 5. |
52 | Character class syntax [. .] is reserved for future extensions at - line 6. |
53 | Character class syntax [= =] is reserved for future extensions at - line 7. |