Fix few quad issues, which for example broke chr(~chr(~0)) for UTF8.

p4raw-id: //depot/perl@7236

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 4ddb12ce69..dc5e3b6f16 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2780,7 +2780,7 @@ PP(pp_aelem)
 {
     djSP;
     SV** svp;
-    I32 elem = POPi;
+    IV elem = POPi;
     AV* av = (AV*)POPs;
     U32 lval = PL_op->op_flags & OPf_MOD;
     U32 defer = (PL_op->op_private & OPpLVAL_DEFER) && (elem > AvFILL(av));