From 21820af6ee0f53064e14544ea51007cc83a40989 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Aug 2003 11:37:53 +0000
Subject: Faulty check.

p4raw-id: //depot/perl@20422
---
 t/test.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 't/test.pl')

diff --git a/t/test.pl b/t/test.pl
index eedd0ca51e..0c31556140 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -385,12 +385,13 @@ sub _create_runperl { # Create the string to qx in runperl().
 	_quote_args(\$runperl, $args{switches});
     }
     if (defined $args{prog}) {
-	local $Level = 2;
-	die "test.pl:runperl(): 'progs' must be an ARRAYREF " . _where()
-	    unless ref $args{progs} eq "ARRAY";
+	die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
+	    if defined $args{progs};
         $args{progs} = [$args{prog}]
     }
     if (defined $args{progs}) {
+	die "test.pl:runperl(): 'progs' must be an ARRAYREF " . _where()
+	    unless ref $args{progs} eq "ARRAY";
         foreach my $prog (@{$args{progs}}) {
             if ($is_mswin || $is_netware || $is_vms) {
                 $runperl .= qq ( -e "$prog" );
-- 
cgit v1.2.1