From f9ee7af6576291eb5e60f5683b31f5a9b32bd986 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 18 Mar 2001 13:21:27 +0000 Subject: [PATCH] try a different way of importing Errnos --- perl/Msg.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/perl/Msg.pm b/perl/Msg.pm index 403303dd..f9256818 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -15,8 +15,6 @@ use IO::Select; use IO::Socket; use DXDebug; use Timer; -use Errno qw(EWOULDBLOCK EAGAIN EINPROGRESS); -use POSIX qw(F_GETFL F_SETFL O_NONBLOCK); use vars qw(%rd_callbacks %wt_callbacks %er_callbacks $rd_handles $wt_handles $er_handles $now %conns $noconns); @@ -33,9 +31,14 @@ my $blocking_supported = 0; BEGIN { # Checks if blocking is supported eval { - require POSIX; POSIX->import(qw (F_SETFL O_NONBLOCK)); + require POSIX; POSIX->import(qw (F_SETFL F_GETFL O_NONBLOCK)); }; $blocking_supported = 1 unless $@; + + # import as many of these errno values as are available + eval { + require Errno; Errno->import(qw(EAGAIN EINPROGRESS EWOULDBLOCK)); + }; } my $w = $^W; -- 2.43.0