Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • perlglue.xs

    r1a5db78 r9e5b5fd  
    2929MODULE = BarnOwl                PACKAGE = BarnOwl
    3030
    31 const char *
     31char *
    3232command(cmd, ...)
    3333        const char *cmd
    … …  
    100100                i = owl_zwrite_create_and_send_from_line(cmd, msg);
    101101
    102 const char *
     102char *
    103103ztext_stylestrip(ztext)
    104104        const char *ztext
    … …  
    113113                if (rv) owl_free(rv);
    114114
    115 const char *
     115char *
    116116zephyr_smartstrip_user(in)
    117117        const char *in
    … …  
    128128                owl_free(rv);
    129129
    130 const char *
     130char *
    131131zephyr_getsubs()
    132132        PREINIT:
    … …  
    174174                owl_function_start_question(line);
    175175
    176                 owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback));
     176                SvREFCNT_inc(callback);
     177                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
    177178                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
    178179        }
    … …  
    189190                owl_function_start_password(line);
    190191
    191                 owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback));
     192                SvREFCNT_inc(callback);
     193                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
    192194                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
    193195        }
    … …  
    214216                owl_global_set_typwin_active(&g);
    215217
    216                 owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback));
     218                SvREFCNT_inc(callback);
     219                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
    217220                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
    218221        }
    … …  
    309312        }
    310313
    311 const char *
     314char *
    312315wordwrap(in, cols)
    313316        const char *in
    … …  
    328331        SV * cb
    329332        CODE:
    330         owl_select_add_perl_dispatch(fd, SvREFCNT_inc(cb));
     333        SvREFCNT_inc(cb);
     334        owl_select_add_perl_dispatch(fd, cb);
    331335
    332336void
    … …  
    417421
    418422const char *
    419 get_zephyr_variable(name)
    420         const char *name;
    421         CODE:
    422                 RETVAL = owl_zephyr_get_variable(name);
    423         OUTPUT:
    424                 RETVAL
     423skiptokens(str, n)
     424        const char *str;
     425        int n;
     426        CODE:
     427                RETVAL = skiptokens(str, n);
     428        OUTPUT:
     429                RETVAL
     430
     431
    425432
    426433MODULE = BarnOwl                PACKAGE = BarnOwl::Internal
    … …  
    441448                        croak("Command function must be a coderef!");
    442449                }
     450                SvREFCNT_inc(func);
    443451                cmd.name = name;
    444                 cmd.cmd_perl = SvREFCNT_inc(func);
     452                cmd.cmd_perl = func;
    445453                cmd.summary = summary;
    446454                cmd.usage = usage;
    … …  
    553561                RETVAL
    554562
    555 const char *
     563char *
    556564get_region()
    557565        PREINIT:
Note: See TracChangeset for help on using the changeset viewer.