diff options
author | David Mitchell <davem@iabyn.com> | 2010-07-29 17:56:24 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2010-07-29 17:56:24 +0100 |
commit | cdb996f424d39d435ae0f0a024fbf20c38221b9e (patch) | |
tree | 9b277cc1fae33657e726e14c160755e95897282a /sv.c | |
parent | cef0c2ea80abedd0fa6d0e228f3bf5b8bc3d2903 (diff) | |
download | perl-cdb996f424d39d435ae0f0a024fbf20c38221b9e.tar.gz |
expand the xhv_backreferences code notes
(so that I don't get so confused when I revisit this code in 5 years time)
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5338,13 +5338,13 @@ Perl_sv_add_backref(pTHX_ SV *const tsv, SV *const sv) av = *avp; if (!av) { - /* There is no AV in the offical place - try a fixup. */ + /* There is no AV in the official place - try a fixup. */ MAGIC *const mg = mg_find(tsv, PERL_MAGIC_backref); if (mg) { /* Aha. They've got it stowed in magic. Bring it back. */ av = MUTABLE_AV(mg->mg_obj); - /* Stop mg_free decreasing the refernce count. */ + /* Stop mg_free decreasing the reference count. */ mg->mg_obj = NULL; /* Stop mg_free even calling the destructor, given that there's no AV to free up. */ |