diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-08 08:22:17 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-08 08:22:17 +0000 |
| commit | 510ac311e710618e33e17a498b0d9cb4d2b69b89 (patch) | |
| tree | d85c5d92d80319ff763f101f0bb7f3dfdef9c0a4 /hv.c | |
| parent | df8c69647dfe89de227fd81e7ece25070f8b880e (diff) | |
| download | perl-510ac311e710618e33e17a498b0d9cb4d2b69b89.tar.gz | |
Integrate change #21862 from maint-5.8 :
Win32/MinGW tweaks
A. ENV_IS_CASELESS has trys to free(keysave) when
keysave isn't in scope yet.
B. For default makefile.mk which build with perlhost.h
stuff "live" need to link with g++ to find new/delete etc.
p4raw-link: @21862 on //depot/maint-5.8/perl: 4db40f21e8071917ddf2daa52294e1413442660d
p4raw-id: //depot/perl@21870
p4raw-integrated: from //depot/maint-5.8/perl@21869 'merge in'
win32/makefile.mk (@21777..) hv.c (@21838..)
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -909,9 +909,12 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, keysv = sv_2mortal(newSVpvn(key,klen)); key = strupr(SvPVX(keysv)); +#if 0 + /* keysave not in scope - don't understand - NI-S */ if (k_flags & HVhek_FREEKEY) { Safefree(keysave); } +#endif is_utf8 = 0; k_flags = 0; |