Deprecate != Depreciate.

[perl5.git] / ext / IO / lib / IO / Select.pm

diff --git a/ext/IO/lib/IO/Select.pm b/ext/IO/lib/IO/Select.pm
index df92b04..f556b02 100644 (file)
--- a/ext/IO/lib/IO/Select.pm
+++ b/ext/IO/lib/IO/Select.pm
@@ -11,7 +11,7 @@ use warnings::register;
 use     vars qw($VERSION @ISA);
 require Exporter;
 
-$VERSION = "1.14";
+$VERSION = "1.15";
 
 @ISA = qw(Exporter); # This is only so we can do version checking
 
@@ -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);
 }
@@ -130,7 +131,7 @@ sub has_exception
 
 sub has_error
 {
- warnings::warn("Call to depreciated method 'has_error', use 'has_exception'")
+ warnings::warn("Call to deprecated method 'has_error', use 'has_exception'")
        if warnings::enabled();
  goto &has_exception;
 }
@@ -300,9 +301,9 @@ Return an array of all registered handles.
 =item can_read ( [ TIMEOUT ] )
 
 Return an array of handles that are ready for reading. C<TIMEOUT> is
-the maximum amount of time to wait before returning an empty list. If
-C<TIMEOUT> is not given and any handles are registered then the call
-will block.
+the maximum amount of time to wait before returning an empty list, in
+seconds, possibly fractional. If C<TIMEOUT> is not given and any
+handles are registered then the call will block.
 
 =item can_write ( [ TIMEOUT ] )