[libparse-http-useragent-perl] 01/06: Add patch to adapt to new version.pm

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libparse-http-useragent-perl.

commit 41d1d1528a77329fd9ba453d45854a337892300f
Author: gregor herrmann <gregoa at debian.org>
Date:   Thu Dec 22 22:45:30 2016 +0100

    Add patch to adapt to new version.pm
    
    which handles underscores in version numbers differently.
    
    Closes: #825611
---
 debian/patches/new-version.pm.patch | 44 +++++++++++++++++++++++++++++++++++++
 debian/patches/series               |  1 +
 2 files changed, 45 insertions(+)

diff --git a/debian/patches/new-version.pm.patch b/debian/patches/new-version.pm.patch
new file mode 100644
index 0000000..89bd204
--- /dev/null
+++ b/debian/patches/new-version.pm.patch
@@ -0,0 +1,44 @@
+Description: replace _ with .
+ version->numify() doesn't treat underscores as a
+ tuple separator anymore but simply ignores them.
+ .
+ - raw version: 1.6.0_21
+ - old version->numify: 1.006000_021
+ - new version->numify: 1.006021
+ .
+ By converting underscores to dots we get 1.006021 consistently independent
+ of the version of version.pm.
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=112106
+Bug-Debian: https://bugs.debian.org/825611
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=112106
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2016-12-22
+
+--- a/t/data/robot/1
++++ b/t/data/robot/1
+@@ -177,7 +177,7 @@
+ 
+ parser      => 'generic_name_version',
+ version_raw => '1.6.0_21',
+-version     => '1.006000_021',
++version     => '1.006000021',
+ name        => 'Java',
+ generic     => 1,
+ 
+--- a/lib/Parse/HTTP/UserAgent.pm
++++ b/lib/Parse/HTTP/UserAgent.pm
+@@ -265,6 +265,13 @@
+         push @removed, '-' x $rc if INSIDE_VERBOSE_TEST;
+     }
+ 
++    # convert _ to .
++    # version.pm has changed its interpretation of versions with underlines
++    # cf. https://bugs.debian.org/825611
++    if ( my $rc = $v =~ tr/_/./ ) {
++        push @removed, '-' x $rc if INSIDE_VERBOSE_TEST;
++    }
++
+     # Finally, be aggressive to prevent dying on bogus stuff.
+     # It's interesting how people provide highly stupid version "numbers".
+     # Version parameters are probably more stupid than the UA string itself.
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..ed5cd4c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+new-version.pm.patch

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