| … | |
… | |
| 770 | exit (EXIT_FAILURE); |
770 | exit (EXIT_FAILURE); |
| 771 | } |
771 | } |
| 772 | |
772 | |
| 773 | eval_pv ( |
773 | eval_pv ( |
| 774 | "#line 1 'cfperl init'\n" |
774 | "#line 1 'cfperl init'\n" |
| 775 | "use EV ();\n" |
775 | "use EV ();\n" // required by bootstrap |
| 776 | "use Coro ();\n" |
776 | "use Coro ();\n" // required by bootstrap |
| 777 | "cf->bootstrap;\n" |
777 | "cf->bootstrap;\n" // required for cf::datadir |
| 778 | "unshift @INC, cf::datadir ();\n" |
778 | "unshift @INC, cf::datadir ();\n" // required for 'require' :) |
| 779 | "require cf;\n", |
779 | "require cf;\n", |
| 780 | 0 |
780 | 0 |
| 781 | ); |
781 | ); |
| 782 | |
782 | |
| 783 | if (SvTRUE (ERRSV)) |
783 | if (SvTRUE (ERRSV)) |
