From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 4 Mar 2003 23:25:01 +0000 (+0000)
Subject: Change #18829 makes this test workaround obsolete.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b891b7335194e891dcfaf5a5077012facb06d75b;p=p5sagit%2Fp5-mst-13.2.git

Change #18829 makes this test workaround obsolete.

p4raw-id: //depot/perl@18830
---

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 1078112..f60d913 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,