diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-07 13:55:49 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-07 13:55:49 +0100 |
commit | 6bc991bfb3c34a5d286a1202fcc0d740d72dcee7 (patch) | |
tree | 65dc9ccf7f1ecbfb6357de1e016d2014a90070f4 /pp_ctl.c | |
parent | 69c3dccf5322a59cb855347c04712ba11b65328f (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) { |