| … | |
… | |
| 341 | |
341 | |
| 342 | extract_resources (); |
342 | extract_resources (); |
| 343 | |
343 | |
| 344 | free (r_argv); |
344 | free (r_argv); |
| 345 | |
345 | |
|
|
346 | #if ENABLE_PERL |
|
|
347 | if (!rs[Rs_perl_ext_1]) |
|
|
348 | rs[Rs_perl_ext_1] = "default"; |
|
|
349 | |
|
|
350 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
|
|
351 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
|
|
352 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
|
|
353 | { |
|
|
354 | rxvt_perl.init (this); |
|
|
355 | HOOK_INVOKE ((this, HOOK_INIT, DT_END)); |
|
|
356 | } |
|
|
357 | #endif |
|
|
358 | |
| 346 | /* |
359 | /* |
| 347 | * set any defaults not already set |
360 | * set any defaults not already set |
| 348 | */ |
361 | */ |
| 349 | if (cmd_argv && cmd_argv[0]) |
362 | if (cmd_argv && cmd_argv[0]) |
| 350 | { |
363 | { |
| … | |
… | |
| 1431 | } |
1444 | } |
| 1432 | |
1445 | |
| 1433 | _exit (EXIT_FAILURE); |
1446 | _exit (EXIT_FAILURE); |
| 1434 | |
1447 | |
| 1435 | default: |
1448 | default: |
| 1436 | #if UTMP_SUPPORT |
|
|
| 1437 | if (!OPTION (Opt_utmpInhibit)) |
1449 | if (!OPTION (Opt_utmpInhibit)) |
| 1438 | pty->login (cmd_pid, OPTION (Opt_loginShell), rs[Rs_display_name]); |
1450 | pty->login (cmd_pid, OPTION (Opt_loginShell), rs[Rs_display_name]); |
| 1439 | #endif |
|
|
| 1440 | |
1451 | |
| 1441 | pty->close_tty (); |
1452 | pty->close_tty (); |
| 1442 | |
1453 | |
| 1443 | child_ev.start (cmd_pid); |
1454 | child_ev.start (cmd_pid); |
| 1444 | |
1455 | |
