summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2010-07-29 17:56:24 +0100
committerDavid Mitchell <davem@iabyn.com>2010-07-29 17:56:24 +0100
commitcdb996f424d39d435ae0f0a024fbf20c38221b9e (patch)
tree9b277cc1fae33657e726e14c160755e95897282a /sv.c
parentcef0c2ea80abedd0fa6d0e228f3bf5b8bc3d2903 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index 0f91734f8c..c95f9ed547 100644
--- a/sv.c
+++ b/sv.c
@@ -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. */