| … | |
… | |
| 411 | void |
411 | void |
| 412 | rxvt_perl_interp::init () |
412 | rxvt_perl_interp::init () |
| 413 | { |
413 | { |
| 414 | if (!perl) |
414 | if (!perl) |
| 415 | { |
415 | { |
|
|
416 | temp_environ temp_environ(rxvt_environ); |
|
|
417 | |
| 416 | char *argv[] = { |
418 | char *argv[] = { |
| 417 | "", |
419 | "", |
| 418 | "-T", |
420 | "-T", |
| 419 | "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", |
421 | "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", |
| 420 | }; |
422 | }; |
| … | |
… | |
| 479 | } |
481 | } |
| 480 | |
482 | |
| 481 | if (!should_invoke [htype]) |
483 | if (!should_invoke [htype]) |
| 482 | return false; |
484 | return false; |
| 483 | } |
485 | } |
|
|
486 | |
|
|
487 | temp_environ temp_environ(rxvt_environ); |
| 484 | |
488 | |
| 485 | dSP; |
489 | dSP; |
| 486 | va_list ap; |
490 | va_list ap; |
| 487 | |
491 | |
| 488 | va_start (ap, htype); |
492 | va_start (ap, htype); |
| … | |
… | |
| 1276 | else |
1280 | else |
| 1277 | THIS->rs [index] = 0; |
1281 | THIS->rs [index] = 0; |
| 1278 | } |
1282 | } |
| 1279 | } |
1283 | } |
| 1280 | |
1284 | |
|
|
1285 | const char * |
|
|
1286 | rxvt_term::x_resource (const char *name) |
|
|
1287 | CLEANUP: |
|
|
1288 | SvTAINTED_on (ST (0)); |
|
|
1289 | |
| 1281 | bool |
1290 | bool |
| 1282 | rxvt_term::option (U32 optval, int set = -1) |
1291 | rxvt_term::option (U32 optval, int set = -1) |
| 1283 | CODE: |
1292 | CODE: |
| 1284 | { |
1293 | { |
| 1285 | RETVAL = THIS->options & optval; |
1294 | RETVAL = THIS->options & optval; |
