From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 9 Aug 2008 23:26:04 +0000 (-0700)
Subject:  * Add english_join command to Debbugs::Common
X-Git-Tag: release/2.6.0~484^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bf1597791ff84c47939ae96252df2fbe2ae76df3;p=debbugs.git

 * Add english_join command to Debbugs::Common
---

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