summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-07-01 14:45:47 +0000
committerNicholas Clark <nick@ccl4.org>2007-07-01 14:45:47 +0000
commit12b5415f383d408659523da10ddc981ef045b0e1 (patch)
tree247a96f1fae6ace734018fe681c9fb6a02fda33c
parent72ec3559bf2536ce37d51e59123e1e412149d5f3 (diff)
downloadperl-12b5415f383d408659523da10ddc981ef045b0e1.tar.gz
Restore a comment from 30501 unintentionally deleted with change 31513.
p4raw-id: //depot/perl@31514
-rw-r--r--mro.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/mro.c b/mro.c
index c3465706ba..80f11db071 100644
--- 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
- 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);