diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-07-10 06:29:14 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-07-10 14:45:27 +0000 |
| commit | 7600f30e40226309d1c42e35166afa4f248f3c4f (patch) | |
| tree | 0042cc67dc37d3b2c829dc19d2523f9f1697e2e2 /ext | |
| parent | 39b6627f5993ef9c7b04fdf4ea0c6a6219cf4639 (diff) | |
| download | perl-7600f30e40226309d1c42e35166afa4f248f3c4f.tar.gz | |
threads::shared 1.24 (still more)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807100729k4b620d3dl3fa079b89360f5ee@mail.gmail.com>
Fixes warnings introduced by previous patch.
p4raw-id: //depot/perl@34118
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/threads/shared/shared.xs | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 50f70af350..b9a324191b 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -876,7 +876,9 @@ sharedsv_elem_mg_FETCH(pTHX_ SV *sv, MAGIC *mg) I32 len = mg->mg_len; assert ( mg->mg_ptr != 0 ); if (mg->mg_len == HEf_SVKEY) { - key = SvPV((SV *)mg->mg_ptr, len); + STRLEN slen; + key = SvPV((SV *)mg->mg_ptr, slen); + len = slen; if (SvUTF8((SV *)mg->mg_ptr)) { len = -len; } @@ -930,7 +932,9 @@ sharedsv_elem_mg_STORE(pTHX_ SV *sv, MAGIC *mg) I32 len = mg->mg_len; assert ( mg->mg_ptr != 0 ); if (mg->mg_len == HEf_SVKEY) { - key = SvPV((SV *)mg->mg_ptr, len); + STRLEN slen; + key = SvPV((SV *)mg->mg_ptr, slen); + len = slen; if (SvUTF8((SV *)mg->mg_ptr)) { len = -len; } @@ -965,7 +969,9 @@ sharedsv_elem_mg_DELETE(pTHX_ SV *sv, MAGIC *mg) I32 len = mg->mg_len; assert ( mg->mg_ptr != 0 ); if (mg->mg_len == HEf_SVKEY) { - key = SvPV((SV *)mg->mg_ptr, len); + STRLEN slen; + key = SvPV((SV *)mg->mg_ptr, slen); + len = slen; if (SvUTF8((SV *)mg->mg_ptr)) { len = -len; } @@ -1287,7 +1293,9 @@ EXISTS(SV *obj, SV *index) exists = av_exists((AV*) sobj, SvIV(index)); } else { I32 len; - char *key = SvPVutf8(index, len); + STRLEN slen; + char *key = SvPVutf8(index, slen); + len = slen; if (SvUTF8(index)) { len = -len; } |