diff options
author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-04-25 00:00:00 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-25 00:00:00 +1200 |
commit | fc36a67e8855d031b2a6921819d899eb149eee2d (patch) | |
tree | 7e927725470a83d271eae7d78123f60cb86e60df /win32 | |
parent | 74a7701791a30556a92328b89e5a00414a4ce4a3 (diff) | |
download | perl-fc36a67e8855d031b2a6921819d899eb149eee2d.tar.gz |
[inseparable changes from match from perl-5.003_97h to perl-5.003_97i]
CORE PORTABILITY
Subject: Provide memset() if it's missing
From: Chip Salzenberg <chip@perl.com>
Files: global.sym perl.h proto.h util.c
Subject: Don't tell GCC that warn(), croak(), and die() are printf-lik
From: Chip Salzenberg <chip@perl.com>
Files: proto.h
DOCUMENTATION
Subject: FAQ udpate (24-apr-97)
Date: Thu, 24 Apr 1997 16:47:23 -0600 (MDT)
From: Nathan Torkington <gnat@prometheus.frii.com>
Files: pod/perlfaq*.pod
private-msgid: 199704242247.QAA07010@prometheus.frii.com
OTHER CORE CHANGES
Subject: Misc. sv_vcatpvfn() fixes
From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Files: gv.c mg.c op.c perl.c pp.c pp_ctl.c sv.c toke.c util.c
Subject: Enforce order of sprintf() elements
From: Chip Salzenberg <chip@perl.com>
Files: sv.c
Subject: Guard against long numbers, <<LONG_DELIM, and <long glob>
From: Chip Salzenberg <chip@perl.com>
Files: global.sym mg.c perl.c pod/perldiag.pod proto.h toke.c util.c
Subject: Guard against C<goto> to deeply nested label
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldiag.pod pp_ctl.c
Subject: Guard against overflow in dup2() emulation
From: Chip Salzenberg <chip@perl.com>
Files: util.c
Subject: Win32: Guard against long function names
From: Chip Salzenberg <chip@perl.com>
Files: win32/win32sck.c
Subject: Make mess() always work, by using a non-arena SV
From: Chip Salzenberg <chip@perl.com>
Files: perl.c util.c
Subject: When copying a format line, take only its string value
From: Chip Salzenberg <chip@perl.com>
Files: sv.c
Subject: Fix LEAKTEST numbers
From: Chip Salzenberg <chip@perl.com>
Files: ext/DynaLoader/dl_vms.xs handy.h os2/os2.c util.c vms/vms.c win32/win32.c win32/win32sck.c
Diffstat (limited to 'win32')
-rw-r--r-- | win32/win32.c | 10 | ||||
-rw-r--r-- | win32/win32sck.c | 9 |
2 files changed, 8 insertions, 11 deletions
diff --git a/win32/win32.c b/win32/win32.c index ee50147538..0759df8f21 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -341,7 +341,7 @@ do_aspawn(void* really, void** mark, void** arglast) SV *sv = (SV*)really; SV** pSv = (SV**)mark; - New(1110, argv, (arglast - mark) + 4, char*); + New(1310, argv, (arglast - mark) + 4, char*); if(sv != Nullsv) { cmd = SvPV(sv, length); @@ -388,8 +388,8 @@ do_spawn(char *cmd) /* see if there are shell metacharacters in it */ if(!HasRedirection(cmd)) { - New(1102,argv, strlen(cmd) / 2 + 2, char*); - New(1103,cmd2, strlen(cmd) + 1, char); + New(1301,argv, strlen(cmd) / 2 + 2, char*); + New(1302,cmd2, strlen(cmd) + 1, char); strcpy(cmd2, cmd); a = argv; for (s = cmd2; *s;) { @@ -473,7 +473,7 @@ opendir(char *filename) * } */ /* Get us a DIR structure */ - Newz(1501, p, 1, DIR); + Newz(1303, p, 1, DIR); if(p == NULL) return NULL; @@ -495,7 +495,7 @@ opendir(char *filename) * the filenames that we find. */ idx = strlen(FindData.cFileName)+1; - New(1502, p->start, idx, char); + New(1304, p->start, idx, char); if(p->start == NULL) { CROAK("opendir: malloc failed!\n"); } diff --git a/win32/win32sck.c b/win32/win32sck.c index 45f7ac1cbf..891438dac9 100644 --- a/win32/win32sck.c +++ b/win32/win32sck.c @@ -121,12 +121,9 @@ __declspec(thread) struct servent myservent; void * GetAddress(HINSTANCE hInstance, char *lpFunctionName) { - char buffer[512]; FARPROC proc = GetProcAddress(hInstance, lpFunctionName); - if(proc == 0) { - sprintf(buffer, "Unable to get address of %s in WSock32.dll", lpFunctionName); - CROAK(buffer); - } + if(proc == 0) + CROAK("Unable to get address of %s in WSock32.dll", lpFunctionName); return proc; } @@ -240,7 +237,7 @@ myfdopen(int fd, char *mode) /* * If we get here, then fd is actually a socket. */ - Newz(1601, fp, 1, FILE); + Newz(1310, fp, 1, FILE); if(fp == NULL) { errno = ENOMEM; return NULL; |