Permalink
Browse files

my $*OUT. tadzik++

  • Loading branch information...
1 parent c1e29f4 commit a83981981f775a94612569ae4e4c6cd886c05922 @sergot committed Apr 14, 2012
Showing with 1 addition and 3 deletions.
  1. +1 −3 lib/IO/Capture/Simple.pm
View
@@ -9,16 +9,14 @@ multi sub capture(Block $code) is export {
multi sub capture_stdout(Block $code) is export {
my $result;
- $*OUT = class {
+ my $*OUT = class {
method print(*@args) {
$result ~= @args.join;
}
}
$code.();
- $*OUT = $stdout;
-
$result;
}

0 comments on commit a839819

Please sign in to comment.