From 44798d05173226aecbb6247375cc88a9dd809540 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Fri, 17 May 2002 17:18:18 +0000 Subject: Fix the crlf.t buffer leak - actually a generic PerlIOBuf_xxx derived leak-on-pop, but :crlf flagged it because it is more often popped without stream being closed. - Define non-noop PerlIOBuf_popped(), use it and export it. p4raw-id: //depot/perlio@16657 --- perliol.h | 1 + 1 file changed, 1 insertion(+) (limited to 'perliol.h') diff --git a/perliol.h b/perliol.h index f7bd35900f..8595c2e200 100644 --- a/perliol.h +++ b/perliol.h @@ -167,6 +167,7 @@ extern PerlIO *PerlIOBuf_open(pTHX_ PerlIO_funcs *self, const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **args); extern IV PerlIOBuf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg); +extern IV PerlIOBuf_popped(pTHX_ PerlIO *f); extern PerlIO *PerlIOBuf_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags); extern SSize_t PerlIOBuf_read(pTHX_ PerlIO *f, void *vbuf, Size_t count); extern SSize_t PerlIOBuf_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count); -- cgit v1.2.1