… | |
… | |
835 | |
835 | |
836 | char *argv[] = { |
836 | char *argv[] = { |
837 | "", |
837 | "", |
838 | "-e" |
838 | "-e" |
839 | "use Event;" // required for bootstrap |
839 | "use Event;" // required for bootstrap |
840 | "cf->bootstrap;" // requiored for datadir :*> |
840 | "cf->bootstrap;" // required for datadir :*> |
841 | "unshift @INC, cf::datadir ();" |
841 | "unshift @INC, cf::datadir ();" |
842 | "require cf;" |
842 | "require cf;" |
843 | }; |
843 | }; |
844 | |
844 | |
845 | if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) |
845 | if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) |