diff options
Diffstat (limited to 'lib/Stash/Manip.pm')
-rw-r--r-- | lib/Stash/Manip.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Stash/Manip.pm b/lib/Stash/Manip.pm index 173ba13..a9f4bfa 100644 --- a/lib/Stash/Manip.pm +++ b/lib/Stash/Manip.pm @@ -205,7 +205,13 @@ sub get_package_symbol { my $namespace = $self->namespace; if (!exists $namespace->{$name}) { - if ($type eq 'ARRAY') { + # assigning to the result of this function like + # @{$stash->get_package_symbol('@ISA')} = @new_ISA + # makes the result not visible until the variable is explicitly + # accessed... in the case of @ISA, this might never happen + # for instance, assigning like that and then calling $obj->isa + # will fail. see t/005-isa.t + if ($type eq 'ARRAY' && $name ne 'ISA') { $self->add_package_symbol($variable, []); } elsif ($type eq 'HASH') { |