diff options
| author | Salvador Fandiño <sfandino@yahoo.com> | 2003-02-21 17:26:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-04 20:49:59 +0000 |
| commit | 8fa7688f7865696bdfa78bc12d4ffb78bd1d6103 (patch) | |
| tree | 9737caf004c7fafa8466b02223aa35b52064734f /ext | |
| parent | 9bf4a77902309e820b008865d9ebf6110e4a6cac (diff) | |
| download | perl-8fa7688f7865696bdfa78bc12d4ffb78bd1d6103.tar.gz | |
[PATCH] assertions
Message-ID: <3E566138.4090709@yahoo.com>
and the complement : (with added comments)
Subject: [PATCH] bug in ext/B/t/deparse.t
Message-ID: <3E563E16.7060303@yahoo.com>
plus perldiag.pod patch for the new warning
(previous change was, once again, empty)
p4raw-id: //depot/perl@18828
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/deparse.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index ce133d0dff..1078112fe6 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -25,7 +25,12 @@ print "ok " . $i++ . "\n"; # Tell B::Deparse about our ambient pragmas { my ($hint_bits, $warning_bits); - BEGIN {($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS})} + # Note: there used to be ${^WARNING_BITS} here, instead of + # warnings::bits('all'), but this doesn't work, as ${^WARNING_BITS} is + # supposed to be the set of warnings this code has been compiled with, and + # later in this test we include modules that themselves use warnings::register + # (thus modyfing the warnings mask). + BEGIN { ($hint_bits, $warning_bits) = ($^H, warnings::bits('all')); } $deparse->ambient_pragmas ( hint_bits => $hint_bits, warning_bits => $warning_bits, |