diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-01 12:05:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-01 12:05:56 +0000 |
| commit | b3c0bf3602cfb95d459cdd04ae7ddfd23779e14e (patch) | |
| tree | 68089685c059116b52d4330c912a24ccf7cbc94f /ext | |
| parent | b2f5ed49123019744d7a7be15208a7e98e095dd0 (diff) | |
| parent | a80b8354f5981907f826ef236ecd80cb746b2ace (diff) | |
| download | perl-b3c0bf3602cfb95d459cdd04ae7ddfd23779e14e.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4270
Diffstat (limited to 'ext')
| -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'}) { |