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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da7f16d7c6948b48011e897c0b5589d553fbdace;p=p5sagit%2Fp5-mst-13.2.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);
 }