From e6f5dd28546ea4a234c5879e434e9bccd0e6e283 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 10 Jul 2012 17:58:08 -0500 Subject: this causes redefinition warnings too on earlier perls --- lib/Package/Stash/PP.pm | 1 + 1 file changed, 1 insertion(+) 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; } -- cgit v1.2.3-54-g00ecf