… | |
… | |
1155 | my $fd = fileno $arg{fh}; |
1155 | my $fd = fileno $arg{fh}; |
1156 | defined $fd or $fd = $arg{fh}; |
1156 | defined $fd or $fd = $arg{fh}; |
1157 | |
1157 | |
1158 | bless [$arg{fh}, urxvt::iow |
1158 | bless [$arg{fh}, urxvt::iow |
1159 | ->new |
1159 | ->new |
1160 | ->fd (defined fileno $arg{fh}) |
1160 | ->fd ($fd) |
1161 | ->events (($arg{poll} =~ /r/ ? 1 : 0) |
1161 | ->events (($arg{poll} =~ /r/ ? 1 : 0) |
1162 | | ($arg{poll} =~ /w/ ? 2 : 0)) |
1162 | | ($arg{poll} =~ /w/ ? 2 : 0)) |
1163 | ->start |
1163 | ->start |
1164 | ->cb ($cb) |
1164 | ->cb ($cb) |
1165 | ], urxvt::anyevent:: |
1165 | ], urxvt::anyevent:: |