diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-17 06:40:14 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-17 13:09:00 -0800 |
| commit | 56e46aaa876d925e9c1fc6c27d59744244166737 (patch) | |
| tree | 020e3a7352b143b5084ade9ee652210931a9a803 | |
| parent | 482291d6e85474382a3a0d290410e77856799540 (diff) | |
| download | perl-56e46aaa876d925e9c1fc6c27d59744244166737.tar.gz | |
diag.t: Don’t check ‘calls’ in column 0
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.
| -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 aa46d9e8a6..6684d990ad 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; |