diff options
| author | mat <mat@FreeBSD.org> | 2004-04-05 05:10:38 +0800 |
|---|---|---|
| committer | mat <mat@FreeBSD.org> | 2004-04-05 05:10:38 +0800 |
| commit | e714dea32d57c5bf328eaecf36f5861bc851ad82 (patch) | |
| tree | 20dfdde08d1c89b14e72492c880e5c81d5361d89 | |
| parent | 2f5de4565f2b10c3ad07136e2137f654110ebf86 (diff) | |
| download | freebsd-ports-graphics-e714dea32d57c5bf328eaecf36f5861bc851ad82.tar.gz freebsd-ports-graphics-e714dea32d57c5bf328eaecf36f5861bc851ad82.tar.zst freebsd-ports-graphics-e714dea32d57c5bf328eaecf36f5861bc851ad82.zip | |
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
| -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 a5605d0789b..07f5e5d96b8 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>) { |