control: tags -1 patch

Hello, the following patch (from upstream) fixed the issue for me (and 
testsuite)

http://launchpadlibrarian.net/322742392/libdomain-publicsuffix-perl_0.14.1-1_0.14.1-1ubuntu1.diff.gz

--- 
libdomain-publicsuffix-perl-0.14.1/debian/patches/65fb42981662f8d960766222c1be9ce4a20e0c6a.patch
    1970-01-01 00:00:00.000000000 +0000
+++ 
libdomain-publicsuffix-perl-0.14.1/debian/patches/65fb42981662f8d960766222c1be9ce4a20e0c6a.patch
    2017-06-06 11:52:34.000000000 +0000
@@ -0,0 +1,22 @@
+From 65fb42981662f8d960766222c1be9ce4a20e0c6a Mon Sep 17 00:00:00 2001
+From: Gavin Carr <[email protected]>
+Date: Wed, 31 May 2017 14:57:59 +1000
+Subject: [PATCH] Use explicit utf-8 encoding on searched path open.
+
+---
+ lib/Domain/PublicSuffix.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/lib/Domain/PublicSuffix.pm b/lib/Domain/PublicSuffix.pm
+index 0ab452f..cfa01ae 100755
+--- a/lib/Domain/PublicSuffix.pm
++++ b/lib/Domain/PublicSuffix.pm
+@@ -251,7 +251,7 @@ sub _parse_data_file {
+               foreach my $path (@paths) {
+                       $path = File::Spec->catfile( $path, 
"effective_tld_names.dat" );
+                       if ( -e $path ) {
+-                              open( $dat, '<', $path )
++                              open( $dat, '<:encoding(UTF-8)', $path )
+                                       or die "Cannot open \'" . $path . "\': 
" . $!;
+                               @tld_lines = <$dat>;
+                               close($dat);
diff -Nru libdomain-publicsuffix-perl-0.14.1/debian/patches/series 
libdomain-publicsuffix-perl-0.14.1/debian/patches/series
--- libdomain-publicsuffix-perl-0.14.1/debian/patches/series    1970-01-01 
00:00:00.000000000 +0000
+++ libdomain-publicsuffix-perl-0.14.1/debian/patches/series    2017-06-06 
11:51:53.000000000 +0000
@@ -0,0 +1 @@
+65fb42981662f8d960766222c1be9ce4a20e0c6a.patch

cheers,
G.

Attachment: signature.asc
Description: OpenPGP digital signature

Reply via email to