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 /win32/dl_win32.xs | |
| 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 'win32/dl_win32.xs')
| -rw-r--r-- | win32/dl_win32.xs | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs index 13d97211a3..f25a30f6ad 100644 --- a/win32/dl_win32.xs +++ b/win32/dl_win32.xs @@ -26,16 +26,24 @@ calls. #include "EXTERN.h" #include "perl.h" + +#ifdef PERL_OBJECT +#define NO_XSLOCKS +#endif /* PERL_OBJECT */ + #include "XSUB.h" #include "dlutils.c" /* SaveError() etc */ static void -dl_private_init(void) +dl_private_init(CPERLarg) { - (void)dl_generic_private_init(); + (void)dl_generic_private_init(THIS); } +#ifdef PERL_OBJECT +#define dl_static_linked(x) 0 +#else static int dl_static_linked(char *filename) { @@ -45,6 +53,7 @@ dl_static_linked(char *filename) }; return 0; } +#endif MODULE = DynaLoader PACKAGE = DynaLoader |