[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