Comment nit from Yitzchak.

p4raw-id: //depot/perl@16819

diff --git a/sv.c b/sv.c
index 7d51f32..193b141 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4464,7 +4464,7 @@ Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, MGVTBL *vtable,
        avoid incrementing the object refcount.
        Note we cannot do this to avoid self-tie loops as intervening RV must
        have its REFCNT incremented to keep it in existence - instead special
-       case them in sv_free().
+       case them in mg_free().
      */
     if (!obj || obj == sv ||
        how == PERL_MAGIC_arylen ||