diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-30 20:37:03 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-30 20:37:03 +0000 |
| commit | 7d654f43b92f51303a8d5388d3c3bfb7ebbceb22 (patch) | |
| tree | 2e25dddcf146578b2321b2bcd29bd231fc246916 /scope.c | |
| parent | 1baaf5d77b117bc72b4f2555e0c839aed879e744 (diff) | |
| download | perl-7d654f43b92f51303a8d5388d3c3bfb7ebbceb22.tar.gz | |
Fix bug #38815 (localising keys which are UTF-8 encoded didn't delete
them correctly on scope exit)
p4raw-id: //depot/perl@27637
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -826,7 +826,7 @@ Perl_leave_scope(pTHX_ I32 base) ptr = SSPOPPTR; hv = (HV*)ptr; ptr = SSPOPPTR; - (void)hv_delete(hv, (char*)ptr, (U32)SSPOPINT, G_DISCARD); + (void)hv_delete(hv, (char*)ptr, (I32)SSPOPINT, G_DISCARD); SvREFCNT_dec(hv); Safefree(ptr); break; |