Hello community,

here is the log from the commit of package perl-Text-Autoformat for 
openSUSE:Factory checked in at 2015-12-03 13:31:46
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Text-Autoformat (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Text-Autoformat.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Text-Autoformat"

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Text-Autoformat/perl-Text-Autoformat.changes    
    2015-11-11 10:35:47.000000000 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Text-Autoformat.new/perl-Text-Autoformat.changes
   2015-12-03 13:31:47.000000000 +0100
@@ -1,0 +2,13 @@
+Sun Nov 29 10:21:32 UTC 2015 - [email protected]
+
+- updated to 1.74
+   see /usr/share/doc/packages/perl-Text-Autoformat/Changes
+
+  1.74 2015-11-28 NEILB
+      - On Perl 5.22+ you could get "Negative repeat count does nothing"
+        warnings. Thanks to SREZIC for RT#109838.
+      - Made the mention of Text::Reform in SEE ALSO be a link.
+        Thanks to MANWAR for the PR doing this.
+      - Added some more entries to SEE ALSO.
+
+-------------------------------------------------------------------

Old:
----
  Text-Autoformat-1.73.tar.gz

New:
----
  Text-Autoformat-1.74.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Text-Autoformat.spec ++++++
--- /var/tmp/diff_new_pack.5NjLFZ/_old  2015-12-03 13:31:48.000000000 +0100
+++ /var/tmp/diff_new_pack.5NjLFZ/_new  2015-12-03 13:31:48.000000000 +0100
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Text-Autoformat
-Version:        1.73
+Version:        1.74
 Release:        0
 %define cpan_name Text-Autoformat
 Summary:        Automatic text wrapping and reformatting

++++++ Text-Autoformat-1.73.tar.gz -> Text-Autoformat-1.74.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/Changes 
new/Text-Autoformat-1.74/Changes
--- old/Text-Autoformat-1.73/Changes    2015-11-08 10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/Changes    2015-11-28 16:21:56.000000000 +0100
@@ -1,5 +1,12 @@
 Revision history for Perl module Text::Autoformat
 
+1.74 2015-11-28 NEILB
+    - On Perl 5.22+ you could get "Negative repeat count does nothing"
+      warnings. Thanks to SREZIC for RT#109838.
+    - Made the mention of Text::Reform in SEE ALSO be a link.
+      Thanks to MANWAR for the PR doing this.
+    - Added some more entries to SEE ALSO.
+
 1.73 2015-11-08 NEILB
     - Fixed warnings about uninitialized values in Hang.pm GH#4.
       Thanks to Jeremy Mates for the PR.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/META.json 
new/Text-Autoformat-1.74/META.json
--- old/Text-Autoformat-1.73/META.json  2015-11-08 10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/META.json  2015-11-28 16:21:56.000000000 +0100
@@ -47,6 +47,6 @@
          "web" : "https://github.com/neilb/Text-Autoformat";
       }
    },
-   "version" : "1.73"
+   "version" : "1.74"
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/META.yml 
new/Text-Autoformat-1.74/META.yml
--- old/Text-Autoformat-1.73/META.yml   2015-11-08 10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/META.yml   2015-11-28 16:21:56.000000000 +0100
@@ -26,4 +26,4 @@
 resources:
   homepage: https://github.com/neilb/Text-Autoformat
   repository: https://github.com/neilb/Text-Autoformat.git
-version: '1.73'
+version: '1.74'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/Makefile.PL 
new/Text-Autoformat-1.74/Makefile.PL
--- old/Text-Autoformat-1.73/Makefile.PL        2015-11-08 10:22:48.000000000 
+0100
+++ new/Text-Autoformat-1.74/Makefile.PL        2015-11-28 16:21:56.000000000 
+0100
@@ -30,7 +30,7 @@
     "Test::More" => "0.88",
     "utf8" => 0
   },
-  "VERSION" => "1.73",
+  "VERSION" => "1.74",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/README 
new/Text-Autoformat-1.74/README
--- old/Text-Autoformat-1.73/README     2015-11-08 10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/README     2015-11-28 16:21:56.000000000 +0100
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution Text-Autoformat,
-version 1.73:
+version 1.74:
 
   Automatic text wrapping and reformatting
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/dist.ini 
new/Text-Autoformat-1.74/dist.ini
--- old/Text-Autoformat-1.73/dist.ini   2015-11-08 10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/dist.ini   2015-11-28 16:21:56.000000000 +0100
@@ -4,7 +4,7 @@
 copyright_holder = Damian Conway
 copyright_year   = 1997
 main_module      = lib/Text/Autoformat.pm
