X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FDateUtils.pm;h=f1063944ea2f5d7e849d60c957af8fffa22c3d92;hb=cdf82bd9260a447239dd1aba26b107f7804e1a81;hp=b8c1f49f662fc486cec21f7d389e160fa0ad3ee1;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git diff --git a/lib/DateUtils.pm b/lib/DateUtils.pm index b8c1f49..f106394 100644 --- a/lib/DateUtils.pm +++ b/lib/DateUtils.pm @@ -711,6 +711,8 @@ Returns: my $AmPm = $hours > 12 ? "Pm" : "Am"; $hours = $hours - 12 if $hours > 12; + + $hours = "0$hours" if length $hours == 1; return "$hours:$minutes $AmPm"; } # FormatTime @@ -1260,7 +1262,7 @@ Returns: =head3 Perl Modules -=for html

Display

+=for html

Display

=head1 INCOMPATABILITIES