From 01e924b49debccfbb323d1e0ba4d348dae5b7638 Mon Sep 17 00:00:00 2001
From: stevenpritchard <stevenpritchard>
Date: Tue, 29 Aug 2006 00:40:02 +0000
Subject: [PATCH] Change regex to also drop leading "an" from Summary.

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

diff --git a/Changes b/Changes
index 6b4960f..dd60749 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 1.69
 
 * Exclude autobuild.sh.
+* Change regex to also drop leading "an" from Summary.
 
 1.68    2006-07-20
 
diff --git a/cpanspec b/cpanspec
index 554f92a..b08b966 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.34 2006/08/12 17:32:50 stevenpritchard Exp $
+# $Id: cpanspec,v 1.35 2006/08/29 00:40:02 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/^A\s+//i;
+                        $summary=~s/^An?\s+//i;
                         $summary=ucfirst($summary);
                     }
                 }