[perl #16690] Disable t/src under testj

[via RT]

# New Ticket Created by  Daniel Grunblatt 
# Please include the string:  [perl #16690]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16690 >


This patch disables running the tests in t/src under a make testj.

Apart from that, does anyone know why test doesn't run on OpenBSD?
I get:

ar: illegal option -- s
usage:  ar -d [-Tv] archive file ...
        ar -m [-Tv] archive file ...
        ar -m [-abiTv] position archive file ...
        ar -p [-Tv] archive [file ...]
        ar -q [-cTv] archive file ...
        ar -r [-cuTv] archive file ...
        ar -r [-abciuTv] position archive file ...
        ar -t [-Tv] archive [file ...]
        ar -x [-CouTv] archive [file ...]
*** Error code 1

Daniel Grunblatt.



-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/35349/28632/5d0ee0/harness.patch


Index: t/harness
===================================================================
RCS file: /cvs/public/parrot/t/harness,v
retrieving revision 1.12
diff -u -r1.12 harness
--- t/harness   15 Aug 2002 05:01:57 -0000      1.12
+++ t/harness   21 Aug 2002 14:04:54 -0000
@@ -17,6 +17,7 @@
 $ENV{PARROT_QUICKTEST} = grep $_ eq 'quick', @ARGV;
 @ARGV = grep $_ ne 'quick', @ARGV;
 
+my @dir = ($ENV{TEST_PROG_ARGS} =~ /j/) ? ( qw(op pmc) ) : ( qw(src op pmc) );
 # 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) );
+my @tests = @ARGV ? @ARGV : map { glob( "t/$_/*.t" ) } @dir;
 runtests(@tests);