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 (file)
--- 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;
 }