From ae18ef2b7a279efbe1d88ca156fa4596b276dabe Mon Sep 17 00:00:00 2001 From: "Jerry D. Hedden" Date: Fri, 15 Jun 2007 05:49:47 -0400 Subject: [PATCH] Warning bit fixes to t/op/caller.t From: "Jerry D. Hedden" Message-ID: <1ff86f510706150649l320d629cl8820bfbf938c9f4d@mail.gmail.com> p4raw-id: //depot/perl@31389 --- t/op/caller.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/op/caller.t b/t/op/caller.t index 5b5f62a..02831ec 100644 --- a/t/op/caller.t +++ b/t/op/caller.t @@ -77,15 +77,15 @@ sub testwarn { testwarn("\0" x 12); use warnings; - BEGIN { is( ${^WARNING_BITS}, "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\025", 'default bits on via "use warnings"' ); } - BEGIN { testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\025", "#1"); } + BEGIN { is( ${^WARNING_BITS}, "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\005", 'default bits on via "use warnings"' ); } + BEGIN { testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\005", "#1"); } # run-time : # the warning mask has been extended by warnings::register - testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55"); + testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15"); use warnings::register; - BEGIN { is( ${^WARNING_BITS}, "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", 'warning bits on via "use warnings::register"' ) } - testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55","#3"); + BEGIN { is( ${^WARNING_BITS}, "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15", 'warning bits on via "use warnings::register"' ) } + testwarn("\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15","#3"); } -- 2.7.4