From: Robin Houston <robin@cpan.org>
Date: Thu, 5 Apr 2001 14:50:09 +0000 (+0100)
Subject: lexical variables with ridiculously long names that are used in list assignments
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68223ea372b68e09464511a52a560d68f6579117;p=p5sagit%2Fp5-mst-13.2.git

lexical variables with ridiculously long names that are used in list assignments
Message-ID: <20010405145009.A15916@puffinry.freeserve.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index eb8eb60..a16fe77 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1871,21 +1871,10 @@ sub pp_null {
     }
 }
 
-# the aassign in-common check messes up SvCUR (always setting it
-# to a value >= 100), but it's probably safe to assume there
-# won't be any NULs in the names of my() variables. (with
-# stash variables, I wouldn't be so sure)
-sub padname_fix {
-    my $str = shift;
-    $str = substr($str, 0, index($str, "\0")) if index($str, "\0") != -1;
-    return $str;
-}
-
 sub padname {
     my $self = shift;
     my $targ = shift;
-    my $str = $self->padname_sv($targ)->PV;
-    return padname_fix($str);
+    return $self->padname_sv($targ)->PVX;
 }
 
 sub padany {