fix to deparse ${^WARNINGS_BITS}

   Message-Id: <20020311223739.A691@rafael>

p4raw-id: //depot/perl@15185

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 5a61a6d..c405ef3 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1265,7 +1265,9 @@ sub declare_warnings {
     elsif (($to & WARN_MASK) eq "\0"x length($to)) {
        return "no warnings;\n";
     }
-    return "BEGIN {\${^WARNING_BITS} = ".cstring($to)."}\n";
+    my $wb = cstring($to);
+    $wb =~ s/([\$@])/\\$1/g;
+    return "BEGIN {\${^WARNING_BITS} = $wb}\n";
 }
 
 sub declare_hints {