[libgedcom-perl] 01/03: Apply upstream patch fixing test failures with Date::Manip v6.x

[Niko Tyni]

This is an automated email from the git hooks/post-receive script.

ntyni pushed a commit to branch master
in repository libgedcom-perl.

commit fd479ddf4b872dd4120ac452922023ae5094c86d
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Sep 18 18:33:24 2016 +0300

    Apply upstream patch fixing test failures with Date::Manip v6.x
    
    Closes: #795206
---
 ...e-the-tests-pass-by-ignoring-AFT-in-dates.patch | 36 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 37 insertions(+)

diff --git a/debian/patches/0001-Make-the-tests-pass-by-ignoring-AFT-in-dates.patch b/debian/patches/0001-Make-the-tests-pass-by-ignoring-AFT-in-dates.patch
new file mode 100644
index 0000000..3619f4c
--- /dev/null
+++ b/debian/patches/0001-Make-the-tests-pass-by-ignoring-AFT-in-dates.patch
@@ -0,0 +1,36 @@
+From d350ade3f32275f739ad1878d7ee0dab9831bcdf Mon Sep 17 00:00:00 2001
+From: Tudor Constantin <tudorconstantin at gmail.com>
+Date: Sun, 3 May 2015 10:16:13 +0300
+Subject: [PATCH] Make the tests pass by ignoring AFT in dates
+
+Bug: https://github.com/pjcj/Gedcom.pm/issues/5
+Bug-Debian: https://bugs.debian.org/795206
+Origin: upstream, https://github.com/pjcj/Gedcom.pm/commit/42eee593494b50f8c21451df5e5f9e96c0dd6411
+---
+ lib/Gedcom/Record.pm | 10 +++++++++-
+ 1 file changed, 9 insertions(+), 1 deletion(-)
+
+diff --git a/lib/Gedcom/Record.pm b/lib/Gedcom/Record.pm
+index 1ecc84e..769c7d6 100644
+--- a/lib/Gedcom/Record.pm
++++ b/lib/Gedcom/Record.pm
+@@ -565,7 +565,15 @@ sub normalise_dates
+       my @dates = split / or /, $self->{value};
+       for my $dt (@dates)
+       {
+-        # don't change the date if it is just < 7 digits
++        # Don't change the date if it looks like 'AFT 1989'.
++        # AFT means AFTER and ParseDate returns the current date and the tests
++        # are failing.
++        # Current date can symbolize such an "after" date, but can also
++        # symbolize a very specific point in time and that could also confuse
++        # the user.
++        next if $dt =~ /^AFT/;
++
++        # Don't change the date if it is just < 7 digits.
+         if ($dt !~ /^\s*(\d+)\s*$/ || length $1 > 6)
+         {
+           my $date = ParseDate($dt);
+-- 
+2.9.3
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..77be91e
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Make-the-tests-pass-by-ignoring-AFT-in-dates.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libgedcom-perl.git