diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-06-15 05:49:47 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-15 13:52:34 +0000 |
| commit | ae18ef2b7a279efbe1d88ca156fa4596b276dabe (patch) | |
| tree | 3d699c0de10ed285460ab78e8d5a77001cf755f8 /t/op/caller.t | |
| parent | cef6ea9dde586d23f429802e75d22875450d6b68 (diff) | |
| download | perl-ae18ef2b7a279efbe1d88ca156fa4596b276dabe.tar.gz | |
Warning bit fixes to t/op/caller.t
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706150649l320d629cl8820bfbf938c9f4d@mail.gmail.com>
p4raw-id: //depot/perl@31389
Diffstat (limited to 't/op/caller.t')
| -rw-r--r-- | t/op/caller.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/op/caller.t b/t/op/caller.t index 5b5f62a255..02831ec838 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"); } |