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