aboutsummaryrefslogtreecommitdiff
path: root/t/TestCapture.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/TestCapture.pm')
-rw-r--r--t/TestCapture.pm2
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') {

Return to:

Send suggestions and report system problems to the System administrator.