Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    r367fbf3 rff13a6f  
    5555    j=owl_zephyr_get_num_fields(owl_message_get_notice(m));
    5656    for (i=0; i<j; i++) {
    57       ptr=owl_zephyr_get_field_as_utf8(owl_message_get_notice(m), i+1);
     57      ptr=owl_zephyr_get_field(owl_message_get_notice(m), i+1);
    5858      av_push(av_zfields, newSVpvn(ptr, strlen(ptr)));
    5959      owl_free(ptr);
     
    454454  PUSHMARK(SP);
    455455  for(i=0;i<argc;i++) {
    456     SV *tmp = newSVpv(argv[i], 0);
    457     SvUTF8_on(tmp);
    458     XPUSHs(sv_2mortal(tmp));
     456    XPUSHs(sv_2mortal(newSVpv(argv[i], 0)));
    459457  }
    460458  PUTBACK;
     
    490488{
    491489  SV *cb = (SV*)(e->cbdata);
    492   SV *text;
    493490  unsigned int n_a;
    494491  dSP;
     
    497494    owl_function_error("Perl callback is NULL!");
    498495  }
    499   text = newSVpv(owl_editwin_get_text(e), 0);
    500   SvUTF8_on(text);
    501496
    502497  ENTER;
     
    504499
    505500  PUSHMARK(SP);
    506   XPUSHs(sv_2mortal(text));
     501  XPUSHs(sv_2mortal(newSVpv(owl_editwin_get_text(e), 0)));
    507502  PUTBACK;
    508503 
Note: See TracChangeset for help on using the changeset viewer.