[svn:parrot] r43553 - branches/one_make/tools/dev

darbelo at svn.parrot.org darbelo at svn.parrot.org
Sat Jan 23 09:51:19 UTC 2010


Author: darbelo
Date: Sat Jan 23 09:51:19 2010
New Revision: 43553
URL: https://trac.parrot.org/parrot/changeset/43553

Log:
Rename a variable to avoid a warning.

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

Modified: branches/one_make/tools/dev/checkdepend.pl
==============================================================================
--- branches/one_make/tools/dev/checkdepend.pl	Sat Jan 23 09:35:33 2010	(r43552)
+++ branches/one_make/tools/dev/checkdepend.pl	Sat Jan 23 09:51:19 2010	(r43553)
@@ -44,11 +44,11 @@
 die 'no Makefile found; This tool requires a full build for analysis.'
     unless -e 'Makefile';
 
-my @files = split /\n/, `ack -fa src compilers include  | ack '\\.(c|h|pir)\$'`;
+my @incfiles = split /\n/, `ack -fa src compilers include  | ack '\\.(c|h|pir)\$'`;
 
 our %deps;
 
-foreach my $file (sort grep /\.[hc]$/, @files) {
+foreach my $file (sort grep /\.[hc]$/, @incfiles) {
     # For now, skip any files that have generated dependencies
     next if $file =~ m{src/(ops|dynoplibs|dynpmc|pmc)/};
     next if $file =~ m{src/string/(charset|encoding)/};
@@ -88,7 +88,7 @@
     }
 }
 
-foreach my $file (sort grep /\.pir$/, @files) {
+foreach my $file (sort grep /\.pir$/, @incfiles) {
     open my $fh, '<', $file;
     my $guts;
     {


More information about the parrot-commits mailing list