diff options
| author | Vishal Bhatia <vishal@deja.com> | 1999-09-30 08:27:28 +0900 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-30 08:40:14 +0000 |
| commit | 6771324e8cd1e115a7bce4b59e23d9929549e229 (patch) | |
| tree | 19614720db65d423d6f22f6be89c340b97973644 /ext/B | |
| parent | 7506f9c3f6b048fdb2fd155faf2d2e318605503c (diff) | |
| download | perl-6771324e8cd1e115a7bce4b59e23d9929549e229.tar.gz | |
[patch _61] Minor corrections in C.pm
Message-ID: <Pine.LNX.4.10.9909292326280.5599-100000@localhost.localdomain>
p4raw-id: //depot/perl@4254
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/C.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index b9e005bf41..b57d1ad2b3 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -595,8 +595,11 @@ sub B::CV::save { } # Reserve a place in svsect and xpvcvsect and record indices my $gv = $cv->GV; - my $cvstashname = $gv->STASH->NAME; - my $cvname = $gv->NAME; + my ($cvname, $cvstashname); + if ($$gv){ + $cvname = $gv->NAME; + $cvstashname = $gv->STASH->NAME; + } my $root = $cv->ROOT; my $cvxsub = $cv->XSUB; #INIT is removed from the symbol table, so this call must come @@ -1243,7 +1246,7 @@ sub mark_package { no strict 'refs'; $unused_sub_packages{$package} = 1; - if (@{$package.'::ISA'}) + if (defined @{$package.'::ISA'}) { foreach my $isa (@{$package.'::ISA'}) { |