summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-12-11 21:58:38 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-12-11 22:28:14 -0800
commit605eee6061b9fb79ab7be45ac13eaf417fd8db4f (patch)
treeb1b626857bcacf6cd1f6cf849594248673e327f1 /t
parent487e470dbd7a885bb6a92a735b2783e1c6740066 (diff)
downloadperl-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.t2
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