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

[paultcochrane]

Author: paultcochrane
Date: Sat Mar 17 07:32:14 2007
New Revision: 17529

Modified:
   trunk/tools/dev/mk_manifest_and_skip.pl

Log:
[tools]
 - corrected if statement to use $_ properly.  thanks to kid51++
 - added todo items for more work


Modified: trunk/tools/dev/mk_manifest_and_skip.pl
==============================================================================
--- trunk/tools/dev/mk_manifest_and_skip.pl     (original)
+++ trunk/tools/dev/mk_manifest_and_skip.pl     Sat Mar 17 07:32:14 2007
@@ -144,10 +144,13 @@
     return if $File::Find::name =~ m{runtime.parrot.library.PAST};
 
     $File::Find::name =~ s[^\./][];
+    # TODO: change to if (-d $_) { push @dirs, $File::Find::name; }
     -d and push @dirs, $File::Find::name;
 
+    #my $result = system(qq($cmd propget svn:mime-type $_));
+    # TODO: -f $svnbase should be -f $_
     my $svnbase = ".svn/text-base/$_.svn-base";
-    if (-f $svnbase and -e $svnbase) {
+    if (-f $_ and -e $svnbase) {
         MANIFEST();
     }
 
@@ -178,6 +181,8 @@
     return;
 }
 
+# TODO: move these closes above the sub definitions
+
 close $MANI;
 close $SKIP;