Skip to content

Instantly share code, notes, and snippets.

@wchristian

wchristian/gist:960360

Created May 7, 2011 09:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wchristian/960360 to your computer and use it in GitHub Desktop.
Save wchristian/960360 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
--- 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 {
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment