summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-12-29 17:35:25 +0000
committerNicholas Clark <nick@ccl4.org>2007-12-29 17:35:25 +0000
commit156d2b4303bd9581fb8f5aea70c69ed9320944c4 (patch)
treea69f531c5922aa59d583781c169321c50a49e7d4
parent52d81aa88ad6014ec0ca7c381776c58dd68e428a (diff)
downloadperl-156d2b4303bd9581fb8f5aea70c69ed9320944c4.tar.gz
Change 32760 needed to add a cast to avoid a warning.
p4raw-id: //depot/perl@32776
-rw-r--r--av.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/av.c b/av.c
index afca8bf21c..61e44495fc 100644
--- a/av.c
+++ b/av.c
@@ -977,8 +977,10 @@ Perl_av_iter_p(pTHX_ AV *av) {
return &(mg->mg_len);
#else
if (!mg->mg_ptr) {
+ IV *temp;
mg->mg_len = IVSIZE;
- Newxz(mg->mg_ptr, 1, IV);
+ Newxz(temp, 1, IV);
+ mg->mg_ptr = (char *) temp;
}
return (IV *)mg->mg_ptr;
#endif