diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 11:37:53 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 11:37:53 +0000 |
commit | 21820af6ee0f53064e14544ea51007cc83a40989 (patch) | |
tree | ce100dd426da09f6621b20a0c4c84afaaefad9e0 /t | |
parent | 66e2fe9258619e782889bb7a360144209169d13b (diff) | |
download | perl-21820af6ee0f53064e14544ea51007cc83a40989.tar.gz |
Faulty check.
p4raw-id: //depot/perl@20422
Diffstat (limited to 't')
-rw-r--r-- | t/test.pl | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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" ); |