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

1 files changed, 2 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 39cc4e26ba..16eff4c022 100644
--- 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;