From: Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com>
Date: Mon, 11 Oct 2004 09:54:15 +0000 (+0200)
Subject: AW: [perl #31864] IO::Poll - undef fd not checked in mask()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06cd8c16b6bacaad231fad0a4a04b54ca0a48760;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {