summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgs@consttype.org>2009-12-07 13:55:49 +0100
committerRafael Garcia-Suarez <rgs@consttype.org>2009-12-07 13:55:49 +0100
commit6bc991bfb3c34a5d286a1202fcc0d740d72dcee7 (patch)
tree65dc9ccf7f1ecbfb6357de1e016d2014a90070f4 /pp_ctl.c
parent69c3dccf5322a59cb855347c04712ba11b65328f (diff)
downloadperl-6bc991bfb3c34a5d286a1202fcc0d740d72dcee7.tar.gz
Allocate the right HV
This will solve an obscure bug in smart-match involving nested data structures containing the same elements.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 68a42d7cc6..b196640c70 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -4313,7 +4313,7 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other)
(void) sv_2mortal(MUTABLE_SV(seen_this));
}
if (NULL == seen_other) {
- seen_this = newHV();
+ seen_other = newHV();
(void) sv_2mortal(MUTABLE_SV(seen_other));
}
for(i = 0; i <= other_len; ++i) {