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 (file)
--- 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);