… | |
… | |
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 "';" |
… | |
… | |
403 | "" |
403 | "" |
404 | "use urxvt;", |
404 | "use urxvt;", |
405 | 0 |
405 | 0 |
406 | }; |
406 | }; |
407 | int argc = ecb_array_length (args) - 1; |
407 | int argc = ecb_array_length (args) - 1; |
408 | char **argv = args; |
408 | char **argv = (char **)args; |
409 | |
409 | |
410 | PERL_SYS_INIT3 (&argc, &argv, &environ); |
410 | PERL_SYS_INIT3 (&argc, &argv, &environ); |
411 | perl = perl_alloc (); |
411 | perl = perl_alloc (); |
412 | perl_construct (perl); |
412 | perl_construct (perl); |
413 | |
413 | |
… | |
… | |
1832 | index += rs->value; |
1832 | index += rs->value; |
1833 | } |
1833 | } |
1834 | else |
1834 | else |
1835 | { |
1835 | { |
1836 | --rs; |
1836 | --rs; |
1837 | name = ""; |
1837 | name = (octet_string)""; |
1838 | } |
1838 | } |
1839 | |
1839 | |
1840 | if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) |
1840 | if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) |
1841 | 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); |
1842 | |
1842 | |