1 regcomp.c These tests have been moved to t/re/reg_mesg.t 2 except for those that explicitly test line numbers 3 and those that don't have a <-- HERE in them, and those that 4 die plus have warnings, or otherwise require special handling 5 6__END__ 7use warnings 'regexp'; 8$r=qr/(??{ q"\\b+" })/; 9"a" =~ /a$r/; # warning should come from this line 10EXPECT 11\b+ matches null string many times in regex; marked by <-- HERE in m/\b+ <-- HERE / at - line 3. 12######## 13# regcomp.c 14use warnings 'digit' ; 15my $a = qr/\o{1238456}\x{100}/; 16my $a = qr/[\o{6548321}]\x{100}/; 17no warnings 'digit' ; 18my $a = qr/\o{1238456}\x{100}/; 19my $a = qr/[\o{6548321}]\x{100}/; 20EXPECT 21Non-octal character '8'. Resolved as "\o{123}" at - line 3. 22Non-octal character '8'. Resolved as "\o{654}" at - line 4. 23######## 24# regcomp.c 25BEGIN { 26 if (ord('A') == 193) { 27 print "SKIPPED\n# Different results on EBCDIC"; 28 exit 0; 29 } 30} 31use warnings; 32$a = qr/\c,/; 33$a = qr/[\c,]/; 34no warnings 'syntax'; 35$a = qr/\c,/; 36$a = qr/[\c,]/; 37EXPECT 38"\c," is more clearly written simply as "l" at - line 9. 39"\c," is more clearly written simply as "l" at - line 10. 40######## 41# This is because currently a different error is output under 42# use re 'strict', so can't go in reg_mesg.t 43# NAME perl #126261, error message causes segfault 44# OPTION fatal 45 qr/abc[\x{df}[.00./i 46EXPECT 47Unmatched [ in regex; marked by <-- HERE in m/abc[ <-- HERE \x{df}[.00./ at - line 4. 48######## 49# NAME perl #126261, with 'use utf8' 50# OPTION fatal 51use utf8; 52no warnings 'utf8'; 53qr/abc[fi[.00./i; 54EXPECT 55Unmatched [ in regex; marked by <-- HERE in m/abc[ <-- HERE fi[.00./ at - line 4. 56######## 57# NAME perl qr/(?[[[:word]]])/ XXX Why is 'syntax' lc? 58# OPTION fatal 59qr/(?[[[:word]]])/; 60EXPECT 61Assuming NOT a POSIX class since there is no terminating ':' in regex; marked by <-- HERE in m/(?[[[:word <-- HERE ]]])/ at - line 2. 62syntax error in (?[...]) in regex m/(?[[[:word]]])/ at - line 2. 63######## 64# NAME qr/(?[ [[:digit: ])/ 65# OPTION fatal 66qr/(?[[[:digit: ])/; 67EXPECT 68Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[[:digit: ] <-- HERE )/ at - line 2. 69syntax error in (?[...]) in regex m/(?[[[:digit: ])/ at - line 2. 70######## 71# NAME qr/(?[ [:digit: ])/ 72# OPTION fatal 73qr/(?[[:digit: ])/ 74EXPECT 75Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[:digit: ] <-- HERE )/ at - line 2. 76syntax error in (?[...]) in regex m/(?[[:digit: ])/ at - line 2. 77######## 78# NAME [perl #126141] 79# OPTION fatal 80eval {/$_/}, print "$_ ==> ", $@ || "OK!\n" for "]]]]]]]]][\\", "]]]]][\\" 81EXPECT 82]]]]]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]]]]]][\ <-- HERE / at - line 2. 83]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]][\ <-- HERE / at - line 2. 84######## 85# NAME [perl #123417] 86use warnings 'regexp'; 87qr/[\N{}]/; 88qr/\N{}/; 89no warnings 'regexp'; 90qr/[\N{}]/; 91qr/\N{}/; 92no warnings 'deprecated'; 93qr/[\N{}]/; 94qr/\N{}/; 95EXPECT 96Unknown charname '' is deprecated at - line 2. 97Ignoring zero length \N{} in character class in regex; marked by <-- HERE in m/[\N{} <-- HERE ]/ at - line 2. 98Unknown charname '' is deprecated at - line 3. 99Unknown charname '' is deprecated at - line 5. 100Unknown charname '' is deprecated at - line 6. 101######## 102# NAME [perl #123417] 103# OPTION fatal 104use warnings 'regexp'; 105no warnings 'experimental::re_strict'; 106use re 'strict'; 107qr/[\N{}]/; 108EXPECT 109Unknown charname '' is deprecated at - line 5. 110Zero length \N{} in regex; marked by <-- HERE in m/[\N{} <-- HERE ]/ at - line 5. 111######## 112# NAME [perl #123417] 113# OPTION fatal 114use warnings 'regexp'; 115no warnings 'experimental::re_strict'; 116use re 'strict'; 117qr/\N{}/; 118EXPECT 119Unknown charname '' is deprecated at - line 5. 120Zero length \N{} in regex; marked by <-- HERE in m/\N{} <-- HERE / at - line 5. 121