Codebase list libcapture-tiny-perl / eaf9bde
put debug function on one line for easy comment toggling David Golden 12 years ago
1 changed file(s) with 1 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
+1
-3
lib/Capture/Tiny.pm less more
185185 # setup pipes
186186 $stash->{$_}{$which} = IO::Handle->new for qw/tee reader/;
187187 pipe $stash->{reader}{$which}, $stash->{tee}{$which};
188 # _debug( "# pipe for $which\: " . _name($stash->{tee}{$which}) . " "
189 # . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which})
190 # . " " . fileno( $stash->{reader}{$which}) . "\n" );
188 # _debug( "# pipe for $which\: " . _name($stash->{tee}{$which}) . " " . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which}) . " " . fileno( $stash->{reader}{$which}) . "\n" );
191189 select((select($stash->{tee}{$which}), $|=1)[0]); # autoflush
192190 # setup desired redirection for parent and child
193191 $stash->{new}{$which} = $stash->{tee}{$which};