[svn:parrot] r36140 - in trunk: lib/Parrot t/codingstd

[fpe...@cvs.perl.org]

Author: fperrad
Date: Thu Jan 29 02:54:07 2009
New Revision: 36140

Modified:
trunk/lib/Parrot/Distribution.pm
trunk/t/codingstd/copyright.t

Log:
[codingstd] add check of copyright for Makefile

Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm (original)
+++ trunk/lib/Parrot/Distribution.pm Thu Jan 29 02:54:07 2009
@@ -321,6 +321,24 @@
return shift->directory_exists_with_name('.git');
}

+=item C<get_make_language_files()>
+
+Returns the Make language source files within Parrot.
+
+=cut
+
+sub get_make_language_files {
+ my ($self) = @_;
+
+ # Look through the list of distribution files
+ # and return a sorted list of filenames
+ my @files = sort
+ map { $self->file_with_name($_) }
+ grep { m|[/\\]makefiles[/\\][a-z]+\.in$| }
+ $self->_dist_files;
+ return @files;
+}
+
=item C<get_c_language_files()>

Returns the C language source files within Parrot. Namely:

Modified: trunk/t/codingstd/copyright.t
==============================================================================
--- trunk/t/codingstd/copyright.t (original)
+++ trunk/t/codingstd/copyright.t Thu Jan 29 02:54:07 2009
@@ -38,7 +38,8 @@
my $skip_files = $DIST->generated_files();
my @c_files = $DIST->get_c_language_files();
my @perl_files = $DIST->get_perl_language_files();
-my @all_files = ( @c_files, @perl_files );
+my @make_files = $DIST->get_make_language_files();
+my @all_files = ( @c_files, @perl_files, @make_files );

my @files = @ARGV ? @ARGV : @all_files;
my ( @no_copyright_files, @outdated_copyright_files );