Changeset 5550eb0 for perl/lib

Timestamp:

Jun 9, 2009, 12:37:12 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

30e7ffd

Parents:

d1ae4a4

Message:

Default style: Use strftime() on unix_time

Instead of parsing time_str using a regex, just call strftime on the
actual time_t to format the bits we want.

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));
 }