[svn:parrot] r43599 - trunk/tools/dev

cotto at svn.parrot.org cotto at svn.parrot.org
Tue Jan 26 09:10:50 UTC 2010


Author: cotto
Date: Tue Jan 26 09:10:50 2010
New Revision: 43599
URL: https://trac.parrot.org/parrot/changeset/43599

Log:
[checkdepends] minor readability improvements

Modified:
   trunk/tools/dev/checkdepend.pl

Modified: trunk/tools/dev/checkdepend.pl
==============================================================================
--- trunk/tools/dev/checkdepend.pl	Tue Jan 26 09:09:03 2010	(r43598)
+++ trunk/tools/dev/checkdepend.pl	Tue Jan 26 09:10:50 2010	(r43599)
@@ -74,14 +74,14 @@
     foreach my $include (@includes) {
         # same dir as file?
         my $file_dir = (File::Spec->splitpath($file))[1];
-        my $make_dep = collapse_path(File::Spec->catfile($file_dir,$include));
+        my $make_dep = collapse_path(File::Spec->catfile($file_dir, $include));
         if (defined($make_dep) && -f $make_dep) {
             push @{$deps{$file}}, $make_dep;
             next;
         }
 
         # global 'include' dir?
-        $make_dep = collapse_path(File::Spec->catfile('include',$include));
+        $make_dep = collapse_path(File::Spec->catfile('include', $include));
         if (defined($make_dep) && -f $make_dep) {
             push @{$deps{$file}}, $make_dep;
             next;
@@ -120,19 +120,19 @@
     foreach my $include (@includes) {
         # same dir as file?
         my $file_dir = (File::Spec->splitpath($file))[1];
-        my $make_dep = collapse_path(File::Spec->catfile($file_dir,$include));
+        my $make_dep = collapse_path(File::Spec->catfile($file_dir, $include));
         if (defined($make_dep) && -f $make_dep) {
             push @{$deps{$file}}, $make_dep;
             next;
         }
 
         # global 'runtime' dir?
-        $make_dep = collapse_path(File::Spec->catfile('runtime/parrot/include',$include));
+        $make_dep = collapse_path(File::Spec->catfile('runtime/parrot/include', $include));
         if (defined($make_dep) && -f $make_dep) {
             push @{$deps{$file}}, $make_dep;
             next;
         }
-        $make_dep = collapse_path(File::Spec->catfile('runtime/parrot/library',$include));
+        $make_dep = collapse_path(File::Spec->catfile('runtime/parrot/library', $include));
         if (defined($make_dep) && -f $make_dep) {
             push @{$deps{$file}}, $make_dep;
             next;


More information about the parrot-commits mailing list