Changes in perl/lib/BarnOwl/Style/Default.pm [ee183be:5550eb0]

File:

• perl/lib/BarnOwl/Style/Default.pm (modified) (2 diffs)

perl/lib/BarnOwl/Style/Default.pm

@@ -3 +3 @@
 
 package BarnOwl::Style::Default;
+use POSIX qw(strftime);
+
 ################################################################################
 # Branching point for various formatting functions in this style.
@@ -40 +42 @@
     my $self = shift;
     my $m = shift;
-    my ($time) = $m->time =~ /(\d\d:\d\d)/;
-    return $time;
+    return strftime('%H:%M', localtime($m->unix_time));
 }