This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix 64-bit compiler warning
authorJesse Luehrs <doy@tozt.net>
Mon, 2 Jul 2012 16:58:47 +0000 (11:58 -0500)
committerJesse Luehrs <doy@tozt.net>
Mon, 2 Jul 2012 16:58:47 +0000 (11:58 -0500)
pp_ctl.c

index 75204b1..54f17ae 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3279,7 +3279,7 @@ Perl_find_runcv_where(pTHX_ U8 cond, void *arg, U32 *db_seqp)
                    if (CvROOT(cv) != (OP *)arg) continue;
                    return cv;
                case FIND_RUNCV_level_eq:
-                   if (level++ != (int)arg) continue;
+                   if (level++ != (IV)arg) continue;
                    /* GERONIMO! */
                default:
                    return cv;