… | |
… | |
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 | |