From: Mike Guy <mjtg@cam.ac.uk>
Date: Wed, 6 Jun 2001 20:58:53 +0000 (+0000)
Subject: Re: Bug in perlguts documentation?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=899e16d05655bc0e6756c741b6155de313fa3bd4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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