diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-01-03 23:56:51 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-01-03 23:56:51 -0600 |
| commit | 948efbf576d8799d1089ed240c31c8c0b6d42e14 (patch) | |
| tree | c07706876ab8ddb2f8de66ccfe0969a503d00679 | |
| parent | 1aa95f301e5cbc44bf07782627f1e1d6fc7ed963 (diff) | |
| download | package-stash-948efbf576d8799d1089ed240c31c8c0b6d42e14.tar.gz package-stash-948efbf576d8799d1089ed240c31c8c0b6d42e14.zip | |
need to handle BROKEN_ISA_ASSIGNMENT here too
| -rw-r--r-- | lib/Package/Stash/PP.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Package/Stash/PP.pm b/lib/Package/Stash/PP.pm index f9b81c0..c709400 100644 --- a/lib/Package/Stash/PP.pm +++ b/lib/Package/Stash/PP.pm @@ -178,7 +178,13 @@ sub add_symbol { } else { no strict 'refs'; - *{ $self->name . '::' . $name } = $self->_undef_ref_for_type($type); + if (BROKEN_ISA_ASSIGNMENT && $name eq 'ISA') { + *{ $self->name . '::' . $name }; + } + else { + my $undef = $self->_undef_ref_for_type($type); + *{ $self->name . '::' . $name } = $undef; + } } } else { |