From da7f16d7c6948b48011e897c0b5589d553fbdace Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 21 Oct 2000 01:08:23 +0000
Subject: [PATCH] Fix for ID 20000915.011, IO::Select warning for an undefined
 fd.

p4raw-id: //depot/perl@7384
---
 ext/IO/lib/IO/Select.pm | 1 +
 1 file changed, 1 insertion(+)

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);
 }
-- 
2.7.4