--- harness.orig	Tue Oct 21 16:48:00 2003
+++ harness	Tue Oct 21 16:41:24 2003
@@ -19,5 +19,5 @@
 @ARGV = grep $_ ne 'quick', @ARGV;
 
 # Pass in a list of tests to run on the command line, else run all the tests.
-my @tests = @ARGV ? @ARGV : map { glob( "t/$_/*.t" ) } ( qw(src op pmc native_pbc) );
+my @tests = @ARGV ? map { glob($_) } @ARGV : map { glob( "t/$_/*.t" ) } ( qw(src op pmc native_pbc) );
 runtests(@tests);