diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-11 21:58:38 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-11 22:28:14 -0800 |
commit | 605eee6061b9fb79ab7be45ac13eaf417fd8db4f (patch) | |
tree | b1b626857bcacf6cd1f6cf849594248673e327f1 /t | |
parent | 487e470dbd7a885bb6a92a735b2783e1c6740066 (diff) | |
download | perl-605eee6061b9fb79ab7be45ac13eaf417fd8db4f.tar.gz |
diag.t: Ignore trailing whitespace
If we don’t ignore trailing whitespace after ); then we end up search-
ing for the next ); in the file and skip the next message if the );
belongs to it.
Diffstat (limited to 't')
-rw-r--r-- | t/porting/diag.t | 2 |
1 files changed, 1 insertions, 1 deletions
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 |