diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-21 01:08:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-21 01:08:23 +0000 |
| commit | da7f16d7c6948b48011e897c0b5589d553fbdace (patch) | |
| tree | 593fa3c7331a8cf5d672d90592a5b33a8ffaca1e /ext | |
| parent | 689440ec6112b0ad8e13a518cfe8f7c6b95df346 (diff) | |
| download | perl-da7f16d7c6948b48011e897c0b5589d553fbdace.tar.gz | |
Fix for ID 20000915.011, IO::Select warning for an undefined fd.
p4raw-id: //depot/perl@7384
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Select.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/IO/lib/IO/Select.pm b/ext/IO/lib/IO/Select.pm index e84b54f015..1a3a26fe6a 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); } |