Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add note about Perl 5.6 issues with '>&' open mode

  • Loading branch information...
commit 9bcbb9098bf12139b4f80ef96650eafba3e1d95b 1 parent 937f52e
Hinrik Örn Sigurðsson hinrik authored
Showing with 6 additions and 0 deletions.
  1. +3 −0  lib/POE/Wheel/ReadLine.pm
  2. +3 −0  lib/POE/Wheel/Run.pm
3  lib/POE/Wheel/ReadLine.pm
View
@@ -39,6 +39,9 @@ my $tc_bell; # How to ring the terminal.
my $tc_visual_bell; # How to ring the terminal.
my $tc_has_ce; # Termcap can clear to end of line.
+# Note: we use 2-arg open() below because Perl 5.6 doesn't recognize
+# the '>&' and '<&' modes with a 3-arg open()
+
# Private STDIN and STDOUT.
my $stdin = gensym();
open($stdin, "<&STDIN") or die "Can't open private STDIN: $!";
3  lib/POE/Wheel/Run.pm
View
@@ -1204,6 +1204,9 @@ sub _redirect_child_stdio_in_hell {
sub _redirect_child_stdio_sanely {
my ($class, $stdin_read, $stdout_write, $stderr_write) = @_;
+ # Note: we use 2-arg open() below because Perl 5.6 doesn't recognize
+ # the '>&' and '<&' modes with a 3-arg open()
+
# Redirect STDIN from the read end of the stdin pipe.
open( STDIN, "<&" . fileno($stdin_read) )
or $class->_warn_and_exit_child(
Please sign in to comment.
Something went wrong with that request. Please try again.