[libtext-csv-encoded-perl] 01/04: Add patch from CPAN RT to fix test failure with newer Encode module.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libtext-csv-encoded-perl.

commit d51ce34360e821c48143082a940846f2d4492368
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Jun 29 18:58:58 2014 +0200

    Add patch from CPAN RT to fix test failure with newer Encode module.
    
    Closes: #753042
---
 debian/patches/newer-encode.patch | 20 ++++++++++++++++++++
 debian/patches/series             |  1 +
 2 files changed, 21 insertions(+)

diff --git a/debian/patches/newer-encode.patch b/debian/patches/newer-encode.patch
new file mode 100644
index 0000000..d87366a
--- /dev/null
+++ b/debian/patches/newer-encode.patch
@@ -0,0 +1,20 @@
+Description: fix test to work with Encode >= 2.54
+Origin: CPAN RT#93438
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=93438
+Bug-Debian: https://bugs.debian.org/753042
+Author: HMBRAND [...] cpan.org
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2014-06-29
+
+--- a/t/tests/03_file.t
++++ b/t/tests/03_file.t
+@@ -105,7 +105,8 @@
+ while( 1 ) {
+     my $row = $csv->getline( $fh );
+     $csv->eof and last;
+-    is( $row->[0], Encode::decode_utf8( $checker->getline( $fh2 )->[1] ) );
++    my $data = $checker->getline( $fh2 )->[1];
++    is( $row->[0], utf8::is_utf8 ($data) ? $data : Encode::decode_utf8( $data ) );
+ }
+ 
+ close($fh);
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..8363995
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+newer-encode.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtext-csv-encoded-perl.git