Changeset 19bab8e for perlconfig.c

Timestamp:

Dec 6, 2008, 2:33:28 AM (16 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

909771e

Parents:

ce6721f

git-author:

Anders Kaseorg <andersk@mit.edu> (12/06/08 01:04:26)

git-committer:

Anders Kaseorg <andersk@mit.edu> (12/06/08 02:33:28)

Message:

Don't return a mortal from owl_perlconfig_message2hashref().

File:

• perlconfig.c (modified) (3 diffs)

perlconfig.c

@@ -102 +102 @@
   blessas = owl_sprintf("BarnOwl::Message::%s", type);
 
-  hr = sv_2mortal(newRV_noinc((SV*)h));
+  hr = newRV_noinc((SV*)h);
   stash =  gv_stashpv(blessas,0);
   if(!stash) {
@@ -191 +191 @@
   PUSHMARK(SP) ;
   msgref = owl_perlconfig_message2hashref(m);
-  XPUSHs(msgref);
+  XPUSHs(sv_2mortal(msgref));
   PUTBACK ;
   
@@ -244 +244 @@
 
   PUSHMARK(SP);
-  XPUSHs(msgref);
+  XPUSHs(sv_2mortal(msgref));
   for(i=0;i<argc;i++) {
     XPUSHs(sv_2mortal(newSVpv(argv[i], 0)));