From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 21 Oct 2000 01:08:23 +0000 (+0000)
Subject: Fix for ID 20000915.011, IO::Select warning for an undefined fd.
X-Git-Tag: accepted/trunk/20130322.191538~33902
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=da7f16d7c6948b48011e897c0b5589d553fbdace;p=platform%2Fupstream%2Fperl.git

Fix for ID 20000915.011, IO::Select warning for an undefined fd.

p4raw-id: //depot/perl@7384
---

diff --git a/ext/IO/lib/IO/Select.pm b/ext/IO/lib/IO/Select.pm
index e84b54f..1a3a26f 100644
--- a/ext/IO/lib/IO/Select.pm
+++ b/ext/IO/lib/IO/Select.pm
@@ -56,6 +56,7 @@ sub exists
 sub _fileno
 {
  my($self, $f) = @_;
+ return unless defined $f;
  $f = $f->[0] if ref($f) eq 'ARRAY';
  ($f =~ /^\d+$/) ? $f : fileno($f);
 }