Mingw32 PERL_OBJECT tweaks

[p5sagit/p5-mst-13.2.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index d7f8f52..823da44 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -284,7 +284,7 @@ PP(pp_pushre)
     Copy(&PL_op, &LvTARGOFF(sv), 1, OP*);
     XPUSHs(sv);
 #else
-    XPUSHs((SV*)op);
+    XPUSHs((SV*)PL_op);
 #endif
     RETURN;
 }