diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-02-18 12:25:45 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-22 04:41:00 +1200 |
| commit | 7fddd24899f5f922c59212b9c61b9d6d2860e8fc (patch) | |
| tree | 4f30e504cc1e727d2553e583f37e3edf0a72b4f0 /ext | |
| parent | 46d742d34e02fb28e4c3a708ea717fa44d59a634 (diff) | |
| download | perl-7fddd24899f5f922c59212b9c61b9d6d2860e8fc.tar.gz | |
Remove redundant clearerr() from IO::Seekable
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Handle.pm | 2 | ||||
| -rw-r--r-- | ext/IO/lib/IO/Seekable.pm | 6 |
2 files changed, 1 insertions, 7 deletions
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index e02f6dfe5d..43805c30f7 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 3bae914087..91c381a61e 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]); |