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

[paultcochrane]

Author: paultcochrane
Date: Sat Mar 17 09:18:30 2007
New Revision: 17537

Modified:
   trunk/tools/dev/mk_manifest_and_skip.pl

Log:
[tools] further variable name changes
 - $MANI -> $MANIFEST
 - $SKIP -> MANIFEST_SKIP


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:18:30 2007
@@ -67,8 +67,8 @@
 
 my $keyword = '$' . 'Id$';     # avoid an svn issue.
 my $time    = scalar gmtime;
-open my $MANI, '>', 'MANIFEST';
-print {$MANI} <<"END_HEADER";
+open my $MANIFEST, '>', 'MANIFEST';
+print {$MANIFEST} <<"END_HEADER";
 # ex: set ro:
 # $keyword
 #
@@ -80,8 +80,8 @@
 # has been told about new or deleted files.
 END_HEADER
 
-open my $SKIP, '>', 'MANIFEST.SKIP';
-print {$SKIP} <<"END_HEADER";
+open my $MANIFEST_SKIP, '>', 'MANIFEST.SKIP';
+print {$MANIFEST_SKIP} <<"END_HEADER";
 # ex: set ro: 
 # $keyword
 # generated by $0 $time UT
@@ -130,7 +130,7 @@
     get_manifest_entry($file);
 }
 
-print $MANI $_ for ( sort @MANIFEST_LINES );
+print $MANIFEST $_ for ( sort @MANIFEST_LINES );
 
 my $svnignore = `$cmd propget svn:ignore @dirs`;
 my %ignore;
@@ -151,18 +151,18 @@
 }
 
 foreach my $dir ( sort keys %ignore ) {
-    print $SKIP "# generated from svn:ignore of '$dir/'\n";
+    print $MANIFEST_SKIP "# generated from svn:ignore of '$dir/'\n";
     foreach ( sort split /\n/, $ignore{$dir} ) {
         s/\./\\./g;
         s/\*/.*/g;
-        print $SKIP $dir ne '.'
+        print $MANIFEST_SKIP $dir ne '.'
             ? "^$dir/$_\$\n^$dir/$_/\n"
             : "^$_\$\n^$_/\n";
     }
 }
 
-close $MANI;
-close $SKIP;
+close $MANIFEST;
+close $MANIFEST_SKIP;
 
 sub get_manifest_entry {
     my $file = shift;