diff options
| author | Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com> | 2004-10-11 11:54:15 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-14 15:50:49 +0000 |
| commit | 06cd8c16b6bacaad231fad0a4a04b54ca0a48760 (patch) | |
| tree | 096e7820e14fcb1b0560c3f7426e15e4531099fe /ext/IO | |
| parent | ddcf8bc1d288a9d34b94e354ef9f98b84591150c (diff) | |
| download | perl-06cd8c16b6bacaad231fad0a4a04b54ca0a48760.tar.gz | |
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
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Poll.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/IO/lib/IO/Poll.pm b/ext/IO/lib/IO/Poll.pm index 89b89d4d13..bc928b53c7 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) { |