Permalink
Browse files

this causes redefinition warnings too on earlier perls

  • Loading branch information...
1 parent 7d36752 commit e6f5dd28546ea4a234c5879e434e9bccd0e6e283 @doy committed Jul 10, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 lib/Package/Stash/PP.pm
@@ -172,6 +172,7 @@ sub add_symbol {
if (BROKEN_GLOB_ASSIGNMENT) {
if (@_ > 2) {
no strict 'refs';
+ no warnings 'redefine';
*{ $self->name . '::' . $name } = ref $initial_value
? $initial_value : \$initial_value;
}

0 comments on commit e6f5dd2

Please sign in to comment.