Changeset b70d24f for perlconfig.c
- Timestamp:
- Feb 19, 2008, 1:23:14 AM (16 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 07bfbc2
- Parents:
- 5f3168a (diff), 2f69081 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
r9c7a701 r5f3168a 55 55 j=owl_zephyr_get_num_fields(owl_message_get_notice(m)); 56 56 for (i=0; i<j; i++) { 57 ptr=owl_zephyr_get_field (owl_message_get_notice(m), i+1);57 ptr=owl_zephyr_get_field_as_utf8(owl_message_get_notice(m), i+1); 58 58 av_push(av_zfields, newSVpvn(ptr, strlen(ptr))); 59 59 owl_free(ptr); … … 454 454 PUSHMARK(SP); 455 455 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)); 457 459 } 458 460 PUTBACK; … … 493 495 { 494 496 SV *cb = (SV*)(e->cbdata); 497 SV *text; 495 498 unsigned int n_a; 496 499 dSP; … … 499 502 owl_function_error("Perl callback is NULL!"); 500 503 } 504 text = newSVpv(owl_editwin_get_text(e), 0); 505 SvUTF8_on(text); 501 506 502 507 ENTER; … … 504 509 505 510 PUSHMARK(SP); 506 XPUSHs(sv_2mortal( newSVpv(owl_editwin_get_text(e), 0)));511 XPUSHs(sv_2mortal(text)); 507 512 PUTBACK; 508 513
Note: See TracChangeset
for help on using the changeset viewer.