Converge the implementation of tied OPEN with PRINTF, READ and WRITE.

Consistency will make it easier to refactor.

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 262fefe1e1..cf6263adf1 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -536,8 +536,8 @@ PP(pp_open)
 	if (mg) {
 	    /* Method's args are same as ours ... */
 	    /* ... except handle is replaced by the object */
-	    *MARK-- = SvTIED_obj(MUTABLE_SV(io), mg);
-	    PUSHMARK(MARK);
+	    PUSHMARK(MARK - 1);
+	    *MARK = SvTIED_obj(MUTABLE_SV(io), mg);
 	    PUTBACK;
 	    ENTER_with_name("call_OPEN");
 	    call_method("OPEN", G_SCALAR);