As our $_; is forced into main::, it should warn as a redeclaration.

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index b1e8c902a2..dcecdb60c4 100644
--- a/op.c
+++ b/op.c
@@ -408,7 +408,7 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
 
     /* check for duplicate declaration */
     pad_check_dup(name, len, is_our ? pad_add_OUR : 0,
-		  (PL_curstash ? PL_curstash : PL_defstash));
+		  (PL_curstash && !strEQ(name,"$_") ? PL_curstash : PL_defstash));
 
     /* allocate a spare slot and store the name in that slot */