[svn:parrot] r42358 - branches/pmc_headers_move/tools/dev

bacek at svn.parrot.org bacek at svn.parrot.org
Sun Nov 8 09:45:15 UTC 2009


Author: bacek
Date: Sun Nov  8 09:45:14 2009
New Revision: 42358
URL: https://trac.parrot.org/parrot/changeset/42358

Log:
Check generated .c files from .pmc in checkdepend.pl

Modified:
   branches/pmc_headers_move/tools/dev/checkdepend.pl

Modified: branches/pmc_headers_move/tools/dev/checkdepend.pl
==============================================================================
--- branches/pmc_headers_move/tools/dev/checkdepend.pl	Sun Nov  8 09:28:15 2009	(r42357)
+++ branches/pmc_headers_move/tools/dev/checkdepend.pl	Sun Nov  8 09:45:14 2009	(r42358)
@@ -23,7 +23,7 @@
 =cut
 
 # TODO Unskip pmc generated files.
-my $files = `ack -fa . | grep '\\.c\$' | grep -v 'src/pmc/'`;
+my $files = `ack -fa . | grep '\\.c\$'`;
 
 my %deps;
 
@@ -77,9 +77,12 @@
             $make_dep = collapse_path(File::Spec->catfile('include', $inc));
             next if defined($make_dep) && ($declared =~ /\b\Q$make_dep\E\b/);
 
+            # Try to costruct "pmc" include
+            $make_dep = collapse_path(File::Spec->catfile('include', 'pmc', $inc));
+            next if defined($make_dep) && ($declared =~ /\b\Q$make_dep\E\b/);
+
             # this isn't the actual comparison, just to give nice output
             # on failure.
-            diag "make_dep $make_dep\n";
             is($inc, $declared, $file);
             $failed = 1;
         }


More information about the parrot-commits mailing list