This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix 'anydbm.t' - if the gv is passed 1st call to inherited
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 9 Nov 1997 03:15:06 +0000 (03:15 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 9 Nov 1997 03:15:06 +0000 (03:15 +0000)
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

pp_sys.c

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