[codingstd] add check for PIR files.

See TT #554 git-svn-id: https://svn.parrot.org/parrot/trunk@38114 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Apr 15, 2009 · e95c8ef · e95c8ef
1 parent c123d6d
commit e95c8ef
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/t/codingstd/svn_id.t b/t/codingstd/svn_id.t
@@ -35,12 +35,12 @@ L<docs/pdds/pdd07_codingstd.pod>
 
 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_make_language_files(),
+    $DIST->get_perl_language_files(),
+    $DIST->get_pir_language_files(),
+);
 my @no_id_files;
 
 foreach my $file (@files) {