… | |
… | |
402 | perl_environ = rxvt_environ; |
402 | perl_environ = rxvt_environ; |
403 | swap (perl_environ, environ); |
403 | swap (perl_environ, environ); |
404 | |
404 | |
405 | char *argv[] = { |
405 | char *argv[] = { |
406 | "", |
406 | "", |
407 | "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", |
407 | "-e" |
|
|
408 | "BEGIN {" |
|
|
409 | " urxvt->bootstrap;" |
|
|
410 | " unshift @INC, '" LIBDIR "';" |
|
|
411 | "}" |
|
|
412 | "" |
|
|
413 | "use urxvt;" |
408 | }; |
414 | }; |
409 | |
415 | |
410 | perl = perl_alloc (); |
416 | perl = perl_alloc (); |
411 | perl_construct (perl); |
417 | perl_construct (perl); |
412 | |
418 | |