[perl #35857] [PATCH] B::Deparse doesnt handle warnings register properly.

Message-Id: <rt-3.0.11-35857-113142.6.75213005071278@perl.org>

p4raw-id: //depot/perl@24505

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 8e3e42e..c2a24a0 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1412,10 +1412,10 @@ sub pp_nextstate {
 
 sub declare_warnings {
     my ($from, $to) = @_;
-    if (($to & WARN_MASK) eq warnings::bits("all")) {
+    if (($to & WARN_MASK) eq (warnings::bits("all") & WARN_MASK)) {
        return "use warnings;\n";
     }
-    elsif (($to & WARN_MASK) eq "\0"x length($to)) {
+    elsif (($to & WARN_MASK) eq ("\0"x length($to) & WARN_MASK)) {
        return "no warnings;\n";
     }
     return "BEGIN {\${^WARNING_BITS} = ".perlstring($to)."}\n";