[svn:parrot] r38368 - trunk/t/codingstd

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sun Apr 26 12:51:35 2009
New Revision: 38368
URL: https://trac.parrot.org/parrot/changeset/38368

Log:
[codingstd] add check for PIR files

Modified:
   trunk/t/codingstd/copyright.t

Modified: trunk/t/codingstd/copyright.t
==============================================================================
--- trunk/t/codingstd/copyright.t	Sun Apr 26 10:42:09 2009	(r38367)
+++ trunk/t/codingstd/copyright.t	Sun Apr 26 12:51:35 2009	(r38368)
@@ -36,12 +36,12 @@
 
 my $DIST = Parrot::Distribution->new;
 
-my @c_files    = $DIST->get_c_language_files();
-my @perl_files = $DIST->get_perl_language_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 @files = @ARGV ? <@ARGV> : (
+    $DIST->get_c_language_files(),
+    $DIST->get_perl_language_files(),
+    $DIST->get_make_language_files(),
+    $DIST->get_pir_language_files(),
+);
 my (
     @no_copyright_files,
     @bad_format_copyright_files,