From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Aug 2003 10:45:57 +0000 (+0000)
Subject: Fix the options.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7bf3a0074fce3ee1630a1018af168e21ff90908;p=p5sagit%2Fp5-mst-13.2.git

Fix the options.

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

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 75fcf2e..d87b732 100644
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -22,7 +22,8 @@ for (@tests) {
     my ($script, $expect) = split />>>+\n/;
     $expect =~ s/\n$//;
     open T, ">$test"; print T $script; close T;
-    $got = run_perl(switches => "-MO=Bytecode,-H,-o$test",
+    $got = run_perl(switches => [ "-MO=Bytecode,-H,-o$test" ],
+		    stderr   => 1,
 		    progfile => $test);
     unless ($?) {
 	$got = run_perl(progfile => $test);