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;