Convert tied PRINT to using Perl_tied_method()

Add a flag TIED_METHOD_SAY to Perl_tied_method(), to allow tied PRINT to
effect C<local $\ = "\n";> within the ENTER/LEAVE pair of Perl_tied_method().

1 files changed, 6 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index a0ed985de5..8e156b53af 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -516,6 +516,7 @@ Perl_tied_method(pTHX_ const char *const methname, SV **sp, SV *const sv,
     /* Ensure that our flag bits do not overlap.  */
     assert((TIED_METHOD_MORTALIZE_NOT_NEEDED & G_WANT) == 0);
     assert((TIED_METHOD_ARGUMENTS_ON_STACK & G_WANT) == 0);
+    assert((TIED_METHOD_SAY & G_WANT) == 0);
 
     PUSHMARK(sp);
     PUSHs(SvTIED_obj(sv, mg));
@@ -538,6 +539,11 @@ Perl_tied_method(pTHX_ const char *const methname, SV **sp, SV *const sv,
 
     PUTBACK;
     ENTER_with_name("call_tied_method");
+    if (flags & TIED_METHOD_SAY) {
+	/* local $\ = "\n" */
+	SAVEGENERICSV(PL_ors_sv);
+	PL_ors_sv = newSVpvs("\n");
+    }
     call_method(methname, flags & G_WANT);
     LEAVE_with_name("call_tied_method");
     return NORMAL;