| … | |
… | |
| 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); |
