If Wheel::ReadLine must die because it cannot open a private copy of …

…STDIN or STDOUT, at least have it explain WHY the open failed!
rcaputo · Aug 9, 2006 · d8752f9 · d8752f9
1 parent 4154bf1
commit d8752f9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/POE/Wheel/ReadLine.pm b/lib/POE/Wheel/ReadLine.pm
@@ -28,10 +28,10 @@ my ($trk_rows, $trk_cols);
 
 # Private STDIN and STDOUT.
 my $stdin  = gensym();
-open($stdin, "<&0") or die "Can't open private STDIN";
+open($stdin, "<&0") or die "Can't open private STDIN: $!";
 
 my $stdout = gensym;
-open($stdout, ">&1") or die "Can't open private STDOUT";
+open($stdout, ">&1") or die "Can't open private STDOUT: $!";
 
 # Offsets into $self.
 sub SELF_INPUT          () {  0 }