Change 18830 by [EMAIL PROTECTED] on 2003/03/04 23:25:01
Change #18829 makes this test workaround obsolete.
Affected files ...
... //depot/perl/ext/B/t/deparse.t#9 edit
Differences ...
==== //depot/perl/ext/B/t/deparse.t#9 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#8~18828~ Tue Mar 4 12:49:59 2003
+++ perl/ext/B/t/deparse.t Tue Mar 4 15:25:01 2003
@@ -25,12 +25,7 @@
# 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,
End of Patch.
