diff options
| -rw-r--r-- | pod/perldiag.pod | 2 | ||||
| -rw-r--r-- | t/porting/diag.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pod/perldiag.pod b/pod/perldiag.pod index d1bb1ebac1..20696d81e4 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -3307,7 +3307,7 @@ file-specification as an argument. See L<perlfunc/require>. (F) Missing right brace in C<\x{...}>, C<\p{...}>, C<\P{...}>, or C<\N{...}>. -=item Missing right brace on \\N{} +=item Missing right brace on \N{} =item Missing right brace on \N{} or unescaped left brace after \N diff --git a/t/porting/diag.t b/t/porting/diag.t index 0bbc21b634..9d835efc67 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -266,7 +266,7 @@ sub check_file { my $multiline = 0; # Loop to accumulate the message text all on one line. if (m/(?!^)\b(?:$source_msg_re(?:_nocontext)?|$regcomp_re)\s*\(/) { - while (not m/\);$/) { + while (not m/\);\s*$/) { my $nextline = <$codefh>; # Means we fell off the end of the file. Not terribly surprising; # this code tries to merge a lot of things that aren't regular C |