diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-03-31 04:39:24 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-05 19:12:30 +0000 |
| commit | 1ccffcf53e06b538ce52bce400c2322285291267 (patch) | |
| tree | 9bc67c26245fab5f122f1a6d380d624276d6a291 /lib | |
| parent | 2f31ce7514c4aa5e63439203b688762243ac5b01 (diff) | |
| download | perl-1ccffcf53e06b538ce52bce400c2322285291267.tar.gz | |
Embedding
Message-ID: <20030331203924.GA3602@math.berkeley.edu>
Advertise the pair of macros PERL_SYS_INIT3 / PERL_SYS_TERM
to be used in a C program's main function.
p4raw-id: //depot/perl@19147
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/Embed.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t index be12b8f44b..682ca53963 100644 --- a/lib/ExtUtils/t/Embed.t +++ b/lib/ExtUtils/t/Embed.t @@ -155,7 +155,11 @@ static char *cmds[] = { "perl","-e", "print qq[ok 5\\n]", NULL }; int main(int argc, char **argv, char **env) { - PerlInterpreter *my_perl = perl_alloc(); + PerlInterpreter *my_perl; + + PERL_SYS_INIT3(&argc,&argv,&env); + + my_perl = perl_alloc(); my_puts("ok 2"); @@ -181,5 +185,7 @@ int main(int argc, char **argv, char **env) my_puts("ok 8"); + PERL_SYS_TERM(); + return 0; } |