Changeset 19bab8e


Ignore:
Timestamp:
Dec 6, 2008, 2:33:28 AM (15 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().
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rce6721f r19bab8e  
    102102  blessas = owl_sprintf("BarnOwl::Message::%s", type);
    103103
    104   hr = sv_2mortal(newRV_noinc((SV*)h));
     104  hr = newRV_noinc((SV*)h);
    105105  stash =  gv_stashpv(blessas,0);
    106106  if(!stash) {
     
    191191  PUSHMARK(SP) ;
    192192  msgref = owl_perlconfig_message2hashref(m);
    193   XPUSHs(msgref);
     193  XPUSHs(sv_2mortal(msgref));
    194194  PUTBACK ;
    195195 
     
    244244
    245245  PUSHMARK(SP);
    246   XPUSHs(msgref);
     246  XPUSHs(sv_2mortal(msgref));
    247247  for(i=0;i<argc;i++) {
    248248    XPUSHs(sv_2mortal(newSVpv(argv[i], 0)));
  • perlglue.xs

    r740d5f7 r19bab8e  
    6262getcurmsg()
    6363        CODE:
    64                 ST(0) = owl_perlconfig_curmessage2hashref();
     64                RETVAL = owl_perlconfig_curmessage2hashref();
     65        OUTPUT:
     66                RETVAL
    6567
    6668int
Note: See TracChangeset for help on using the changeset viewer.