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