Author: coke
Date: Wed Aug 6 11:06:50 2008
New Revision: 30065
Modified:
trunk/t/codingstd/filenames.t
Log:
Don't complain about files in ports/ - they may need to break the rules.
Modified: trunk/t/codingstd/filenames.t
==============================================================================
--- trunk/t/codingstd/filenames.t (original)
+++ trunk/t/codingstd/filenames.t Wed Aug 6 11:06:50 2008
@@ -60,7 +60,13 @@
my $DIST = Parrot::Distribution->new;
my $manifest = maniread('MANIFEST');
-my @files = @ARGV ? @ARGV : sort keys %$manifest;
+my @files;
+if (@ARGV){
+ @files = @ARGV;
+} else {
+ # Give ports a little more leeway
+ @files = grep {! /^ports/} sort keys %$manifest;
+}
my ( @multi_dots, @strange_chars, @too_long );
foreach my $file ( @files ) {
