X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Fwarn%2Fregcomp;h=bb208db6bd8533f9f4e90eb1b258c35e39e7d1bd;hb=dc26be07e37090ebf432f3adccc2c3bb4c6a57d6;hp=581b84a02690af131d9f5e6c5b1aa6ac6f013593;hpb=032d67713d2e36a6571c50a168530560ac8acea3;p=p5sagit%2Fp5-mst-13.2.git diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp index 581b84a..bb208db 100644 --- a/t/pragma/warn/regcomp +++ b/t/pragma/warn/regcomp @@ -143,14 +143,14 @@ no warnings 'unsafe' ; /[[:alpha:]-[:digit:]]/; /[[:digit:]-[:alpha:]]/; EXPECT -/[a-\d]/: false [] range "a-\d" in regexp at - line 6. -/[\d-b]/: false [] range "\d-" in regexp at - line 7. -/[\s-\d]/: false [] range "\s-" in regexp at - line 8. -/[\d-\s]/: false [] range "\d-" in regexp at - line 9. -/[a-[:digit:]]/: false [] range "a-[:digit:]" in regexp at - line 10. -/[[:digit:]-b]/: false [] range "[:digit:]-" in regexp at - line 11. -/[[:alpha:]-[:digit:]]/: false [] range "[:alpha:]-" in regexp at - line 12. -/[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 13. +/[a-\d]/: false [] range "a-\d" in regexp at - line 12. +/[\d-b]/: false [] range "\d-" in regexp at - line 13. +/[\s-\d]/: false [] range "\s-" in regexp at - line 14. +/[\d-\s]/: false [] range "\d-" in regexp at - line 15. +/[a-[:digit:]]/: false [] range "a-[:digit:]" in regexp at - line 16. +/[[:digit:]-b]/: false [] range "[:digit:]-" in regexp at - line 17. +/[[:alpha:]-[:digit:]]/: false [] range "[:alpha:]-" in regexp at - line 18. +/[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 19. ######## # regcomp.c [S_regclass S_regclassutf8] use warnings 'unsafe' ;