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

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.
@@ -42 +40 @@
     my $self = shift;
     my $m = shift;
-    return strftime('%H:%M', localtime($m->unix_time));
+    my ($time) = $m->time =~ /(\d\d:\d\d)/;
+    return $time;
 }