Finally, this "Negative repeat count" warning wasn't such a great

idea. Disable it. But add tests for this :

Subject: Re: [perl #27811] (@x) x -1 is a panic
Message-ID: <20040321152704.GA9041@petdance.com>

p4raw-id: //depot/perl@22549

1 files changed, 1 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index 53c7162915..4c3e377ec4 100644
--- a/pp.c
+++ b/pp.c
@@ -1386,11 +1386,8 @@ PP(pp_repeat)
   dSP; dATARGET; tryAMAGICbin(repeat,opASSIGN);
   {
     register IV count = POPi;
-    if (count < 0) {
-	if (ckWARN(WARN_MISC))
-	    Perl_warner(aTHX_ packWARN(WARN_MISC), "Negative repeat count");
+    if (count < 0)
 	count = 0;
-    }
     if (GIMME == G_ARRAY && PL_op->op_private & OPpREPEAT_DOLIST) {
 	dMARK;
 	I32 items = SP - MARK;