This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove redundant clearerr() from IO::Seekable
authorChip Salzenberg <chip@perl.com>
Tue, 18 Feb 1997 00:25:45 +0000 (12:25 +1200)
committerChip Salzenberg <chip@atlantic.net>
Fri, 21 Feb 1997 16:41:00 +0000 (04:41 +1200)
ext/IO/lib/IO/Handle.pm
ext/IO/lib/IO/Seekable.pm

index e02f6df..43805c3 100644 (file)
@@ -186,7 +186,7 @@ use SelectSaver;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = "1.1502";
+$VERSION = "1.1503";
 $XS_VERSION = "1.15";
 
 @EXPORT_OK = qw(
index 3bae914..91c381a 100644 (file)
@@ -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]);