This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test that a leading '_' is ok in \x{}, \o{}
authorKarl Williamson <khw@cpan.org>
Wed, 22 Jan 2020 21:47:00 +0000 (14:47 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 23 Jan 2020 22:46:55 +0000 (15:46 -0700)
These are ok perhaps accidentally, but shouldn't accidentally become not
ok

t/re/re_tests

index d1889a6..38aae34 100644 (file)
@@ -2018,6 +2018,8 @@ AB\s+\x{100}      AB \x{100}X     y       -       -
 /\x{30c3}?[\x{30a2}\x{30a4}\x{30a6}\x{30a8}\x{30aa}-\x{30e2}\x{30e4}\x{30e6}\x{30e8}-\x{30f4}](?:[\x{30e3}\x{30e5}\x{30e7}\x{30a1}\x{30a3}\x{30a5}\x{30a7}\x{30a9}])?\x{30fc}?\x{30f3}?/       \x{30de}\x{30fc}\x{30af}\x{30b5}\x{30fc}\x{30d3}\x{30b9}        y       $&      \x{30de}\x{30fc}        # part of [perl #133942
 /[\x{3041}-\x{3093}]+/ \x{6f22}\x{5b57}\x{3001}\x{30ab}\x{30bf}\x{30ab}\x{30ca}\x{3001}\x{3072}\x{3089}\x{304c}\x{306a}\x{306e}\x{5165}\x{3063}\x{305f}String  y       $&      \x{3072}\x{3089}\x{304c}\x{306a}\x{306e}        # [perl #133978]
 /(?:0)|(?:)(?:[1-9])/  q0      y       $&      0       # [https://github.com/Perl/perl5/issues/17372]
+/\x{_1_0000}/  \x{10000}       y       $&      \x{10000}               # khw doesn't like leading underscores, but don't rmv them accidentally
+/\o{_1_0000}/  \o{10000}       y       $&      \o{10000}
 # Keep these lines at the end of the file
 # pat  string  y/n/etc expr    expected-expr   skip-reason     comment
 # vim: softtabstop=0 noexpandtab