From 899e16d05655bc0e6756c741b6155de313fa3bd4 Mon Sep 17 00:00:00 2001
From: Mike Guy <mjtg@cam.ac.uk>
Date: Wed, 6 Jun 2001 20:58:53 +0000
Subject: [PATCH] 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
---
 pod/perlguts.pod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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