Remove redundant clearerr() from IO::Seekable

diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index e02f6df..43805c3 100644 (file)
--- a/ext/IO/lib/IO/Handle.pm
+++ b/ext/IO/lib/IO/Handle.pm
@@ -186,7 +186,7 @@ use SelectSaver;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = "1.1502";
+$VERSION = "1.1503";
 $XS_VERSION = "1.15";
 
 @EXPORT_OK = qw(

diff --git a/ext/IO/lib/IO/Seekable.pm b/ext/IO/lib/IO/Seekable.pm
index 3bae914..91c381a 100644 (file)
--- a/ext/IO/lib/IO/Seekable.pm
+++ b/ext/IO/lib/IO/Seekable.pm
@@ -27,7 +27,6 @@ See L<perlfunc> for complete descriptions of each of the following
 supported C<IO::Seekable> methods, which are just front ends for the
 corresponding built-in functions:
 
-    clearerr
     seek
     tell
 
@@ -56,11 +55,6 @@ require Exporter;
 
 $VERSION = "1.06";
 
-sub clearerr {
-    @_ == 1 or croak 'usage: $fh->clearerr()';
-    seek($_[0], 0, SEEK_CUR);
-}
-
 sub seek {
     @_ == 3 or croak 'usage: $fh->seek(POS, WHENCE)';
     seek($_[0], $_[1], $_[2]);