| Subject: | $handle->blocking(0) does not work on perl-5.6.2-linux for tied filehandles |
I noticed this problem while diagnosing POE's testsuite FAIL on
perl-5.6.2 and made a minimal testcase to show the problem.
I'm not sure what changed between 5.6.2 and 5.8.1 but all perls above
5.8.1 work fine. I have not tested any 5.7.x perl but I've read the
perl580delta and perl581delta but they say nothing about tied filehandles.
I hope you can figure this out and solve it! Please let me know if you
need any more information like perl -V or anything.
--
~Apocalypse
| Subject: | tied_blocking_test.pl |
#!/usr/bin/perl
use strict;
use warnings;
use Tie::Handle;
use IO::Handle;
BEGIN {
package My::TiedHandle;
use vars qw(@ISA);
@ISA = qw( Tie::StdHandle IO::Handle );
}
my $fh = IO::Handle->new;
tie *$fh, 'My::TiedHandle';
open *$fh, "+<$0" or die "couldnt open tied handle: $!";
$fh->blocking(0);
print "All is OK!\n";
exit;
| Subject: | io_blocking_output |
Message body not shown because it is not plain text.