diff options
| author | mat <mat@FreeBSD.org> | 2004-04-04 21:10:38 +0000 |
|---|---|---|
| committer | mat <mat@FreeBSD.org> | 2004-04-04 21:10:38 +0000 |
| commit | e714dea32d57c5bf328eaecf36f5861bc851ad82 (patch) | |
| tree | 20dfdde08d1c89b14e72492c880e5c81d5361d89 /Tools/scripts | |
| parent | 2f5de4565f2b10c3ad07136e2137f654110ebf86 (diff) | |
| download | FreeBSD-ports-e714dea32d57c5bf328eaecf36f5861bc851ad82.zip FreeBSD-ports-e714dea32d57c5bf328eaecf36f5861bc851ad82.tar.gz | |
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
Diffstat (limited to 'Tools/scripts')
| -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 a5605d0..07f5e5d 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>) { |
