Teach diag.t about Perl_form
authorFather Chrysostomos <sprout@cpan.org>
Mon, 21 Aug 2017 20:53:42 +0000 (13:53 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 22 Aug 2017 03:17:58 +0000 (20:17 -0700)
Some of the error-producing functions are called with Perl_form(...) as
the first argument.  diag.t did not know about this, and was missing
many cases.

t/porting/diag.t

index 86c5f08..037e237 100644 (file)
@@ -49,7 +49,7 @@ my $source_msg_re =
    "(?<routine>\\bDIE\\b|$function_re)";
 my $text_re = '"(?<text>(?:\\\\"|[^"]|"\s*[A-Z_]+\s*")*)"';
 my $source_msg_call_re = qr/$source_msg_re(?:_nocontext)? \s*
-    \((?:aTHX_)? \s*
+    \( (?: \s* Perl_form \( )? (?:aTHX_)? \s*
     (?:packWARN\d*\((?<category>.*?)\),)? \s*
     $text_re /x;
 my $bad_version_re = qr{BADVERSION\([^"]*$text_re};