This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mention do_curse in alloc section of sv.c apidocs
authorFather Chrysostomos <sprout@cpan.org>
Tue, 20 Nov 2012 21:40:54 +0000 (13:40 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 21 Nov 2012 01:58:57 +0000 (17:58 -0800)
sv.c

diff --git a/sv.c b/sv.c
index b034f4e..83191c1 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -133,10 +133,12 @@ called by visit() for each SV]):
                        dump all remaining SVs (debugging aid)
 
     sv_clean_objs() / do_clean_objs(),do_clean_named_objs(),
-                     do_clean_named_io_objs()
+                     do_clean_named_io_objs(),do_curse()
                        Attempt to free all objects pointed to by RVs,
-                       and try to do the same for all objects indirectly
-                       referenced by typeglobs too.  Called once from
+                       try to do the same for all objects indir-
+                       ectly referenced by typeglobs too, and
+                       then do a final sweep, cursing any
+                       objects that remain.  Called once from
                        perl_destruct(), prior to calling sv_clean_all()
                        below.