new warning "Useless use of sort in scalar context"

Message-ID: <20011119132645.A15034@rafael>

p4raw-id: //depot/perl@13094

1 files changed, 3 insertions, 0 deletions

diff --git a/op.c b/op.c
index af125aa4af..6343a03578 100644
--- a/op.c
+++ b/op.c
@@ -1024,6 +1024,9 @@ Perl_scalar(pTHX_ OP *o)
 	}
 	WITH_THR(PL_curcop = &PL_compiling);
 	break;
+    case OP_SORT:
+	if (ckWARN(WARN_VOID))
+	    Perl_warner(aTHX_ WARN_VOID, "Useless use of sort in scalar context");
     }
     return o;
 }