Changeset 367fbf3 for perlconfig.c
- Timestamp:
- Jan 16, 2008, 9:54:55 PM (17 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:
- a8d5a39
- Parents:
- e0ffe77
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
rb7b4565 r367fbf3 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; … … 488 490 { 489 491 SV *cb = (SV*)(e->cbdata); 492 SV *text; 490 493 unsigned int n_a; 491 494 dSP; … … 494 497 owl_function_error("Perl callback is NULL!"); 495 498 } 499 text = newSVpv(owl_editwin_get_text(e), 0); 500 SvUTF8_on(text); 496 501 497 502 ENTER; … … 499 504 500 505 PUSHMARK(SP); 501 XPUSHs(sv_2mortal( newSVpv(owl_editwin_get_text(e), 0)));506 XPUSHs(sv_2mortal(text)); 502 507 PUTBACK; 503 508
Note: See TracChangeset
for help on using the changeset viewer.