Missing thingies.

p4raw-id: //depot/perl@21863

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index d8ccf6d4c3..208d89b2c3 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -901,7 +901,7 @@ PP(pp_rv2hv)
     }
     else if (gimme == G_SCALAR) {
 	dTARGET;
-    TARG = Perl_hv_scalar(hv);
+    TARG = Perl_hv_scalar(aTHX_ hv);
 	SETTARG;
     }
     RETURN;