From: Vishal Bhatia <vishal@deja.com>
Date: Wed, 29 Sep 1999 23:27:28 +0000 (+0900)
Subject: [patch _61] Minor corrections in C.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6771324e8cd1e115a7bce4b59e23d9929549e229;p=p5sagit%2Fp5-mst-13.2.git

[patch _61] Minor corrections in C.pm

	Message-ID: <Pine.LNX.4.10.9909292326280.5599-100000@localhost.localdomain>

p4raw-id: //depot/perl@4254
---

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index b9e005b..b57d1ad 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'}) 
       {