develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
fperrad
Date:
January 29, 2009 02:54
Subject:
[svn:parrot] r36140 - in trunk: lib/Parrot t/codingstd
Message ID:
20090129105410.5A89BCB9AE@x12.develooper.com
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 );



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About