Don’t capitalise words in the middle of an error message

2 files changed, 2 insertions, 2 deletions

diff --git a/op.c b/op.c
index 290f11ad3b..795de09cff 100644
--- a/op.c
+++ b/op.c
@@ -1152,7 +1152,7 @@ Perl_scalarvoid(pTHX_ OP *o)
 
     case OP_SUBST:
 	if (cPMOPo->op_pmflags & PMf_NONDESTRUCT)
-	    useless = "Non-destructive substitution (s///r)";
+	    useless = "non-destructive substitution (s///r)";
 	break;
 
     case OP_RV2GV:
diff --git a/t/re/subst.t b/t/re/subst.t
index 9b5fd61c63..cb43510d31 100644
--- a/t/re/subst.t
+++ b/t/re/subst.t
@@ -64,7 +64,7 @@ like( $@, qr{Using !~ with s///r doesn't make sense}, 's///r !~ operator gives e
         must_warn sub { $b = $a =~ s/left/right/r }, '^Use of uninitialized value', 's///r Uninitialized warning';
 
         $a = 'david';
-        must_warn 's/david/sucks/r; 1',    '^Useless use of Non-destructive substitution', 's///r void context warning';
+        must_warn 's/david/sucks/r; 1',    '^Useless use of non-destructive substitution', 's///r void context warning';
 }
 
 $a = '';