This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add the 'test_harness' target to vms "makefile"
[perl5.git] / t / harness
index f7239fe..e745db8 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -47,6 +47,9 @@ foreach (keys %datahandle) {
 
 my @tests = ();
 
+# [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
+@ARGV = grep $_ && length( $_ ) => @ARGV;
+
 if (@ARGV) {
     if ($^O eq 'MSWin32') {
        @tests = map(glob($_),@ARGV);