diff options
| author | Vishal Bhatia <vishal@deja.com> | 1999-02-08 01:14:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-15 10:07:08 +0000 |
| commit | 511dd457ec43006d88c98d57960fa4353caf989e (patch) | |
| tree | 475a99a32b2b34cb1e0556e33663b8b1db112e3c /ext | |
| parent | c1e2bff48f8e214c16257415fc1e1aed9d250312 (diff) | |
| download | perl-511dd457ec43006d88c98d57960fa4353caf989e.tar.gz | |
enable dynaloading in C.pm-compiled programs (non-conflicting part
of suggested patch)
Message-ID: <DHIDFFOPMEFDBAAA@my-dejanews.com>
Subject: [PATCH 5.005_54] some pending C.pm stuff
p4raw-id: //depot/perl@2940
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/C.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 647ae5ec82..3803c71a84 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -1034,6 +1034,8 @@ sub output_boilerplate { /* Workaround for mapstart: the only op which needs a different ppaddr */ #undef pp_mapstart #define pp_mapstart pp_grepstart +#define XS_DynaLoader_boot_DynaLoader boot_DynaLoader +EXTERN_C void boot_DynaLoader _((CV* cv)); static void xs_init _((void)); static PerlInterpreter *my_perl; @@ -1109,10 +1111,14 @@ main(int argc, char **argv, char **env) exit( exitstatus ); } +/* yanked from perl.c */ static void xs_init() { -} + char *file = __FILE__; + dXSUB_SYS; + newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); +} EOT } |