From 6a0d77afa469052481d44a71bb860aab47de92de Mon Sep 17 00:00:00 2001
From: stevenpritchard <stevenpritchard>
Date: Fri, 24 Mar 2006 20:43:18 +0000
Subject: [PATCH] Look a couple more places for %description/Summary.

---
 Changes  | 1 +
 cpanspec | 8 +++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 0327927..910e685 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 1.64
 
+* Look a couple more places for %description/Summary.
 * Avoid adding common directories to @doc.
 * If there is a Build.PL and a Makefile.PL, use Build.PL.
 
diff --git a/cpanspec b/cpanspec
index 8fdb888..02eacfb 100755
--- a/cpanspec
+++ b/cpanspec
@@ -10,7 +10,7 @@
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # 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 $VERSION='1.64';
@@ -357,6 +357,12 @@ sub get_description(%) {
     $path=~s,::,/,g;
     my @pmfiles=("$args{name}-$args{version}/lib/$path.pod",
         "$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 {
         push(@pmfiles, "$args{name}-$args{version}/$path.pod",
             "$args{name}-$args{version}/$path.pm");