Changeset 367fbf3 for perlconfig.c


Ignore:
Timestamp:
Jan 16, 2008, 9:54:55 PM (13 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
a8d5a39
Parents:
e0ffe77
Message:
Remove a debug message I accidentally left in.
Remove the hours old check_utf8 hackery in favor of actually
marking strings as UTF-8 from the C side.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rb7b4565 r367fbf3  
    454454  PUSHMARK(SP);
    455455  for(i=0;i<argc;i++) {
    456     XPUSHs(sv_2mortal(newSVpv(argv[i], 0)));
     456    SV *tmp = newSVpv(argv[i], 0);
     457    SvUTF8_on(tmp);
     458    XPUSHs(sv_2mortal(tmp));
    457459  }
    458460  PUTBACK;
     
    488490{
    489491  SV *cb = (SV*)(e->cbdata);
     492  SV *text;
    490493  unsigned int n_a;
    491494  dSP;
     
    494497    owl_function_error("Perl callback is NULL!");
    495498  }
     499  text = newSVpv(owl_editwin_get_text(e), 0);
     500  SvUTF8_on(text);
    496501
    497502  ENTER;
     
    499504
    500505  PUSHMARK(SP);
    501   XPUSHs(sv_2mortal(newSVpv(owl_editwin_get_text(e), 0)));
     506  XPUSHs(sv_2mortal(text));
    502507  PUTBACK;
    503508 
Note: See TracChangeset for help on using the changeset viewer.