From dcdb6a9849bffa0f9148857bd08dee46176a4afa Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 29 Sep 2013 16:01:47 +0200
Subject: Use POSIX::strftime instead of Date::Format for better portability

---
 Build.PL | 2 +-
 README   | 1 -
 bin/icli | 6 ++----
 3 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/Build.PL b/Build.PL
index 2270e09..bb2c2f3 100644
--- a/Build.PL
+++ b/Build.PL
@@ -22,9 +22,9 @@ my $build = Module::Build->subclass(
 		'perl' => '5.10.0',
 		'autodie' => 0,
 		'Carp' => 0,
-		'Date::Format' => 0,
 		'Getopt::Long' => 0,
 		'List::MoreUtils' => 0,
+		'POSIX' => 0,
 		'Term::ANSIColor' => 0,
 		'Term::Size' => 0,
 	},
diff --git a/README b/README
index e8644b6..c71ddc8 100644
--- a/README
+++ b/README
@@ -3,7 +3,6 @@ icli - Icinga Command Line Interface
 Requires:
  * A local icinga daemon + access to some of its files
  * perl v5.10 or newer with the following modules:
- * Date::Format
  * List::MoreUtils
  * Term::Size
 
diff --git a/bin/icli b/bin/icli
index 7e6b0bc..9be3de2 100755
--- a/bin/icli
+++ b/bin/icli
@@ -10,9 +10,9 @@ use 5.010;
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
 use Carp qw(croak);
-use Date::Format;
 use Getopt::Long qw/:config bundling/;
 use List::MoreUtils qw(any firstval);
+use POSIX qw(strftime);
 use Term::ANSIColor;
 use Term::Size;
 
@@ -86,7 +86,7 @@ sub pretty_date {
 		return 'never';
 	}
 
-	return time2str( '%Y-%m-%d %H:%M:%S', $unix );
+	return strftime( '%Y-%m-%d %H:%M:%S', localtime($unix) );
 }
 
 sub pretty_duration {
@@ -1300,8 +1300,6 @@ None.
 
 =item * autodie (included with perl >= 5.10.1)
 
-=item * Date::Format
-
 =item * Term::Size
 
 =back
-- 
cgit v1.2.3