Extend t/porting/diag.t to cover various other C-like files.
authorNicholas Clark <nick@ccl4.org>
Wed, 13 Feb 2013 15:28:13 +0000 (16:28 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 15 Feb 2013 09:54:32 +0000 (10:54 +0100)
Specifically C++ source, and files related to perly.y and x2p/a2p.y
This catches an error in an XS module embedded into the (moribund) Symbian
port, which we need to skip.

t/porting/diag.t

index d0a5b18..49090f6 100644 (file)
@@ -196,7 +196,7 @@ while (my $file = <$fh>) {
     next if $file =~ m!\A(?:ext|dist|cpan|lib|t)/!;
     chomp $file;
     $file =~ s/\s+.*//;
-    next unless $file =~ /\.(?:c|h)\z/;
+    next unless $file =~ /\.(?:c|cpp|h|y)\z/ or $file =~ /^perly\./;
     check_file($file);
 }
 close $fh or die $!;
@@ -555,6 +555,7 @@ Not an XSUB reference
 Operator or semicolon missing before %c%s
 Pattern subroutine nesting without pos change exceeded limit in regex
 Perl %s required--this is only %s, stopped
+PerlApp::TextQuery: no arguments, please
 POSIX syntax [%c %c] is reserved for future extensions in regex; marked by <-- HERE in m/%s/
 ptr wrong %p != %p fl=%x nl=%p e=%p for %d
 Recompile perl with -DDEBUGGING to use -D switch (did you mean -d ?)