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

[paultcochrane]

Author: paultcochrane
Date: Sat Mar 17 09:15:24 2007
New Revision: 17536

Modified:
   trunk/tools/dev/mk_manifest_and_skip.pl

Log:
[tools] name changes so code is more meaningful
 - @MANI -> @MANIFEST_LINES
 - MANIFEST() -> get_manifest_entry()


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 09:15:24 2007
@@ -114,7 +114,7 @@
     push @versioned_files, $line_info[4];
 }
 
-my @MANI = ();
+my @MANIFEST_LINES = ();
 
 for my $file ( @versioned_files ) {
     # ignore the debian directory
@@ -127,10 +127,10 @@
     }
 
     # now get the manifest entry
-    MANIFEST($file);
+    get_manifest_entry($file);
 }
 
-print $MANI $_ for ( sort @MANI );
+print $MANI $_ for ( sort @MANIFEST_LINES );
 
 my $svnignore = `$cmd propget svn:ignore @dirs`;
 my %ignore;
@@ -164,7 +164,7 @@
 close $MANI;
 close $SKIP;
 
-sub MANIFEST {
+sub get_manifest_entry {
     my $file = shift;
     my $loc = '[]';
     for ($file) {
@@ -184,7 +184,7 @@
             : m[^(apps/\w+)/] ? "[$1]"
             :                   '[]';
     }
-    push @MANI, sprintf( "%- 59s %s\n", $file, $loc );
+    push @MANIFEST_LINES, sprintf( "%- 59s %s\n", $file, $loc );
 
     return;
 }