From 6e5777c67012a0c5d123dcb7dc56092a649e058f Mon Sep 17 00:00:00 2001 From: Mathieu Arnold Date: Sun, 4 Apr 2004 21:10:38 +0000 Subject: [PATCH] While generating commit message, don't lowercase the first letter if the second is upper case (ie : don't end up with pEAR) Approved by: will Asked by: thierry --- Tools/scripts/addport | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Tools/scripts/addport b/Tools/scripts/addport index a5605d0789b8..07f5e5d96b89 100755 --- a/Tools/scripts/addport +++ b/Tools/scripts/addport @@ -234,8 +234,8 @@ foreach my $thisdir (@dirs) { # Read COMMENT for part of the commit message. chomp($pkgcomment = `$make $passenv -V COMMENT`); # Change the first character to lowercase to make it fit with the - # rest of the commit message. - $pkgcomment =~ s/(^.)/\l$1/; + # rest of the commit message, only if the second is not upper case. + $pkgcomment =~ s/(^.)(?![A-Z])/\l$1/; # Read Makefile to find necessary variables. open(MAKEFILE, "Makefile") or die("Can't open Makefile for reading: $!"); while() {