X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2FMAPSUtil.pm;h=82f7bc7ea4d48ec21ccb81f85ab94b385ba256da;hb=c799127c92994f07a62499f980410dbdb01c9d19;hp=e28a9d6b086c6814eb066a433a5b6527dfb65a59;hpb=fdddbe9be698e933004e960ac1c25057c5f30fbf;p=clearscm.git

diff --git a/maps/bin/MAPSUtil.pm b/maps/bin/MAPSUtil.pm
index e28a9d6..82f7bc7 100644
--- a/maps/bin/MAPSUtil.pm
+++ b/maps/bin/MAPSUtil.pm
@@ -17,6 +17,10 @@ package MAPSUtil;
 use strict;
 use vars qw (@ISA @EXPORT);
 
+BEGIN {
+  $ENV{TZ}='America/Los_Angeles';
+} # BEGIN
+
 @ISA = qw (Exporter);
 
 @EXPORT = qw (
@@ -42,6 +46,9 @@ sub FormatTime {
   my ($time) = @_;
 
   my $hours   = substr $time, 0, 2;
+
+  $hours = substr $hours, 1, 1 if $hours < 10;
+
   my $minutes = substr $time, 3, 2;
   my $seconds = substr $time, 6, 2;
   my $AmPm    = $hours > 12 ? 'Pm' : 'Am';