diff options
author | David Mitchell <davem@iabyn.com> | 2015-11-30 12:02:10 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2015-11-30 12:02:10 +0000 |
commit | 4c298843f44226ef4a0089b71a623720a7aea3e6 (patch) | |
tree | c062a8221eae381de141c603d14bedbd2b10cab4 /ext/PerlIO-mmap | |
parent | 798a7a50ba821b0294cbf03dc1e274fa128084db (diff) | |
download | perl-4c298843f44226ef4a0089b71a623720a7aea3e6.tar.gz |
Eliminate PerlIOMmap_close()
This static function wasn't being used. For the justification, see
http://nntp.perl.org/group/perl.perl5.porters/232954
Diffstat (limited to 'ext/PerlIO-mmap')
-rw-r--r-- | ext/PerlIO-mmap/mmap.pm | 2 | ||||
-rw-r--r-- | ext/PerlIO-mmap/mmap.xs | 16 |
2 files changed, 1 insertions, 17 deletions
diff --git a/ext/PerlIO-mmap/mmap.pm b/ext/PerlIO-mmap/mmap.pm index 939b94f81d..0ed59d2db4 100644 --- a/ext/PerlIO-mmap/mmap.pm +++ b/ext/PerlIO-mmap/mmap.pm @@ -1,7 +1,7 @@ package PerlIO::mmap; use strict; use warnings; -our $VERSION = '0.015'; +our $VERSION = '0.016'; use XSLoader; XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION); diff --git a/ext/PerlIO-mmap/mmap.xs b/ext/PerlIO-mmap/mmap.xs index ff554e1bed..b3f1c4fd50 100644 --- a/ext/PerlIO-mmap/mmap.xs +++ b/ext/PerlIO-mmap/mmap.xs @@ -249,22 +249,6 @@ PerlIOMmap_fill(pTHX_ PerlIO *f) return code; } -static IV -PerlIOMmap_close(pTHX_ PerlIO *f) -{ - PerlIOMmap * const m = PerlIOSelf(f, PerlIOMmap); - PerlIOBuf * const b = &m->base; - IV code = PerlIO_flush(f); - if (m->bbuf) { - b->buf = m->bbuf; - m->bbuf = NULL; - b->ptr = b->end = b->buf; - } - if (PerlIOBuf_close(aTHX_ f) != 0) - code = -1; - return code; -} - static PerlIO * PerlIOMmap_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) { |