From dc3e369c61bba2981dee1bb136f92a675e47d0e8 Mon Sep 17 00:00:00 2001
From: stevenpritchard <stevenpritchard>
Date: Mon, 4 Sep 2006 19:38:23 +0000
Subject: [PATCH] Drop "the" from Summary too.

---
 Changes  | 2 +-
 cpanspec | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index a8c37f1..da40ef9 100644
--- a/Changes
+++ b/Changes
@@ -1,7 +1,7 @@
 1.69
 
 * Exclude autobuild.sh.
-* Change regex to also drop leading "an" from Summary.
+* Change regex to also drop leading "an" or "the" from Summary.
 * Tiny whitespace fix.
 
 1.68    2006-07-20
diff --git a/cpanspec b/cpanspec
index 110f6a0..ea147a2 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.36 2006/09/04 01:02:17 stevenpritchard Exp $
+# $Id: cpanspec,v 1.37 2006/09/04 19:38:23 stevenpritchard Exp $
 
 our $NAME="cpanspec";
 our $VERSION='1.69';
@@ -407,7 +407,7 @@ sub get_description(%) {
                     if ($1 ne "SYNOPSIS") {
                         $summary=$1;
                         $summary=~s/[.\s]+$//;
-                        $summary=~s/^An?\s+//i;
+                        $summary=~s/^(?:An?|The)\s+//i;
                         $summary=ucfirst($summary);
                     }
                 }