summaryrefslogtreecommitdiffstats
path: root/Stash.xs
diff options
context:
space:
mode:
Diffstat (limited to 'Stash.xs')
-rw-r--r--Stash.xs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Stash.xs b/Stash.xs
index b2a744b..ac83c6d 100644
--- a/Stash.xs
+++ b/Stash.xs
@@ -274,11 +274,11 @@ new(class, package_name)
if (!SvPOK(package_name))
croak("The constructor argument must be the name of a package");
- instance = newHV();
+ instance = (HV*)sv_2mortal((SV*)newHV());
- hv_store(instance, "name", 4, package_name, 0);
+ hv_store(instance, "name", 4, SvREFCNT_inc(package_name), 0);
namespace = gv_stashpv(SvPV_nolen(package_name), GV_ADD);
- hv_store(instance, "namespace", 9, newRV_noinc((SV*)namespace), 0);
+ hv_store(instance, "namespace", 9, newRV_inc((SV*)namespace), 0);
RETVAL = sv_bless(newRV_inc((SV*)instance), gv_stashpv(class, 0));
OUTPUT: