diff options
Diffstat (limited to 't/TestCapture.pm')
-rw-r--r-- | t/TestCapture.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/TestCapture.pm b/t/TestCapture.pm index c7f31e3..8e8bf95 100644 --- a/t/TestCapture.pm +++ b/t/TestCapture.pm @@ -49,13 +49,13 @@ sub test_stream { return 1; } sub TestCapture { my ($argv, %kw) = @_; - $kw{result} = 0 unless exists $kw{result}; + $kw{result} = 1 unless exists $kw{result}; $kw{code} = 0 unless exists $kw{code}; my $cap; if (ref($argv) eq 'ARRAY') { $cap = new POSIX::Run::Capture $argv; } elsif (ref($argv) eq 'HASH') { |