Change 13730 by jhi@alpha on 2001/12/17 17:26:44
Subject: [PATCH ext/B/B/Deparse.pm] Re: [ID 20011216.005] B::Deparse turns
legal code into illegal ones.
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Sun, 16 Dec 2001 16:12:55 -0500
Message-ID: <20011216211255.GV8900@blackrider>
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#97 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#97 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Mon Dec 17 10:30:06 2001
+++ perl/ext/B/B/Deparse.pm Mon Dec 17 10:30:06 2001
@@ -1145,8 +1145,8 @@
} else {
$stash = $stash . "::";
}
- if ($name =~ /^\^../) {
- $name = "{$name}"; # ${^WARNING_BITS} etc
+ if ($name =~ /^(\^..|{)/) {
+ $name = "{$name}"; # ${^WARNING_BITS}, etc and ${
}
return $stash . $name;
}
End of Patch.
