r55547 - in /branches/upstream/libtext-autoformat-perl/current: Changes META.yml README lib/Text/Autoformat.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Apr  6 20:06:47 2010
New Revision: 55547

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55547
Log:
[svn-upgrade] Integrating new upstream version, libtext-autoformat-perl (1.668001)

Modified:
    branches/upstream/libtext-autoformat-perl/current/Changes
    branches/upstream/libtext-autoformat-perl/current/META.yml
    branches/upstream/libtext-autoformat-perl/current/README
    branches/upstream/libtext-autoformat-perl/current/lib/Text/Autoformat.pm

Modified: branches/upstream/libtext-autoformat-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-autoformat-perl/current/Changes?rev=55547&op=diff
==============================================================================
--- branches/upstream/libtext-autoformat-perl/current/Changes (original)
+++ branches/upstream/libtext-autoformat-perl/current/Changes Tue Apr  6 20:06:47 2010
@@ -167,3 +167,8 @@
 
 1.666.0  Fri Apr 17 08:00:36 2009
          No changes logged
+
+
+1.668001  Sat Apr  3 15:38:55 2010
+
+    - Removed spurious debugging statement in bad Pod. (Thanks Chris)

Modified: branches/upstream/libtext-autoformat-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-autoformat-perl/current/META.yml?rev=55547&op=diff
==============================================================================
--- branches/upstream/libtext-autoformat-perl/current/META.yml (original)
+++ branches/upstream/libtext-autoformat-perl/current/META.yml Tue Apr  6 20:06:47 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Text-Autoformat
-version:             1.666.0
+version:             1.668001
 abstract:            Automatic text wrapping and reformatting
 license:             ~
 author:              

Modified: branches/upstream/libtext-autoformat-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-autoformat-perl/current/README?rev=55547&op=diff
==============================================================================
--- branches/upstream/libtext-autoformat-perl/current/README (original)
+++ branches/upstream/libtext-autoformat-perl/current/README Tue Apr  6 20:06:47 2010
@@ -1,4 +1,4 @@
-Text::Autoformat version 1.666.0
+Text::Autoformat version 1.668001
 
 NAME
     Text::Autoformat - Automatic and manual text wrapping and reformating
@@ -46,7 +46,7 @@
 
 COPYRIGHT AND LICENCE
 
-Copyright (C) 1997-2007, Damian Conway
+Copyright (C) 1997-2009, Damian Conway
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: branches/upstream/libtext-autoformat-perl/current/lib/Text/Autoformat.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-autoformat-perl/current/lib/Text/Autoformat.pm?rev=55547&op=diff
==============================================================================
--- branches/upstream/libtext-autoformat-perl/current/lib/Text/Autoformat.pm (original)
+++ branches/upstream/libtext-autoformat-perl/current/lib/Text/Autoformat.pm Tue Apr  6 20:06:47 2010
@@ -2,7 +2,7 @@
 
 use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use Carp;
 use 5.005;
-use version; $VERSION = qv('1.666.0');
+our $VERSION = '1.668001';
 
 require Exporter;
 
@@ -121,7 +121,7 @@
 
     $args{right}   = $default_margin unless exists $args{right};
     $args{justify} = "" unless exists $args{justify};
-    $args{widow}   = 0 if $args{justify}||"" =~ /full/;
+    $args{widow}   = 0 if ($args{justify}||"") =~ /full/;
     $args{widow}   = $default_widow unless exists $args{widow};
     $args{case}    = '' unless exists $args{case};
     $args{lists}   = 1 unless exists $args{lists};
@@ -579,21 +579,7 @@
 # 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
@@ -856,8 +842,8 @@
 
 =head1 VERSION
 
-This document describes version 1.13 of Text::Autoformat,
-released May  4, 2005.
+This document describes version 1.668001 of Text::Autoformat
+released Apr 16, 2009.
 
 =head1 SYNOPSIS