From: Vincent Pit <perl@profvince.com>
Date: Mon, 24 Mar 2008 21:30:10 +0000 (+0100)
Subject: apidoc mismatch for Perl_magic_clearhint
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f175cff5cac5f8199b897ce2f1c73312d99d5761;p=p5sagit%2Fp5-mst-13.2.git

apidoc mismatch for Perl_magic_clearhint
Message-ID: <47E80F52.4030805@profvince.com>

p4raw-id: //depot/perl@33553
---

diff --git a/mg.c b/mg.c
index f88b078..3d3a6cf 100644
--- a/mg.c
+++ b/mg.c
@@ -3140,7 +3140,7 @@ Perl_magic_sethint(pTHX_ SV *sv, MAGIC *mg)
 }
 
 /*
-=for apidoc magic_sethint
+=for apidoc magic_clearhint
 
 Triggered by a delete from %^H, records the key to
 C<PL_compiling.cop_hints_hash>.
diff --git a/pod/perlintern.pod b/pod/perlintern.pod
index ac6f082..daa62a9 100644
--- a/pod/perlintern.pod
+++ b/pod/perlintern.pod
@@ -433,12 +433,25 @@ Found in file doio.c
 
 =over 8
 
-=item magic_sethint
-X<magic_sethint>
+=item magic_clearhint
+X<magic_clearhint>
 
 Triggered by a delete from %^H, records the key to
 C<PL_compiling.cop_hints_hash>.
 
+	int	magic_clearhint(SV* sv, MAGIC* mg)
+
+=for hackers
+Found in file mg.c
+
+=item magic_sethint
+X<magic_sethint>
+
+Triggered by a store to %^H, records the key/value pair to
+C<PL_compiling.cop_hints_hash>.  It is assumed that hints aren't storing
+anything that would need a deep copy.  Maybe we should warn if we find a
+reference.
+
 	int	magic_sethint(SV* sv, MAGIC* mg)
 
 =for hackers