r34103 - in /trunk/libtext-autoformat-perl/debian/patches: fix-pod-errors-simple.patch series

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Apr 25 17:38:05 2009
New Revision: 34103

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=34103
Log:
create alternative pod-fix patch

Added:
    trunk/libtext-autoformat-perl/debian/patches/fix-pod-errors-simple.patch
Modified:
    trunk/libtext-autoformat-perl/debian/patches/series

Added: trunk/libtext-autoformat-perl/debian/patches/fix-pod-errors-simple.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-autoformat-perl/debian/patches/fix-pod-errors-simple.patch?rev=34103&op=file
==============================================================================
--- trunk/libtext-autoformat-perl/debian/patches/fix-pod-errors-simple.patch (added)
+++ trunk/libtext-autoformat-perl/debian/patches/fix-pod-errors-simple.patch Sat Apr 25 17:38:05 2009
@@ -1,0 +1,27 @@
+Author: gregor herrmann <gregoa at debian.org>
+Description: remove some spurious pod stuff, otherwise the output is just empty
+
+--- a/lib/Text/Autoformat.pm
++++ b/lib/Text/Autoformat.pm
+@@ -579,21 +579,6 @@
+ # blockquote($text,$para, $format, $tlen, \@hang, \%args);
+ sub blockquote {
+     my ($dummy, $para, $format, $tlen, $hang, $args) = @_;
+-=begin other
+-    print STDERR "[", join("|", $para->{raw} =~
+-/ \A(\s*)       # $1 - leading whitespace (quotation)
+-       (["']|``)        # $2 - opening quotemark
+-       (.*)         # $3 - quotation
+-       (''|\2)      # $4 closing quotemark
+-       \s*?\n       # trailing whitespace
+-       (\1[ ]+)     # $5 - leading whitespace (attribution)
+-       (--|-)       # $6 - attribution introducer
+-       ([^\n]*?$)       # $7 - attribution line 1
+-       ((\5[^\n]*?$)*)      # $8 - attributions lines 2-N
+-       \s*\Z
+-     /xsm
+-), "]\n";
+-=cut
+     $para->{text} =~
+         / \A(\s*)       # $1 - leading whitespace (quotation)
+        (["']|``)        # $2 - opening quotemark

Modified: trunk/libtext-autoformat-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-autoformat-perl/debian/patches/series?rev=34103&op=diff
==============================================================================
--- trunk/libtext-autoformat-perl/debian/patches/series (original)
+++ trunk/libtext-autoformat-perl/debian/patches/series Sat Apr 25 17:38:05 2009
@@ -1,1 +1,2 @@
-fix-pod-errors
+#fix-pod-errors
+fix-pod-errors-simple.patch