[libtk-filedialog-perl] 02/09: Add unrecognized_character_x17.patch (closes: #841252)

[Florian Schlichting]

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

fsfs pushed a commit to branch master
in repository libtk-filedialog-perl.

commit 5d92d5cb5750e1f90823f69bce0c1eb6219ce945
Author: Florian Schlichting <fsfs at debian.org>
Date:   Fri Oct 21 23:14:17 2016 +0200

    Add unrecognized_character_x17.patch (closes: #841252)
---
 debian/patches/series                           |  1 +
 debian/patches/unrecognized_character_x17.patch | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index e8691f0..6976202 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -2,3 +2,4 @@ hashbang.patch
 fix-own-master-error
 fix-pod
 test.patch
+unrecognized_character_x17.patch
diff --git a/debian/patches/unrecognized_character_x17.patch b/debian/patches/unrecognized_character_x17.patch
new file mode 100644
index 0000000..063c751
--- /dev/null
+++ b/debian/patches/unrecognized_character_x17.patch
@@ -0,0 +1,22 @@
+Description: fix "unrecognized character \x17" error
+ $^W using Control-W was deprecated in 5.20 and became a hard error in 5.24
+Author: Florian Schlichting <fsfs at debian.org>
+Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=841252
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=118463
+
+--- a/FileDialog.pm
++++ b/FileDialog.pm
+@@ -607,10 +607,10 @@
+ ####  PRIVATE METHODS AND SUBROUTINES ####
+ sub IsNum {
+     my($parm) = @_;
+-    my($warnSave) = $;
+-    $ = 0;
++    my($warnSave) = $^W;
++    $^W = 0;
+     my($res) = (($parm + 0) eq $parm);
+-    $ = $warnSave;
++    $^W = $warnSave;
+     return $res;
+ }
+ 

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