diff options
| author | Mathieu Arnold <mat@FreeBSD.org> | 2004-04-04 21:10:38 +0000 |
|---|---|---|
| committer | Mathieu Arnold <mat@FreeBSD.org> | 2004-04-04 21:10:38 +0000 |
| commit | 6e5777c67012a0c5d123dcb7dc56092a649e058f (patch) | |
| tree | 01692736bad811e54e96ba88c5e3aa0291cf93c6 | |
| parent | Add p5-Class-DBI-Plugin-Type 0.02, determine type information for (diff) | |
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
Notes
Notes:
svn path=/head/; revision=106153
| -rwxr-xr-x | Tools/scripts/addport | 4 |
1 files 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(<MAKEFILE>) { |