From 51e5a3db028f084837c4480c0accdebfa7a6e623 Mon Sep 17 00:00:00 2001
From: Stephen McCamant <smcc@mit.edu>
Date: Fri, 16 Apr 1999 19:46:13 -0700
Subject: [PATCH] Re: pdt: Perl Development Tools?

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

p4raw-id: //depot/perl@3346
---
 ext/B/B/Xref.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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];
     }
 }
-- 
2.7.4