[perl #7911] no warning for useless /d in tr/0-9//d

From: "reneeb via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-10965-1226931231-1833.7911-15-0@perl.org>

p4raw-id: //depot/perl@34905

1 files changed, 9 insertions, 0 deletions

diff --git a/op.c b/op.c
index b67983520b..10c1fc9be9 100644
--- a/op.c
+++ b/op.c
@@ -3451,6 +3451,15 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 	    }
 	}
     }
+
+    if(ckWARN(WARN_MISC)) {
+        if(del && rlen == tlen) {
+            Perl_warner(aTHX_ packWARN(WARN_MISC), "Useless use of /d modifier in transliteration operator"); 
+        } else if(rlen > tlen) {
+            Perl_warner(aTHX_ packWARN(WARN_MISC), "Replacement list is longer than search list");
+        } 
+    }
+
     if (grows)
 	o->op_private |= OPpTRANS_GROWS;
 #ifdef PERL_MAD