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

diff --git a/op.c b/op.c
index 290f11a..795de09 100644 (file)
--- 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 9b5fd61..cb43510 100644 (file)
--- 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 = '';