| … | |
… | |
| 11 | * Copyright (c) 1997 mj olesen <olesen@me.QueensU.CA> |
11 | * Copyright (c) 1997 mj olesen <olesen@me.QueensU.CA> |
| 12 | * - extensive modifications |
12 | * - extensive modifications |
| 13 | * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de> |
13 | * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de> |
| 14 | * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com> |
14 | * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com> |
| 15 | * - extensive modifications |
15 | * - extensive modifications |
| 16 | * Copyright (c) 2003-2004 Marc Lehmann <pcg@goof.com> |
16 | * Copyright (c) 2003-2006 Marc Lehmann <pcg@goof.com> |
| 17 | * |
17 | * |
| 18 | * This program is free software; you can redistribute it and/or modify |
18 | * This program is free software; you can redistribute it and/or modify |
| 19 | * it under the terms of the GNU General Public License as published by |
19 | * it under the terms of the GNU General Public License as published by |
| 20 | * the Free Software Foundation; either version 2 of the License, or |
20 | * the Free Software Foundation; either version 2 of the License, or |
| 21 | * (at your option) any later version. |
21 | * (at your option) any later version. |
| … | |
… | |
| 487 | if (OPTION (Opt_scrollBar)) |
487 | if (OPTION (Opt_scrollBar)) |
| 488 | scrollBar.setIdle (); /* set existence for size calculations */ |
488 | scrollBar.setIdle (); /* set existence for size calculations */ |
| 489 | #endif |
489 | #endif |
| 490 | |
490 | |
| 491 | #if ENABLE_PERL |
491 | #if ENABLE_PERL |
|
|
492 | if (!rs[Rs_perl_ext_1]) |
|
|
493 | rs[Rs_perl_ext_1] = "default"; |
|
|
494 | |
| 492 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
495 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
| 493 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
496 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
| 494 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
497 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
| 495 | { |
498 | { |
| 496 | rxvt_perl.init (); |
499 | rxvt_perl.init (); |
| … | |
… | |
| 534 | |
537 | |
| 535 | init_command (cmd_argv); |
538 | init_command (cmd_argv); |
| 536 | |
539 | |
| 537 | free (cmd_argv); |
540 | free (cmd_argv); |
| 538 | |
541 | |
|
|
542 | if (pty.pty >= 0) |
| 539 | pty_ev.start (pty.pty, EVENT_READ); |
543 | pty_ev.start (pty.pty, EVENT_READ); |
| 540 | |
544 | |
| 541 | check_ev.start (); |
545 | check_ev.start (); |
| 542 | |
546 | |
| 543 | HOOK_INVOKE ((this, HOOK_START, DT_END)); |
547 | HOOK_INVOKE ((this, HOOK_START, DT_END)); |
| 544 | |
548 | |
