| … | |
… | |
| 406 | perl_free (perl); |
406 | perl_free (perl); |
| 407 | } |
407 | } |
| 408 | } |
408 | } |
| 409 | |
409 | |
| 410 | void |
410 | void |
| 411 | rxvt_perl_interp::init (bool tainted) |
411 | rxvt_perl_interp::init () |
| 412 | { |
412 | { |
| 413 | if (!perl) |
413 | if (!perl) |
| 414 | { |
414 | { |
| 415 | char *argv[] = { |
415 | char *argv[] = { |
| 416 | "", |
416 | "", |
|
|
417 | "-T", |
| 417 | "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", |
418 | "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", |
| 418 | "-T", |
|
|
| 419 | }; |
419 | }; |
| 420 | |
420 | |
| 421 | perl = perl_alloc (); |
421 | perl = perl_alloc (); |
| 422 | perl_construct (perl); |
422 | perl_construct (perl); |
| 423 | |
423 | |
| 424 | if (perl_parse (perl, xs_init, 2 + !!tainted, argv, (char **)NULL) |
424 | if (perl_parse (perl, xs_init, 3, argv, (char **)NULL) |
| 425 | || perl_run (perl)) |
425 | || perl_run (perl)) |
| 426 | { |
426 | { |
| 427 | rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n"); |
427 | rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n"); |
| 428 | |
428 | |
| 429 | perl_destruct (perl); |
429 | perl_destruct (perl); |
