public
Created

  • Download Gist
gistfile1.txt
1 2 3 4 5 6 7 8 9 10 11 12 13 14
--- RedirectStdOutput.pm 2011-05-01 14:56:33.718750000 +0200
+++ RedirectStdOutput.pm 2011-05-01 14:57:01.062500000 +0200
@@ -150,7 +150,10 @@
}
 
sub BINMODE {
- _buildMessage_Die('have their mode changed');
+ my ( $self, $layer ) = @_;
+
+ return binmode $self->{h_old}, $layer if $layer;
+ return binmode $self->{h_old};
}
 
sub OPEN {

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.