From: Stephen McCamant <smcc@mit.edu>
Date: Sat, 17 Apr 1999 02:46:13 +0000 (-0700)
Subject: Re: pdt: Perl Development Tools?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51e5a3db028f084837c4480c0accdebfa7a6e623;p=p5sagit%2Fp5-mst-13.2.git

Re: pdt: Perl Development Tools?

	Message-ID: <14103.57454.614253.598264@fre-76-120.reshall.berkeley.edu>

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

diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm
index 15382aa..854db71 100644
--- a/ext/B/B/Xref.pm
+++ b/ext/B/B/Xref.pm
@@ -141,7 +141,7 @@ sub load_pad {
     for ($ix = 1; $ix < @namelist; $ix++) {
 	my $namesv = $namelist[$ix];
 	next if class($namesv) eq "SPECIAL";
-	my ($type, $name) = $namesv->PV =~ /^(.)(.*)$/;
+	my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
 	$pad[$ix] = ["(lexical)", $type, $name];
     }
 }