Convert tied PRINTF to using S_tied_handle_method()

1 files changed, 3 insertions, 7 deletions

diff --git a/pp_sys.c b/pp_sys.c
index d042f590b1..e645f35012 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1511,13 +1511,9 @@ PP(pp_prtf)
 		Move(MARK, MARK + 1, (SP - MARK) + 1, SV*);
 		++SP;
 	    }
-	    PUSHMARK(MARK - 1);
-	    *MARK = SvTIED_obj(MUTABLE_SV(io), mg);
-	    PUTBACK;
-	    ENTER;
-	    call_method("PRINTF", G_SCALAR);
-	    LEAVE;
-	    return NORMAL;
+	    return S_tied_handle_method(aTHX_ "PRINTF", mark - 1, io, mg,
+					G_SCALAR | ARGUMENTS_ON_STACK
+					| (sp - mark) << TIED_HANDLE_ARGC_SHIFT);
 	}
     }