diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 10:45:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 10:45:57 +0000 |
| commit | b7bf3a0074fce3ee1630a1018af168e21ff90908 (patch) | |
| tree | 9f38740b2d5dfc10c2ecfe983266449f5125e705 /ext/B/t/bytecode.t | |
| parent | 343d4a7b5ebf964bf385c7adaec6ad16bb25298d (diff) | |
| download | perl-b7bf3a0074fce3ee1630a1018af168e21ff90908.tar.gz | |
Fix the options.
p4raw-id: //depot/perl@20417
Diffstat (limited to 'ext/B/t/bytecode.t')
| -rw-r--r-- | ext/B/t/bytecode.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t index 75fcf2e696..d87b73223a 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); |