From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 9 Nov 1997 03:15:06 +0000 (+0000)
Subject: Fix 'anydbm.t' - if the gv is passed 1st call to inherited
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8e3bfaf565265c3b1c2de26f555b1f4f05daacc;p=p5sagit%2Fp5-mst-13.2.git

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 39cc4e2..16eff4c 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;