From: Chip Salzenberg <chip@perl.com>
Date: Tue, 18 Feb 1997 00:25:45 +0000 (+1200)
Subject: Remove redundant clearerr() from IO::Seekable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fddd24899f5f922c59212b9c61b9d6d2860e8fc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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]);