AW: [perl #31864] IO::Poll - undef fd not checked in mask()

From: "Dintelmann, Peter" <Peter.Dintelmann@Dresdner-Bank.com>
Message-ID: <8FD9B6A658383E468B55D364D1A9951601857331@ffz00zm6.ffz00e.mail.dresdner.net>

p4raw-id: //depot/perl@23366

diff --git a/ext/IO/lib/IO/Poll.pm b/ext/IO/lib/IO/Poll.pm
index 89b89d4..bc928b5 100644 (file)
--- a/ext/IO/lib/IO/Poll.pm
+++ b/ext/IO/lib/IO/Poll.pm
@@ -46,6 +46,7 @@ sub mask {
     my $self = shift;
     my $io = shift;
     my $fd = fileno($io);
+    return unless defined $fd;
     if (@_) {
        my $mask = shift;
        if($mask) {