From bf1597791ff84c47939ae96252df2fbe2ae76df3 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 9 Aug 2008 16:26:04 -0700
Subject: [PATCH]  * Add english_join command to Debbugs::Common

---
 Debbugs/Common.pm | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index f4a3f0ce..e269ffc8 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -43,7 +43,7 @@ BEGIN{
 				qw(getmaintainers_reverse),
 				qw(getpseudodesc),
 			       ],
-		     misc   => [qw(make_list globify_scalar)],
+		     misc   => [qw(make_list globify_scalar english_join)],
 		     date   => [qw(secs_to_english)],
 		     quit   => [qw(quit)],
 		     lock   => [qw(filelock unfilelock lockpid)],
@@ -478,6 +478,27 @@ sub make_list {
 }
 
 
+=head2 english_join
+
+     print english_join(', ',' and ',@list);
+
+Joins list properly to make an english phrase.
+
+
+
+=cut
+
+sub english_join {
+     my ($normal,$last,@list) = @_;
+     if (@list <= 1) {
+	  return @list?$list[0]:();
+     }
+     my $ret = $last . pop(@list);
+     $ret = join($normal,@list) . $ret;
+     return $ret;
+}
+
+
 =head2 globify_scalar
 
      my $handle = globify_scalar(\$foo);
-- 
2.39.5