Change regex to also drop leading "an" from Summary.
This commit is contained in:
@@ -1,6 +1,7 @@
|
|||||||
1.69
|
1.69
|
||||||
|
|
||||||
* Exclude autobuild.sh.
|
* Exclude autobuild.sh.
|
||||||
|
* Change regex to also drop leading "an" from Summary.
|
||||||
|
|
||||||
1.68 2006-07-20
|
1.68 2006-07-20
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||||
#
|
#
|
||||||
# $Id: cpanspec,v 1.34 2006/08/12 17:32:50 stevenpritchard Exp $
|
# $Id: cpanspec,v 1.35 2006/08/29 00:40:02 stevenpritchard Exp $
|
||||||
|
|
||||||
our $NAME="cpanspec";
|
our $NAME="cpanspec";
|
||||||
our $VERSION='1.69';
|
our $VERSION='1.69';
|
||||||
@@ -407,7 +407,7 @@ sub get_description(%) {
|
|||||||
if ($1 ne "SYNOPSIS") {
|
if ($1 ne "SYNOPSIS") {
|
||||||
$summary=$1;
|
$summary=$1;
|
||||||
$summary=~s/[.\s]+$//;
|
$summary=~s/[.\s]+$//;
|
||||||
$summary=~s/^A\s+//i;
|
$summary=~s/^An?\s+//i;
|
||||||
$summary=ucfirst($summary);
|
$summary=ucfirst($summary);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user