diff options
author | Tony Cook <tony@develop-help.com> | 2013-11-20 15:11:15 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-11-20 15:11:15 +1100 |
commit | 670de6d6a9c900cd23ea5f542b7d35bbd83f1084 (patch) | |
tree | 18b4bc3b73d48568f317517fcac868f3270b5764 | |
parent | 709aee9447f22f3f59d548d44298cca98a023f80 (diff) | |
parent | 878ce265487fe15b56308f8b48e182f3a1418c9b (diff) | |
download | perl-670de6d6a9c900cd23ea5f542b7d35bbd83f1084.tar.gz |
[perl #120043] fix some warnings
with an update for perldiag
-rw-r--r-- | mg.c | 2 | ||||
-rw-r--r-- | perl.c | 4 | ||||
-rw-r--r-- | pod/perldiag.pod | 2 | ||||
-rw-r--r-- | regexec.c | 2 |
4 files changed, 5 insertions, 5 deletions
@@ -1969,7 +1969,7 @@ Perl_magic_setdbline(pTHX_ SV *sv, MAGIC *mg) /* The magic ptr/len for the debugger's hash should always be an SV. */ if (UNLIKELY(mg->mg_len != HEf_SVKEY)) { Perl_croak(aTHX_ "panic: magic_setdbline len=%"IVdf", ptr='%s'", - mg->mg_len, mg->mg_ptr); + (IV)mg->mg_len, mg->mg_ptr); } /* Use sv_2iv instead of SvIV() as the former generates smaller code, and @@ -4902,7 +4902,7 @@ Perl_my_exit(pTHX_ U32 status) } if (PL_exit_flags & PERL_EXIT_WARN) { PL_exit_flags |= PERL_EXIT_ABORT; /* Protect against reentrant calls */ - Perl_warn(aTHX_ "Unexpected exit %u", status); + Perl_warn(aTHX_ "Unexpected exit %lu", (unsigned long)status); PL_exit_flags &= ~PERL_EXIT_ABORT; } switch (status) { @@ -5007,7 +5007,7 @@ Perl_my_failure_exit(pTHX) } if (PL_exit_flags & PERL_EXIT_WARN) { PL_exit_flags |= PERL_EXIT_ABORT; /* Protect against reentrant calls */ - Perl_warn(aTHX_ "Unexpected exit failure %u", PL_statusvalue); + Perl_warn(aTHX_ "Unexpected exit failure %ld", (long)PL_statusvalue); PL_exit_flags &= ~PERL_EXIT_ABORT; } my_exit_jump(); diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 773c43bdcc..4061fe2a91 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -5538,7 +5538,7 @@ internal consistency check. It encountered a malformed op tree. (S) exit() was called or the script otherwise finished gracefully when C<PERL_EXIT_WARN> was set in C<PL_exit_flags>. -=item Unexpected exit failure %u +=item Unexpected exit failure %d (S) An uncaught die() was called when C<PERL_EXIT_WARN> was set in C<PL_exit_flags>. @@ -2283,7 +2283,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, char *strend, : strbeg; /* pos() not defined; use start of string */ DEBUG_GPOS_r(PerlIO_printf(Perl_debug_log, - "GPOS ganch set to strbeg[%"IVdf"]\n", reginfo->ganch - strbeg)); + "GPOS ganch set to strbeg[%"IVdf"]\n", (IV)(reginfo->ganch - strbeg))); /* in the presence of \G, we may need to start looking earlier in * the string than the suggested start point of stringarg: |