Change 20005 by [EMAIL PROTECTED] on 2003/07/05 07:50:53
Subject: [PATCH maint] partially rescind Concise pad patch.
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Fri, 4 Jul 2003 22:10:11 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/ext/B/B/Concise.pm#11 edit
Differences ...
==== //depot/maint-5.8/perl/ext/B/B/Concise.pm#11 (text) ====
Index: perl/ext/B/B/Concise.pm
--- perl/ext/B/B/Concise.pm#10~19951~ Thu Jul 3 01:47:35 2003
+++ perl/ext/B/B/Concise.pm Sat Jul 5 00:50:53 2003
@@ -438,11 +438,7 @@
if (defined $padname and class($padname) ne "SPECIAL") {
$h{targarg} = $padname->PVX;
if ($padname->FLAGS & SVf_FAKE) {
- my $fake = '';
- $fake .= 'a' if $padname->IVX & 1; # PAD_FAKELEX_ANON
- $fake .= 'm' if $padname->IVX & 2; # PAD_FAKELEX_MULTI
- $fake .= ':' . $padname->NVX if $curcv->CvFLAGS & CVf_ANON;
- $h{targarglife} = "$h{targarg}:FAKE:$fake";
+ $h{targarglife} = "$h{targarg}:FAKE";
}
else {
my $intro = $padname->NVX - $cop_seq_base;
End of Patch.
