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 (file)
--- 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 (file)
--- 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