Fix 'anydbm.t' - if the gv is passed 1st call to inherited

TIEHASH works, but 2nd call (after db is closed, attempt
to reopen) tries to AUTOLOAD TIEHASH rather than using
cached value.

p4raw-id: //depot/ansiperl@216

diff --git a/pp_sys.c b/pp_sys.c
index 39cc4e26bac93b979ea639011881b31419de611c..16eff4c022a0e9ee5c54a0251a502ba819825d91 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -503,6 +503,7 @@ PP(pp_binmode)
 
 }
 
+
 PP(pp_tie)
 {
     djSP;
@@ -556,7 +557,7 @@ PP(pp_tie)
     CATCH_SET(oldcatch);
 #else
     ENTER;
-    perl_call_sv((SV*)gv, G_SCALAR);
+    perl_call_sv((SV*)GvCV(gv), G_SCALAR);
     SPAGAIN;
 #endif 
     sv = TOPs;