diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-02-01 01:18:13 -0800 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-01 22:20:20 +0000 |
| commit | 565764a853a177193a027e73655fad354d57fc10 (patch) | |
| tree | 81b4f0277636b6f8214748868d0d9d7cc791d577 /globals.c | |
| parent | 8f818fa030b966544b5cf7bdfa53e06a9c371bfe (diff) | |
| download | perl-565764a853a177193a027e73655fad354d57fc10.tar.gz | |
[asperl] added AS patch#3
Message-Id: <01BD2EF2.53433A40.dougl@ActiveState.com>
To: "'Gurusamy Sarathy'" <gsar@umich.edu>
Here's an additional diff against //depot/asperl
The field name mg_length was changed back to mg_len
The function name mg_len was change to mg_length
The need for sort_mutex removed thanks to the code derived
from Tom Horsley's work.
-- Doug
p4raw-id: //depot/asperl@451
Diffstat (limited to 'globals.c')
| -rw-r--r-- | globals.c | 14 |
1 files changed, 10 insertions, 4 deletions
@@ -1435,14 +1435,11 @@ CPerlObj::Init(void) curcop = &compiling; cxstack_ix = -1; cxstack_max = 128; + chopset = " \n-"; #ifdef USE_THREADS threadsv_names = THREADSV_NAMES; - chopset = " \n-"; tmps_ix = -1; tmps_floor = -1; - curcop = &compiling; - cxstack_ix = -1; - cxstack_max = 128; #endif maxo = MAXO; sh_path = SH_PATH; @@ -1497,6 +1494,15 @@ do_aspawn(void *vreally, void **vmark, void **vsp) return PerlProc_aspawn(vreally, vmark, vsp); } +EXTERN_C void boot_DynaLoader _((CPERLarg_ CV* cv)); + +void CPerlObj::BootDynaLoader(void) +{ + char *file = __FILE__; + dXSUB_SYS; + newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); +} + #endif /* WIN32 */ #endif /* PERL_OBJECT */ |