From 746c22dbdaae0632486f06720683b9e5aabeac26 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 4 Jan 2011 12:23:30 +0000 Subject: [PATCH] Convert tied PRINTF to using S_tied_handle_method() --- pp_sys.c | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/pp_sys.c b/pp_sys.c index d042f59..e645f35 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); } } -- 2.7.4