[libcurses-perl] 04/07: add a patch fixing encoding issues in Curses.pm POD

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libcurses-perl.

commit c7d0297bd9468e5b99428eed422b0fd0d0ffe3dc
Author: Damyan Ivanov <dmn at debian.org>
Date:   Wed May 21 08:50:08 2014 +0000

    add a patch fixing encoding issues in Curses.pm POD
---
 debian/patches/pod-encoding.patch | 43 +++++++++++++++++++++++++++++++++++++++
 debian/patches/series             |  1 +
 2 files changed, 44 insertions(+)

diff --git a/debian/patches/pod-encoding.patch b/debian/patches/pod-encoding.patch
new file mode 100644
index 0000000..3ab9173
--- /dev/null
+++ b/debian/patches/pod-encoding.patch
@@ -0,0 +1,43 @@
+Description: fix Latin1 characters in POD, declare encding
+ =encoding is needed or pod2man --errors=man complains otherwise
+ .
+ Also fix the special characters to be valid Latin1
+Forwarded: https://rt.cpan.org/Ticket/Display?id=95825
+--- a/Curses.pm
++++ b/Curses.pm
+@@ -247,6 +247,8 @@ EOS
+ 
+ __END__
+ 
++=encoding Latin1
++
+ =head1 NAME
+ 
+ Curses - terminal screen handling and optimization
+@@ -400,7 +402,7 @@ If C<wget_wch()> is not available (i.e.
+ wide characters), this calls C<wgetch()>, but returns the values described
+ above nonetheless.  This can be a problem because with a multibyte character
+ encoding like UTF-8, you will receive two one-character strings for a
+-two-byte-character (e.g. "��" and "��" for "��").  If you append
++two-byte-character (e.g. "�" and "�" for "�").  If you append
+ these characters to a Perl string, that string may internally contain a valid
+ UTF-8 encoding of a character, but Perl will not interpret it that way. Perl
+ may even try to convert what it believes to be two characters to UTF-8, giving
+@@ -435,7 +437,7 @@ failure.
+ 
+ =over 4
+ 
+-	addstring("H��ll��, W��rld") ||��die "addstring failed";
++	addstring("H�ll�, W�rld") ||�die "addstring failed";
+ 
+ =back
+ 
+@@ -461,7 +463,7 @@ library provides no way to push back fun
+ 
+ =over 4
+ 
+-	ungetchar("X") ||��die "ungetchar failed";
++	ungetchar("X") ||�die "ungetchar failed";
+ 
+ =back
+ 
diff --git a/debian/patches/series b/debian/patches/series
index af6f97e..00b0a06 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 t_upstream_spelling.diff
 libcurses-perl_hurd1.debdiff
+pod-encoding.patch

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