From 56e46aaa876d925e9c1fc6c27d59744244166737 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 17 Nov 2013 06:40:14 -0800 Subject: [PATCH] =?utf8?q?diag.t:=20Don=E2=80=99t=20check=20=E2=80=98calls?= =?utf8?q?=E2=80=99=20in=20column=200?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit because they may be function declarations instead. It was getting confused by win32_croak_not_implemented, which does not have ");" in it before the first string. --- t/porting/diag.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/porting/diag.t b/t/porting/diag.t index aa46d9e..6684d99 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -240,7 +240,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*\(/) { + if (m/(?!^)\b(?:$source_msg_re(?:_nocontext)?|$regcomp_re)\s*\(/) { while (not m/\);$/) { my $nextline = <$codefh>; # Means we fell off the end of the file. Not terribly surprising; -- 2.7.4