This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/pat.t: White-space only
authorKarl Williamson <khw@cpan.org>
Thu, 5 Dec 2019 20:16:22 +0000 (13:16 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 14 Dec 2019 20:22:56 +0000 (13:22 -0700)
t/re/pat.t

index b03749e..8045ed4 100644 (file)
@@ -1465,13 +1465,13 @@ EOP
                             utf8::upgrade($pat) if $utf8;
                             my $should_pass =
                               (    $charset eq 'u'
-                                   || ($charset eq 'd' && $utf8)
-                                   || ($charset eq 'd' && (   $char =~ /[[:ascii:]]/
-                                                              || ord $char > 255))
-                                   || ($charset eq 'aa' && $char =~ /[[:ascii:]]/)
-                                   || ($charset eq 'l' && $locale ne 'C')
-                                   || ($charset eq 'l' && $char =~ /[[:ascii:]]/)
-                                  );
+                               || ($charset eq 'd' && $utf8)
+                               || ($charset eq 'd' && (   $char =~ /[[:ascii:]]/
+                                                       || ord $char > 255))
+                               || ($charset eq 'aa' && $char =~ /[[:ascii:]]/)
+                               || ($charset eq 'l' && $locale ne 'C')
+                               || ($charset eq 'l' && $char =~ /[[:ascii:]]/)
+                              );
                             my $name = "(?i$charset), utf8=$utf8, locale=$locale,"
                               . " char=" . sprintf "%x", ord $char;
                             no warnings 'locale';