Drop "the" from Summary too.

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

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);
                     }
                 }