[libtext-typography-perl] 04/12: Refresh no-warnings.patch with a better version from upstream RT

[Florian Schlichting]

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

fsfs pushed a commit to branch master
in repository libtext-typography-perl.

commit 4038a95b51b3ef0171cec6858e720c0b36585919
Author: Florian Schlichting <fsfs at debian.org>
Date:   Sun Aug 16 17:42:51 2015 +0200

    Refresh no-warnings.patch with a better version from upstream RT
---
 debian/patches/no-warnings.patch | 41 ++++++++++++++++++++++++++++++----------
 debian/patches/series            |  1 +
 2 files changed, 32 insertions(+), 10 deletions(-)

diff --git a/debian/patches/no-warnings.patch b/debian/patches/no-warnings.patch
index 1ee05bf..ed07cd3 100644
--- a/debian/patches/no-warnings.patch
+++ b/debian/patches/no-warnings.patch
@@ -1,11 +1,32 @@
-diff -rup a/libtext-typography-perl/lib/Text/Typography.pm b/libtext-typography-perl/lib/Text/Typography.pm
---- a/libtext-typography-perl/lib/Text/Typography.pm	2006-09-21 00:36:07.000000000 +0300
-+++ b/libtext-typography-perl/lib/Text/Typography.pm	2006-09-21 03:31:23.000000000 +0300
-@@ -502,6 +502,7 @@ sub EducateQuotes {
-     # even when it's undefined. Use $^W instead of "no warnings"
-     # for compatibility with Perl 5.005:
-     local $^W = 0;
-+    local $SIG{__WARN__} = sub {};
+From: Aaron Crane <arc at cpan.org>
+Date: Sun, 26 Aug 2012 15:14:52 +0100
+Subject: [PATCH] Suppress "uninitialized value" warnings
+
+If an optional capturing group is missing in the input, $1 will be
+undef.  In this case, $1 was then being used in the right-hand side of
+an s///, which then produced the warning.  Fix this by instead having
+a required capturing group, optionally containing the appropriate thing.
+
+Origin: https://rt.cpan.org/Public/Ticket/Attachment/1113276/585587/warnings.diff
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=79229
+
+--- a/lib/Text/Typography.pm
++++ b/lib/Text/Typography.pm
+@@ -540,7 +540,7 @@
+     } {$1‘}xg;
+     # Single closing quotes:
+     s {
+-        ($close_class)?
++        ($close_class?)
+         '
+         (?(1)|          # If $1 captured, then do nothing;
+           (?=\s | s\b)  # otherwise, positive lookahead for a whitespace
+@@ -569,7 +569,7 @@
  
- 
-     # Make our own "punctuation" character class, because the POSIX-style
+     # Double closing quotes:
+     s {
+-        ($close_class)?
++        ($close_class?)
+         "
+         (?(1)|(?=\s))   # If $1 captured, then do nothing;
+                            # if not, then make sure the next char is whitespace.
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..14d728d
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+no-warnings.patch

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