Look a couple more places for %description/Summary.

This commit is contained in:
stevenpritchard committed 2006-03-24 20:43:18 +00:00
1 parent 658aa8bfcf
commit 6a0d77afa4
2 files changed
+8 -1

No files matched your search

+1
View File
@@ -1,5 +1,6 @@
1.64 1.64
* Look a couple more places for %description/Summary.
* Avoid adding common directories to @doc. * Avoid adding common directories to @doc.
* If there is a Build.PL and a Makefile.PL, use Build.PL. * If there is a Build.PL and a Makefile.PL, use Build.PL.
+7 -1
View File
@@ -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.16 2006/03/24 19:52:38 stevenpritchard Exp $ # $Id: cpanspec,v 1.17 2006/03/24 20:43:18 stevenpritchard Exp $
my $NAME="cpanspec"; my $NAME="cpanspec";
my $VERSION='1.64'; my $VERSION='1.64';
@@ -357,6 +357,12 @@ sub get_description(%) {
$path=~s,::,/,g; $path=~s,::,/,g;
my @pmfiles=("$args{name}-$args{version}/lib/$path.pod", my @pmfiles=("$args{name}-$args{version}/lib/$path.pod",
"$args{name}-$args{version}/lib/$path.pm"); "$args{name}-$args{version}/lib/$path.pm");
if ($args{module} =~ /::/) {
my @tmp=split '/', $path;
my $last=pop @tmp;
push(@pmfiles, "$args{name}-$args{version}/lib/$last.pod",
"$args{name}-$args{version}/lib/$last.pm");
}
do { do {
push(@pmfiles, "$args{name}-$args{version}/$path.pod", push(@pmfiles, "$args{name}-$args{version}/$path.pod",
"$args{name}-$args{version}/$path.pm"); "$args{name}-$args{version}/$path.pm");