favor procedural calls for most private functions

[public-inbox.git] / script / public-inbox-httpd

diff --git a/script/public-inbox-httpd b/script/public-inbox-httpd
index 19315bb43972297a71ff4be68df8811763110e6e..f1a5d7992a4e539a261bfee044378922f9abea6f 100755 (executable)
--- a/script/public-inbox-httpd
+++ b/script/public-inbox-httpd
@@ -68,7 +68,7 @@ use fields qw(cb);
 sub new {
        my ($class, $io, $cb) = @_;
        my $self = fields::new($class);
-       $io->blocking(0);
+       IO::Handle::blocking($io, 0);
        $self->SUPER::new($io);
        $self->{cb} = $cb;
        $self->watch_read(1);