X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/4e9b6328625a5360eb2f43579c8e8bb3b3fd2e7c..50786ba82909a0386df116b3a3881805219d1abf:/ext/B/B/Concise.pm?ds=sidebyside

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 85da4e5..e458727 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -688,10 +688,9 @@ sub concise_sv {
       if $hr->{svclass} eq "IV" and $sv->FLAGS & SVf_IVisUV;
     Carp::cluck("bad concise_sv: $sv") unless $sv and $$sv;
     $hr->{svaddr} = sprintf("%#x", $$sv);
-    if ($hr->{svclass} eq "GV") {
+    if ($hr->{svclass} eq "GV" && $sv->isGV_with_GP()) {
 	my $gv = $sv;
-	my $stash = $gv->STASH->NAME;
-	if ($stash eq "main") {
+	my $stash = $gv->STASH->NAME; if ($stash eq "main") {
 	    $stash = "";
 	} else {
 	    $stash = $stash . "::";