In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/fa4d2728e1c1647c2f95c563fa81c5054e32c80c?hp=cfe40115f051ad2b49de7e3fe47a8bcfcd3c5029>
- Log ----------------------------------------------------------------- commit fa4d2728e1c1647c2f95c563fa81c5054e32c80c Author: Ãvar Arnfjörð Bjarmason <[email protected]> Date: Mon Dec 29 13:44:52 2014 +0100 t/op/caller.t: Remove hardcoded $warnings::BYTES in favor of using $warnings::BYTES This was originally hardcoded here in perl-5.8.0-909-g75b6c4c but since then in numerous subsequent commits starting with v5.13.9-546-g3a32947 we've been bumping this number as we increase the number of warning bits. Just use the variable from warnings.pm instead, we're already using other variables from there. ----------------------------------------------------------------------- Summary of changes: t/op/caller.t | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/t/op/caller.t b/t/op/caller.t index 3f94f8c..6e56d67 100644 --- a/t/op/caller.t +++ b/t/op/caller.t @@ -109,10 +109,8 @@ sub testwarn { vec($registered, $warnings::LAST_BIT/2, 2) = 1; } - # The repetition number must be set to the value of $BYTES in - # lib/warnings.pm - BEGIN { check_bits( ${^WARNING_BITS}, "\0" x 17, 'all bits off via "no warnings"' ) } - testwarn("\0" x 17, 'no bits'); + BEGIN { check_bits( ${^WARNING_BITS}, "\0" x $warnings::BYTES, 'all bits off via "no warnings"' ) } + testwarn("\0" x $warnings::BYTES, 'no bits'); use warnings; BEGIN { check_bits( ${^WARNING_BITS}, $default, -- Perl5 Master Repository
