diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-26 19:34:50 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-26 19:34:50 +0000 |
commit | c69f6586a27b86846a13e0177336730d72b33c95 (patch) | |
tree | dd49b48eddff3458ac11e4a6943df1ac0c5e49d7 /win32/win32sck.c | |
parent | 2c5424a7b24f0afdb98193a224569ec80832f5c9 (diff) | |
download | perl-c69f6586a27b86846a13e0177336730d72b33c95.tar.gz |
[asperl] added AS patch#9
p4raw-id: //depot/asperl@591
Diffstat (limited to 'win32/win32sck.c')
-rw-r--r-- | win32/win32sck.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/win32/win32sck.c b/win32/win32sck.c index 14d2e6a45f..5c2b73f95a 100644 --- a/win32/win32sck.c +++ b/win32/win32sck.c @@ -17,6 +17,13 @@ #include <windows.h> #include "EXTERN.h" #include "perl.h" + +#if defined(PERL_OBJECT) +#define NO_XSLOCKS +extern CPerlObj* pPerl; +#include "XSUB.h" +#endif + #include <sys/socket.h> #include <fcntl.h> #include <sys/stat.h> @@ -613,7 +620,7 @@ win32_savecopyservent(struct servent*d, struct servent*s, const char *proto) d->s_proto = s->s_proto; else #endif - if (proto && strlen(proto)) + if (proto && strlen(proto)) d->s_proto = (char *)proto; else d->s_proto = "tcp"; |