| … | |
… | |
| 391 | |
391 | |
| 392 | { |
392 | { |
| 393 | perl_environ = rxvt_environ; |
393 | perl_environ = rxvt_environ; |
| 394 | localise_env set_environ (perl_environ); |
394 | localise_env set_environ (perl_environ); |
| 395 | |
395 | |
| 396 | char *args[] = { |
396 | const char *args[] = { |
| 397 | "", |
397 | "", |
| 398 | "-e" |
398 | "-e" |
| 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 = (char **)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); |
| 412 | |
413 | |
| … | |
… | |
| 1831 | index += rs->value; |
1832 | index += rs->value; |
| 1832 | } |
1833 | } |
| 1833 | else |
1834 | else |
| 1834 | { |
1835 | { |
| 1835 | --rs; |
1836 | --rs; |
| 1836 | name = ""; |
1837 | name = (octet_string)""; |
| 1837 | } |
1838 | } |
| 1838 | |
1839 | |
| 1839 | if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) |
1840 | if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) |
| 1840 | croak ("requested out-of-bound resource %s+%d,", name, index - rs->value); |
1841 | croak ("requested out-of-bound resource %s+%d,", name, index - rs->value); |
| 1841 | |
1842 | |
