Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • perlglue.xs

    r9e5b5fd r1a5db78  
    2929MODULE = BarnOwl                PACKAGE = BarnOwl
    3030
    31 char *
     31const char *
    3232command(cmd, ...)
    3333        const char *cmd
    … …  
    100100                i = owl_zwrite_create_and_send_from_line(cmd, msg);
    101101
    102 char *
     102const char *
    103103ztext_stylestrip(ztext)
    104104        const char *ztext
    … …  
    113113                if (rv) owl_free(rv);
    114114
    115 char *
     115const char *
    116116zephyr_smartstrip_user(in)
    117117        const char *in
    … …  
    128128                owl_free(rv);
    129129
    130 char *
     130const char *
    131131zephyr_getsubs()
    132132        PREINIT:
    … …  
    174174                owl_function_start_question(line);
    175175
    176                 SvREFCNT_inc(callback);
    177                 owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
     176                owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback));
    178177                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
    179178        }
    … …  
    190189                owl_function_start_password(line);
    191190
    192                 SvREFCNT_inc(callback);
    193                 owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
     191                owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback));
    194192                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
    195193        }
    … …  
    216214                owl_global_set_typwin_active(&g);
    217215
    218                 SvREFCNT_inc(callback);
    219                 owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
     216                owl_editwin_set_cbdata(owl_global_get_typwin(&g), SvREFCNT_inc(callback));
    220217                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
    221218        }
    … …  
    312309        }
    313310
    314 char *
     311const char *
    315312wordwrap(in, cols)
    316313        const char *in
    … …  
    331328        SV * cb
    332329        CODE:
    333         SvREFCNT_inc(cb);
    334         owl_select_add_perl_dispatch(fd, cb);
     330        owl_select_add_perl_dispatch(fd, SvREFCNT_inc(cb));
    335331
    336332void
    … …  
    421417
    422418const char *
    423 skiptokens(str, n)
    424         const char *str;
    425         int n;
    426         CODE:
    427                 RETVAL = skiptokens(str, n);
    428         OUTPUT:
    429                 RETVAL
    430 
    431 
     419get_zephyr_variable(name)
     420        const char *name;
     421        CODE:
     422                RETVAL = owl_zephyr_get_variable(name);
     423        OUTPUT:
     424                RETVAL
    432425
    433426MODULE = BarnOwl                PACKAGE = BarnOwl::Internal
    … …  
    448441                        croak("Command function must be a coderef!");
    449442                }
    450                 SvREFCNT_inc(func);
    451443                cmd.name = name;
    452                 cmd.cmd_perl = func;
     444                cmd.cmd_perl = SvREFCNT_inc(func);
    453445                cmd.summary = summary;
    454446                cmd.usage = usage;
    … …  
    561553                RETVAL
    562554
    563 char *
     555const char *
    564556get_region()
    565557        PREINIT:
Note: See TracChangeset for help on using the changeset viewer.