diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-29 22:45:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-29 22:45:15 +0000 |
| commit | 502c6561fcd473b7da3277363169d75f16ac2f8b (patch) | |
| tree | 5b840aca24d5b44969c910e6c97f9edf7e221e48 /pp_sort.c | |
| parent | 70d97eb0b44379e6179430e19c4bb4222d3544e9 (diff) | |
| download | perl-502c6561fcd473b7da3277363169d75f16ac2f8b.tar.gz | |
Eliminate (AV *) casts in *.c.
p4raw-id: //depot/perl@34650
Diffstat (limited to 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1553,7 +1553,7 @@ PP(pp_sort) if (priv & OPpSORT_INPLACE) { assert( MARK+1 == SP && *SP && SvTYPE(*SP) == SVt_PVAV); (void)POPMARK; /* remove mark associated with ex-OP_AASSIGN */ - av = (AV*)(*SP); + av = MUTABLE_AV((*SP)); max = AvFILL(av) + 1; if (SvMAGICAL(av)) { MEXTEND(SP, max); @@ -1663,10 +1663,10 @@ PP(pp_sort) if (hasargs) { /* This is mostly copied from pp_entersub */ - AV * const av = (AV*)PAD_SVl(0); + AV * const av = MUTABLE_AV(PAD_SVl(0)); cx->blk_sub.savearray = GvAV(PL_defgv); - GvAV(PL_defgv) = (AV*)SvREFCNT_inc_simple(av); + GvAV(PL_defgv) = MUTABLE_AV(SvREFCNT_inc_simple(av)); CX_CURPAD_SAVE(cx->blk_sub); cx->blk_sub.argarray = av; } |