From b0af5f1496f9d78baea1cdcf1c237af6f30cd2c9 Mon Sep 17 00:00:00 2001
From: Pietro Cerutti <gahr@gahr.ch>
Date: Tue, 28 Aug 2012 17:27:13 +0200
Subject: [PATCH] Portability

- Use Time::Local (in Perl core) instead of Date::Parse

Signed-off-by: Paul Beckingham <paul@beckingham.net>
---
 test/bug.before.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/bug.before.t b/test/bug.before.t
index ad4b1f257..a31aeebc6 100755
--- a/test/bug.before.t
+++ b/test/bug.before.t
@@ -28,7 +28,7 @@
 
 use strict;
 use warnings;
-use Date::Parse;
+use Time::Local;
 use Test::More tests => 17;
 
 # Create the rc file.
@@ -44,8 +44,8 @@ if (open my $fh, '>', 'before.rc')
 # Create some example data directly.
 if (open my $fh, '>', 'pending.data')
 {
-  my $timeA = str2time("2008-12-22 12:00:00");
-  my $timeB = str2time("2009-04-17 12:00:00");
+  my $timeA = timegm (00,00,12,22,11,2008);
+  my $timeB = timegm (00,00,12,17,03,2009);
   print $fh <<EOF;
 [description:"foo" entry:"$timeA" start:"$timeA" status:"pending" uuid:"27097693-91c2-4cbe-ba89-ddcc87e5582c"]
 [description:"bar" entry:"$timeB" start:"$timeB" status:"pending" uuid:"08f72d91-964c-424b-8fd5-556434648b6b"]