[SCM] Debian packaging of libregexp-common-perl branch, master, updated. c490429ef43cccd859c79b5b3d84d2651d1c326b

[intrigeri]

The following commit has been merged in the master branch:
commit de76b0c9de6a1fa24a1bee0df1a7451750977d3f
Author: intrigeri <intrigeri at boum.org>
Date:   Wed Sep 14 19:34:42 2011 +0200

    Add a patch to support domain names starting with digits.
    
    This patch, imported from upstream bug tracker, was amended to update the test
    suite accordingly.

diff --git a/debian/changelog b/debian/changelog
index a9bb419..578dd6d 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,6 +7,10 @@ libregexp-common-perl (2011041701-2) UNRELEASED; urgency=low
   * debian/copyright: Replace DEP5 Format-Specification URL from
     svn.debian.org to anonscm.debian.org URL.
 
+  [ intrigeri ]
+  * Add a patch to support domain names starting with digits.
+    (Closes: #641616)
+
  -- Ansgar Burchardt <ansgar at debian.org>  Wed, 27 Jul 2011 18:47:31 +0200
 
 libregexp-common-perl (2011041701-1) unstable; urgency=low
diff --git a/debian/patches/series b/debian/patches/series
index 5622f22..2616388 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix-pod-spelling.patch
+support-domain-names-starting-with-digits.patch
diff --git a/debian/patches/support-domain-names-starting-with-digits.patch b/debian/patches/support-domain-names-starting-with-digits.patch
new file mode 100644
index 0000000..91b5f4d
--- /dev/null
+++ b/debian/patches/support-domain-names-starting-with-digits.patch
@@ -0,0 +1,46 @@
+Description: Support domain names starting with digits
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=23626
+Forwarded: yes
+Author: intrigeri <intrigeri+debian at boum.org>
+Last-Update: 2011-09-14
+
+--- a/lib/Regexp/Common/net.pm
++++ b/lib/Regexp/Common/net.pm
+@@ -72,11 +72,11 @@ my $let_dig_hyp = "[-A-Za-z0-9]";
+ pattern name   => [qw (net domain -nospace=)],
+         create => sub {
+             if (exists $_ [1] {-nospace} && !defined $_ [1] {-nospace}) {
+-                return "(?k:$letter(?:(?:$let_dig_hyp){0,61}$let_dig)?" .
++                return "(?k:$let_dig(?:(?:$let_dig_hyp){0,61}$let_dig)?" .
+                        "(?:\\.$letter(?:(?:$let_dig_hyp){0,61}$let_dig)?)*)"
+             }
+             else {
+-                return "(?k: |(?:$letter(?:(?:$let_dig_hyp){0,61}$let_dig)?" .
++                return "(?k: |(?:$let_dig(?:(?:$let_dig_hyp){0,61}$let_dig)?" .
+                        "(?:\\.$letter(?:(?:$let_dig_hyp){0,61}$let_dig)?)*))"
+             }
+         },
+diff --git a/t/test_domain.t b/t/test_domain.t
+index c2e27b7..b05cafe 100755
+--- a/t/test_domain.t
++++ b/t/test_domain.t
+@@ -23,7 +23,7 @@ pass 'a-----------------1.example.com';
+ pass 'a123456a.example.com';
+ pass 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-0123456789.com';
+ pass ' ';
+-fail '123host.example.com';
++pass '123host.example.com';
+ fail 'host-.example.com';
+ fail 'host.example.com.';
+ fail 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-0123456789a.com';
+@@ -44,7 +44,7 @@ pass 'a-----------------1.example.com';
+ pass 'a123456a.example.com';
+ pass 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-0123456789.com';
+ fail ' ';
+-fail '123host.example.com';
++pass '123host.example.com';
+ fail 'host-.example.com';
+ fail 'host.example.com.';
+ fail 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-0123456789a.com';
+-- 

-- 
Debian packaging of libregexp-common-perl