This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence compiler warning
authorKarl Williamson <khw@cpan.org>
Sun, 27 Sep 2020 21:45:22 +0000 (15:45 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 27 Sep 2020 21:54:31 +0000 (15:54 -0600)
Spotted by James Keenan

perl.h

diff --git a/perl.h b/perl.h
index e00a024..b0ddc56 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3880,7 +3880,7 @@ typedef I32 (*filter_t) (pTHX_ int, SV *, int);
                && idx >= AvFILLp(PL_parser->rsfp_filters))
 #define PERL_FILTER_EXISTS(i) \
            (PL_parser && PL_parser->rsfp_filters \
-               && (i) < av_count(PL_parser->rsfp_filters))
+               && (Size_t) (i) < av_count(PL_parser->rsfp_filters))
 
 #if defined(_AIX) && !defined(_AIX43)
 #if defined(USE_REENTRANT) || defined(_REENTRANT) || defined(_THREAD_SAFE)