diff options
| author | Stephen McCamant <smcc@mit.edu> | 1999-04-16 19:46:13 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-09 18:38:00 +0000 |
| commit | 51e5a3db028f084837c4480c0accdebfa7a6e623 (patch) | |
| tree | 9c872ce79a45a1f62142998852bcab4c62485829 /ext | |
| parent | 95140b9803ddf95b050f1d52936f19393a6b541c (diff) | |
| download | perl-51e5a3db028f084837c4480c0accdebfa7a6e623.tar.gz | |
Re: pdt: Perl Development Tools?
Message-ID: <14103.57454.614253.598264@fre-76-120.reshall.berkeley.edu>
p4raw-id: //depot/perl@3346
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Xref.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm index 15382aa2e5..854db71189 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]; } } |