Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Cant locate object method "NAME" via package "B::SPECIAL"

  • Loading branch information...
commit f2ee99813ff0e65d0ceebbe531946c9c675d740b 1 parent 810295e
@rurban authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/B/C.pm
View
2  lib/B/C.pm
@@ -467,7 +467,7 @@ sub padop_name {
if (defined($t) and ref($t) ne 'B::SPECIAL') {
my $pv = $t->can('PVX') ? $t->PVX : '';
# need to fix B for SVpad_TYPEDI without formal STASH
- my $stash = ref($t) eq 'B::PVMG' ? $t->SvSTASH->NAME : '';
+ my $stash = (ref($t) eq 'B::PVMG' and ref($t->SvSTASH) ne 'B::SPECIAL') ? $t->SvSTASH->NAME : '';
return wantarray ? ($stash,$pv,$sv) : $pv;
} elsif ($sv) {
my $pv = $sv->PV if $sv->can("PV");
Please sign in to comment.
Something went wrong with that request. Please try again.