| … | |
… | |
| 399 | "BEGIN {" |
399 | "BEGIN {" |
| 400 | " urxvt->bootstrap;" |
400 | " urxvt->bootstrap;" |
| 401 | " unshift @INC, '" LIBDIR "';" |
401 | " unshift @INC, '" LIBDIR "';" |
| 402 | "}" |
402 | "}" |
| 403 | "" |
403 | "" |
| 404 | "use urxvt;" |
404 | "use urxvt;", |
|
|
405 | 0 |
| 405 | }; |
406 | }; |
| 406 | int argc = ecb_array_length (args); |
407 | int argc = ecb_array_length (args) - 1; |
| 407 | char **argv = args; |
408 | char **argv = args; |
| 408 | |
409 | |
| 409 | PERL_SYS_INIT3 (&argc, &argv, &environ); |
410 | PERL_SYS_INIT3 (&argc, &argv, &environ); |
| 410 | perl = perl_alloc (); |
411 | perl = perl_alloc (); |
| 411 | perl_construct (perl); |
412 | perl_construct (perl); |
