diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-07-05 23:16:12 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-07-07 12:52:36 +0200 |
| commit | c8935f6cd34349a50bf080be1bb4c46f2a00adfb (patch) | |
| tree | f54aad414b4e90bd757d1c9fc1a107d761f4cf85 /miniperlmain.c | |
| parent | 7b4d95f74b61267ca3d460b061b824f1374b2672 (diff) | |
| download | perl-c8935f6cd34349a50bf080be1bb4c46f2a00adfb.tar.gz | |
Invert the build logic for miniperlmain.c and ExtUtils::Miniperl
Now ExtUtils::Miniperl has the master version of {mini,}perlmain.c and is
checked into the repository. miniperlmain.c is now generated by a script
in regen/ which uses ExtUtils::Miniperl.
Tweak ExtUtils::Miniperl::writemain() to take an optional first argument,
a reference to a file handle. This permits the regen script to use the
regen_lib.pl functions for file opening/closing/renaming and TAP generation.
For now check in ExtUtils::Miniperl minimally modified from the version
generated by the former minimod.pl. The next commit will tidy it up.
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 61358f7848..3a06f7274b 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -38,6 +38,7 @@ #include "EXTERN.h" #define PERL_IN_MINIPERLMAIN_C #include "perl.h" +#include "XSUB.h" static void xs_init (pTHX); static PerlInterpreter *my_perl; @@ -150,13 +151,12 @@ main(int argc, char **argv, char **env) /* Register any extra external extensions */ -/* Do not delete this line--writemain depends on it */ static void xs_init(pTHX) { + dXSUB_SYS; PERL_UNUSED_CONTEXT; - dXSUB_SYS; } /* |