Re: Bug in perlguts documentation?

Reply-To: mjtg@cam.ac.uk
Message-Id: <E157fiS-0006Q7-00@draco.cus.cam.ac.uk>

p4raw-id: //depot/perl@10460

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 44f3640..3fea294 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -1047,7 +1047,7 @@ to do this.
         tie = newRV_noinc((SV*)newHV());
         stash = gv_stashpv("MyTie", TRUE);
         sv_bless(tie, stash);
-        hv_magic(hash, tie, PERL_MAGIC_tied);
+        hv_magic(hash, (GV*)tie, PERL_MAGIC_tied);
         RETVAL = newRV_noinc(hash);
     OUTPUT:
         RETVAL