Subject: | BINMODE missing |
Passing { UseSSL => 1 } to the connect in POE::Component::IRC, I get
this error:
Can't locate object method "BINMODE" via package
"POE::Component::SSLify::ClientHandle" at /pro/lib/perl5/site_perl/
5.8.8/POE/Resource/FileHandles.pm line 330.
which I `fixed' witg this:
--8<--- poe-binmode.diff
diff -pur /pro/lib/perl5/site_perl/5.8.8/POE/Component/SSLify/
ServerHandle.pm{.org,}
--- /pro/lib/perl5/site_perl/5.8.8/POE/Component/SSLify/
ServerHandle.pm.org 2007-05-14 13:28:11.000000000 +0200
+++ /pro/lib/perl5/site_perl/5.8.8/POE/Component/SSLify/ServerHandle.pm
2007-05-14 13:10:58.000000000 +0200
@@ -105,6 +105,18 @@ sub WRITE {
return $wrote_len;
}
+sub BINMODE
+{
+ my $self = shift;
+ if (@_) {
+ my $mode = shift;
+ binmode $Filenum_Object{$$self}->{'socket'}, $mode;
+ }
+ else {
+ binmode $Filenum_Object{$$self}->{'socket'};
+ }
+ } # BINMODE
+
# Closes the socket
sub CLOSE {
my $self = shift;
-->8---
Don't know if that is the best/correct way to deal with it