Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37792626
en ru br
Репозитории ALT

Группа :: Разработка/Perl
Пакет: perl-Devel-FindRef

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: perl-Devel-FindRef-1.44-fix-format-warnings.patch
Скачать


diff --git a/FindRef.xs b/FindRef.xs
index ac4c991..662559f 100644
--- a/FindRef.xs
+++ b/FindRef.xs
@@ -47,7 +47,7 @@
 #define res_gv(sigil)						\
   res_text (form ("the global %c%s::%.*s", sigil,		\
                   HvNAME (GvSTASH (sv)),			\
-                  GvNAME_HEK (sv) ? GvNAMELEN (sv) : 11,	\
+                  GvNAME_HEK (sv) ? (int) GvNAMELEN (sv) : 11,	\
                   GvNAME_HEK (sv) ? GvNAME    (sv) : "<anonymous>"))
 
 MODULE = Devel::FindRef		PACKAGE = Devel::FindRef		
@@ -151,7 +151,7 @@ find_ (SV *target_ref)
 
                                 while ((he = hv_iternext ((HV *)sv)))
                                   if (HeVAL (he) == targ)
-                                    res_pair (form ("the hash member '%.*s' of", HeKLEN (he), HeKEY (he)));
+                                    res_pair (form ("the hash member '%.*s' of", (int) HeKLEN (he), HeKEY (he)));
                               }
 
                             break;
@@ -207,7 +207,7 @@ find_ (SV *target_ref)
                                     && CopLINE ((COP *)CvSTART (sv)))
                                   res_text (form ("the closure created at %s:%d",
                                                   CopFILE ((COP *)CvSTART (sv)) ? CopFILE ((COP *)CvSTART (sv)) : "<unknown>",
-                                                  CopLINE ((COP *)CvSTART (sv))));
+                                                  (int) CopLINE ((COP *)CvSTART (sv))));
                                 else
                                   res_text (form ("the closure created somewhere in file %s (PLEASE REPORT!)",
                                                   CvFILE (sv) ? CvFILE (sv) : "<unknown>"));
@@ -237,10 +237,10 @@ find_ (SV *target_ref)
                                       res_pair (form ("the target for the lvalue hash element '%.*s',",
                                                       (int)SvCUR (mg->mg_obj), SvPV_nolen (mg->mg_obj)));
                                     else
-                                      res_pair (form ("the target for the lvalue array element #%d,", LvTARGOFF (sv)));
+                                      res_pair (form ("the target for the lvalue array element #%zu,", LvTARGOFF (sv)));
                                   }
                                 else
-                                  res_pair (form ("an lvalue reference target (type '%c', ofs %d, len %d),",
+                                  res_pair (form ("an lvalue reference target (type '%c', ofs %zu, len %zu),",
                                                   LvTYPE (sv), LvTARGOFF (sv), LvTARGLEN (sv)));
                               }
 
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin