From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 16 Dec 2001 16:12:55 +0000 (-0500)
Subject: Re: [ID 20011216.005] B::Deparse turns legal code into illegal ones.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=083bda0273e218fe3e0e3d7d62103426dba06c88;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20011216.005] B::Deparse turns legal code into illegal ones.
Message-ID: <20011216211255.GV8900@blackrider>

p4raw-id: //depot/perl@13730
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 7f7bf9b..fd88191 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1145,8 +1145,8 @@ Carp::confess() if $gv->isa("B::CV");
     } else {
 	$stash = $stash . "::";
     }
-    if ($name =~ /^\^../) {
-        $name = "{$name}";       # ${^WARNING_BITS} etc
+    if ($name =~ /^(\^..|{)/) {
+        $name = "{$name}";       # ${^WARNING_BITS}, etc and ${
     }
     return $stash . $name;
 }