diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-07-10 17:58:08 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-07-10 17:58:08 -0500 |
| commit | e6f5dd28546ea4a234c5879e434e9bccd0e6e283 (patch) | |
| tree | e97dbe74a936fc742160af7c3e2602b4a5569855 | |
| parent | 7d36752dfb8434954e17524a0f6a5fb68352c1eb (diff) | |
| download | package-stash-e6f5dd28546ea4a234c5879e434e9bccd0e6e283.tar.gz package-stash-e6f5dd28546ea4a234c5879e434e9bccd0e6e283.zip | |
this causes redefinition warnings too on earlier perls
| -rw-r--r-- | lib/Package/Stash/PP.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Package/Stash/PP.pm b/lib/Package/Stash/PP.pm index 49cce98..9c8e924 100644 --- a/lib/Package/Stash/PP.pm +++ b/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; } |