File: new-version.pm.patch

package info (click to toggle)
libparse-http-useragent-perl 0.39-3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 644 kB
  • ctags: 381
  • sloc: perl: 4,051; makefile: 7
file content (44 lines) | stat: -rw-r--r-- 1,447 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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@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.