From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Aug 2003 10:44:19 +0000 (+0000)
Subject: Argument sanity checking.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=343d4a7b5ebf964bf385c7adaec6ad16bb25298d;p=p5sagit%2Fp5-mst-13.2.git

Argument sanity checking.

p4raw-id: //depot/perl@20416
---

diff --git a/t/test.pl b/t/test.pl
index 52fefbf..eedd0ca 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -379,9 +379,15 @@ sub _create_runperl { # Create the string to qx in runperl().
 	}
     }
     if ($args{switches}) {
+	local $Level = 2;
+	die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
+	    unless ref $args{switches} eq "ARRAY";
 	_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";
         $args{progs} = [$args{prog}]
     }
     if (defined $args{progs}) {