Change 15185 by ams@lustre on 2002/03/12 05:25:59
Subject: [PATCH B::Deparse] fix to deparse ${^WARNINGS_BITS}
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Mon, 11 Mar 2002 22:37:39 +0100
Message-Id: <20020311223739.A691@rafael>
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#114 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#114 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Mon Mar 11 22:30:06 2002
+++ perl/ext/B/B/Deparse.pm Mon Mar 11 22:30:06 2002
@@ -1265,7 +1265,9 @@
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 {
End of Patch.
