[SCM] Debian packaging of libregexp-common-perl branch, master, updated. debian/2011121001-1-19-g5df7bc4

Salvatore Bonaccorso carnil at debian.org
Wed Mar 13 16:07:26 UTC 2013


The following commit has been merged in the master branch:
commit e4f45facc663d92cf5eb2056a054de8fec782880
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Wed Mar 13 16:04:42 2013 +0100

    Drop support-domain-names-starting-with-digits.patch patch
    
    Patch was applied upstream.

diff --git a/debian/patches/series b/debian/patches/series
index 2616388..5622f22 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
 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
deleted file mode 100644
index 91b5f4d..0000000
--- a/debian/patches/support-domain-names-starting-with-digits.patch
+++ /dev/null
@@ -1,46 +0,0 @@
-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



More information about the Pkg-perl-cvs-commits mailing list