diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-04 23:25:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-04 23:25:01 +0000 |
| commit | b891b7335194e891dcfaf5a5077012facb06d75b (patch) | |
| tree | 8a4c6d0519b081d99bfc6dd9ec12e696077321ee | |
| parent | 75b6c4caab1abb3506eab9e8e512c69bbeb1c49f (diff) | |
| download | perl-b891b7335194e891dcfaf5a5077012facb06d75b.tar.gz | |
Change #18829 makes this test workaround obsolete.
p4raw-id: //depot/perl@18830
| -rw-r--r-- | ext/B/t/deparse.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index 1078112fe6..f60d91347a 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -25,12 +25,7 @@ print "ok " . $i++ . "\n"; # Tell B::Deparse about our ambient pragmas { my ($hint_bits, $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')); } + BEGIN { ($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS}); } $deparse->ambient_pragmas ( hint_bits => $hint_bits, warning_bits => $warning_bits, |