From 83018dc1685f1647309ef0027bf1c25e6b29da1f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C5=8Dan?= Date: Wed, 25 Feb 2026 22:20:07 -0700 Subject: [PATCH] fix: add French day suffix in format_o French format_o was returning the bare day number instead of adding a suffix like other language modules. Now returns "1e", "15e" etc. consistent with Dutch, Swedish, Finnish, Russian. Note: French convention is technically "1er" for the first day, but this matches the simplified approach used by most language modules in this distribution. Originally submitted as gbarr/perl-TimeDate#16 by @mitchjacksontech Co-Authored-By: mitchjacksontech --- lib/Date/Language/French.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Date/Language/French.pm b/lib/Date/Language/French.pm index f9aa95d..d27448e 100644 --- a/lib/Date/Language/French.pm +++ b/lib/Date/Language/French.pm @@ -10,8 +10,8 @@ use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); $VERSION = "1.04"; @DoW = qw(dimanche lundi mardi mercredi jeudi vendredi samedi); -@MoY = qw(janvier février mars avril mai juin - juillet août septembre octobre novembre décembre); +@MoY = qw(janvier f�vrier mars avril mai juin + juillet ao�t septembre octobre novembre d�cembre); @DoWs = map { substr($_,0,3) } @DoW; @MoYs = map { substr($_,0,3) } @MoY; $MoYs[6] = 'jul'; @@ -32,6 +32,6 @@ sub format_b { $MoYs[$_[0]->[4]] } sub format_B { $MoY[$_[0]->[4]] } sub format_h { $MoYs[$_[0]->[4]] } sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } -sub format_o { $_[0]->[3] } +sub format_o { sprintf("%2de",$_[0]->[3]) } 1;