This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore a comment from 30501 unintentionally deleted with change 31513.
authorNicholas Clark <nick@ccl4.org>
Sun, 1 Jul 2007 14:45:47 +0000 (14:45 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 1 Jul 2007 14:45:47 +0000 (14:45 +0000)
p4raw-id: //depot/perl@31514

mro.c

diff --git a/mro.c b/mro.c
index c346570..80f11db 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -146,7 +146,10 @@ Perl_mro_get_linear_isa_dfs(pTHX_ HV *stash, I32 level)
             }
             else {
                 /* otherwise, recurse into ourselves for the MRO
             }
             else {
                 /* otherwise, recurse into ourselves for the MRO
-                   of this @ISA member, and append their MRO to ours */
+                   of this @ISA member, and append their MRO to ours.
+                  The recursive call could throw an exception, which
+                  has memory management implications here, hence the use of
+                  the mortal.  */
                const AV *const subrv
                    = mro_get_linear_isa_dfs(basestash, level + 1);
 
                const AV *const subrv
                    = mro_get_linear_isa_dfs(basestash, level + 1);