summaryrefslogtreecommitdiff
path: root/mro.c
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
commitb1d0c68a73b96487aa12a3ef91d32407ca246502 (patch)
tree247a96f1fae6ace734018fe681c9fb6a02fda33c /mro.c
parent0fd7ece8441d209e64f8443de20b905a8a476805 (diff)
downloadperl-b1d0c68a73b96487aa12a3ef91d32407ca246502.tar.gz
Restore a comment from 30501 unintentionally deleted with change 31513.
p4raw-id: //depot/perl@31514
Diffstat (limited to 'mro.c')
-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);