[svn:parrot] rev 7801 - trunk/tools/dev

[leo]

Author: leo
Date: Mon Apr 11 05:04:56 2005
New Revision: 7801

Modified:
   trunk/tools/dev/manicheck.pl
Log:
ignore .svn

Modified: trunk/tools/dev/manicheck.pl
==============================================================================
--- trunk/tools/dev/manicheck.pl        (original)
+++ trunk/tools/dev/manicheck.pl        Mon Apr 11 05:04:56 2005
@@ -26,7 +26,7 @@
 use strict;
 
 # CVS built-in patterns
-my @base_patterns = qw(^CVS$ ^\.cvsignore$ ^core$ ^.*\.o$);
+my @base_patterns = qw(^\.svn$ ^\.cvsignore$ ^core$ ^.*\.o$);
 
 use ExtUtils::Manifest;
 
@@ -120,7 +120,7 @@
   my @path = split(/\//, $file);
   my $dir = "";
 
-  foreach my $element (@path) {  
+  foreach my $element (@path) {
     if ($ignore_dirs{$dir}) {
       foreach my $pattern (@{$ignore_dirs{$dir}}) {
        return 1 if $element =~ m/$pattern/;