diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-04-18 16:18:30 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-21 15:38:30 +0000 |
| commit | 27da23d53ccce622bc51822f59df8def79b4df95 (patch) | |
| tree | 1202440e0fbf7a2fc1bb54993d11cda7b245f1b4 /lib/ExtUtils/t/Embed.t | |
| parent | ec0624293b57ae07d6b2c32bae099d4f163e7e07 (diff) | |
| download | perl-27da23d53ccce622bc51822f59df8def79b4df95.tar.gz | |
Symbian port of Perl
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@24271
Diffstat (limited to 'lib/ExtUtils/t/Embed.t')
| -rw-r--r-- | lib/ExtUtils/t/Embed.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t index fc0ed3cbc1..1c82cd9ae0 100644 --- a/lib/ExtUtils/t/Embed.t +++ b/lib/ExtUtils/t/Embed.t @@ -153,10 +153,22 @@ __END__ static char *cmds[] = { "perl","-e", "$|=1; print qq[ok 5\\n]", NULL }; +#ifdef PERL_GLOBAL_STRUCT_PRIVATE +static struct perl_vars *my_plvarsp; +struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; } +#endif + int main(int argc, char **argv, char **env) { PerlInterpreter *my_perl; - +#ifdef PERL_GLOBAL_STRUCT + dVAR; + struct perl_vars *plvarsp = init_global_struct(); +# ifdef PERL_GLOBAL_STRUCT_PRIVATE + my_vars = my_plvarsp = plvarsp; +# endif +#endif /* PERL_GLOBAL_STRUCT */ + PERL_SYS_INIT3(&argc,&argv,&env); my_perl = perl_alloc(); @@ -183,6 +195,10 @@ int main(int argc, char **argv, char **env) perl_free(my_perl); +#ifdef PERL_GLOBAL_STRUCT + free_global_struct(plvarsp); +#endif /* PERL_GLOBAL_STRUCT */ + my_puts("ok 8"); PERL_SYS_TERM(); |