av_fetch(): use AvFILLp rather than AvFILL

The point in the code which uses AvFILL will never be reached if the array
is tied, so use AvFILLp insead, which directly accesses the xav_fill
field.

This only affects the $a[-N] branch: the $a[+N] branch already uses
AvFILLp().

1 files changed, 1 insertions, 1 deletions

diff --git a/av.c b/av.c
index 2f819717a7..a48702bb7d 100644
--- a/av.c
+++ b/av.c
@@ -269,7 +269,7 @@ Perl_av_fetch(pTHX_ AV *av, SSize_t key, I32 lval)
     }
 
     if (key < 0) {
-	key += AvFILL(av) + 1;
+	key += AvFILLp(av) + 1;
 	if (key < 0)
 	    return NULL;
     }