diff options
Diffstat (limited to 'ext/B/B/Concise.pm')
-rw-r--r-- | ext/B/B/Concise.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 67876a1c8c..686bfafa23 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -711,7 +711,14 @@ sub concise_sv { $hr->{svaddr} = sprintf("%#x", $$sv); 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; + if (class($stash) eq "SPECIAL") { + $stash = "<none>"; + } + else { + $stash = $stash->NAME; + } + if ($stash eq "main") { $stash = ""; } else { $stash = $stash . "::"; |