From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 11 Mar 2002 22:37:39 +0000 (+0100)
Subject: fix to deparse ${^WARNINGS_BITS}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38b5cfe17505e32a79a0435cad2c47e689b89d92;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {