In XS_PerlIO_get_layers() take advantage of the implementation of

PerlIO_get_layers(), by co-opting the new SVs it creates, rather than
copying them.

p4raw-id: //depot/perl@33182

1 files changed, 5 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 76fe22548c..3cb591d9ff 100644
--- a/perlio.c
+++ b/perlio.c
@@ -759,6 +759,11 @@ PerlIO_get_layers(pTHX_ PerlIO *f)
 	PerlIOl *l = PerlIOBase(f);
 
 	while (l) {
+	    /* There is some collusion in the implementation of
+	       XS_PerlIO_get_layers - it knows that name and flags are
+	       generated as fresh SVs here, and takes advantage of that to
+	       "copy" them by taking a reference. If it changes here, it needs
+	       to change there too.  */
 	    SV * const name = l->tab && l->tab->name ?
 	    newSVpv(l->tab->name, 0) : &PL_sv_undef;
 	    SV * const arg = l->tab && l->tab->Getarg ?