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 <f...@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 <a...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits