This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
correct pluralisation for "1 week"
authorZefram <zefram@fysh.org>
Sat, 26 May 2012 12:34:20 +0000 (13:34 +0100)
committerZefram <zefram@fysh.org>
Sat, 26 May 2012 12:34:20 +0000 (13:34 +0100)
Porting/acknowledgements.pl

index bdfef41..3e388c9 100644 (file)
@@ -100,7 +100,7 @@ sub development_time {
 
     my $development_time;
     if ( $months < 2 ) {
-        return "$weeks weeks";
+        return "$weeks @{[$weeks == 1 ? q(week) : q(weeks)]}";
     } else {
         return "$months months";
     }