-version          = 1.73
+version          = 1.74
 
 [@Basic]
 [PkgVersion]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/lib/Text/Autoformat/Hang.pm 
new/Text-Autoformat-1.74/lib/Text/Autoformat/Hang.pm
--- old/Text-Autoformat-1.73/lib/Text/Autoformat/Hang.pm        2015-11-08 
10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/lib/Text/Autoformat/Hang.pm        2015-11-28 
16:21:56.000000000 +0100
@@ -1,5 +1,5 @@
 package Text::Autoformat::Hang;
-$Text::Autoformat::Hang::VERSION = '1.73';
+$Text::Autoformat::Hang::VERSION = '1.74';
 use 5.006;
 use strict;
 use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/lib/Text/Autoformat/NullHang.pm 
new/Text-Autoformat-1.74/lib/Text/Autoformat/NullHang.pm
--- old/Text-Autoformat-1.73/lib/Text/Autoformat/NullHang.pm    2015-11-08 
10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/lib/Text/Autoformat/NullHang.pm    2015-11-28 
16:21:56.000000000 +0100
@@ -1,5 +1,5 @@
 package Text::Autoformat::NullHang;
-$Text::Autoformat::NullHang::VERSION = '1.73';
+$Text::Autoformat::NullHang::VERSION = '1.74';
 use 5.006;
 use strict;
 use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-Autoformat-1.73/lib/Text/Autoformat.pm 
new/Text-Autoformat-1.74/lib/Text/Autoformat.pm
--- old/Text-Autoformat-1.73/lib/Text/Autoformat.pm     2015-11-08 
10:22:48.000000000 +0100
+++ new/Text-Autoformat-1.74/lib/Text/Autoformat.pm     2015-11-28 
16:21:56.000000000 +0100
@@ -1,5 +1,5 @@
 package Text::Autoformat;
-$Text::Autoformat::VERSION = '1.73';
+$Text::Autoformat::VERSION = '1.74';
 use 5.006;
 use strict;
 use warnings;
@@ -264,7 +264,8 @@
             }
             else
             {
-    my $extraspace = length($line->{raw}) - length($line->{text}) - $firstfrom;
+                my $extraspace = length($line->{raw}) - length($line->{text}) 
- $firstfrom;
+                $extraspace = 0 if $extraspace < 0;
                 $paras[-1]->{text} .= "\n" . q{ }x$extraspace . $line->{text};
                 $paras[-1]->{raw} .= "\n" . $line->{raw};
             }
@@ -419,12 +420,12 @@
     for my $para ( @paras )
     {
         if ($para->{empty}) {
-        $gap += 1 + ($para->{text} =~ tr/\n/\n/);
+            $gap += 1 + ($para->{text} =~ tr/\n/\n/);
         }
         if ($para->{ignore}) {
-            $text .= (!$para->{empty} ? "\n"x($args{gap}-$gap) : "") ;
-        $text .= $para->{raw};
-        $text .= "\n" unless $para->{raw} =~ /\n\z/;
+            $text .= (!$para->{empty} ? "\n"x($args{gap}-$gap > 0 ? 
($args{gap}-$gap) : 0) : "") ;
+            $text .= $para->{raw};
+            $text .= "\n" unless $para->{raw} =~ /\n\z/;
         }
         else {
             my $leftmargin = $args{left} ? " "x($args{left}-1)
@@ -455,7 +456,7 @@
                      :                                     '['x$tlen
                          );
             my $tryformat = "$format$tfield";
-            $newtext = (!$para->{empty} ? "\n"x($args{gap}-$gap) : "") 
+            $newtext = (!$para->{empty} ? "\n"x($args{gap} > $gap ? 
($args{gap}-$gap) : 0) : "") 
                      . form( { squeeze=>$args{squeeze}, trim=>1,
                        break=>$args{break},
                        fill => !(!($args{expfill}
@@ -1258,7 +1259,16 @@
 
 =head1 SEE ALSO
 
-The Text::Reform module
+L<Text::Reform> - provides functions for manual text wrapping and reformatting.
+
+L<Text::Aligner> - provides a single function for justifying strings
+according to various styles.
+
+L<Text::Format> - a class that provides methods for formatting
+text in various ways.
+
+L<Data::Formatter::Text> - format various Perl data structures as text,
+in different ways according to the type of data.
 
 =head1 REPOSITORY
 


Reply via email to