Look a couple more places for %description/Summary.
This commit is contained in:
1 parent
658aa8bfcf
commit
6a0d77afa4
2 files changed
+8
-1
No files matched your search
@@ -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.
|
||||||
|
|
||||||
|
|||||||
@@ -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");
|
||||||
|
|||||||
Reference in new issue
Block a user