Author: bernhard
Date: Mon Mar 13 11:10:43 2006
New Revision: 11889
Modified:
trunk/languages/pugs/t/harness
Log:
Pugs test files are in subdirs of 't'
Modified: trunk/languages/pugs/t/harness
==============================================================================
--- trunk/languages/pugs/t/harness (original)
+++ trunk/languages/pugs/t/harness Mon Mar 13 11:10:43 2006
@@ -39,7 +39,7 @@
if ( grep { m/^--files$/ } @ARGV ) {
# Only the Makefile in 'parrot/languages' uses --files
my $dir = File::Spec->catfile( $language, 't' );
- my @files = glob( File::Spec->catfile( $dir, '*.t' ) );
+ my @files = glob( File::Spec->catfile( $dir, '*', '*.t' ) );
print join( "\n", @files );
print "\n" if scalar(@files);
} else {
