From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 16 Apr 2002 15:47:33 +0000 (+0100)
Subject: B::Deparse problems with japhs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c55e82c946d144622072e754ebdfb38892b3ad7;p=p5sagit%2Fp5-mst-13.2.git

B::Deparse problems with japhs
Message-Id: <200204161447.g3GElX016515@crypt.compulink.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 39b38d1..b10c1fb 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1080,7 +1080,8 @@ sub gv_name {
 Carp::confess() if $gv->isa("B::CV");
     my $stash = $gv->STASH->NAME;
     my $name = $gv->SAFENAME;
-    if ($stash eq $self->{'curstash'} or $globalnames{$name}
+    if (($stash eq 'main' && $globalnames{$name})
+	or ($stash eq $self->{'curstash'} && !$globalnames{$name})
 	or $name =~ /^[^A-Za-z_]/)
     {
 	$stash = "";