Hello community,

here is the log from the commit of package perl-Perl-Tidy for openSUSE:Factory 
checked in at 2018-02-27 16:57:20
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Perl-Tidy (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Perl-Tidy.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Perl-Tidy"

Tue Feb 27 16:57:20 2018 rev:21 rq:579742 version:20180220

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Perl-Tidy/perl-Perl-Tidy.changes    
2018-02-22 15:00:32.734106029 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Perl-Tidy.new/perl-Perl-Tidy.changes       
2018-02-27 16:57:21.349347217 +0100
@@ -1,0 +2,12 @@
+Wed Feb 21 06:50:42 UTC 2018 - co...@suse.com
+
+- updated to 20180220
+   see /usr/share/doc/packages/perl-Perl-Tidy/CHANGES
+
+    2018 02 20
+        - RT #124469, #124494, perltidy often making empty files.  The 
previous had
+          an index error causing it to fail, particularly in version 5.18 of 
Perl.
+  
+          Please avoid version 20180219.
+
+-------------------------------------------------------------------

Old:
----
  Perl-Tidy-20180219.tar.gz

New:
----
  Perl-Tidy-20180220.tar.gz

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

Other differences:
------------------
++++++ perl-Perl-Tidy.spec ++++++
--- /var/tmp/diff_new_pack.7VJy4t/_old  2018-02-27 16:57:22.537304294 +0100
+++ /var/tmp/diff_new_pack.7VJy4t/_new  2018-02-27 16:57:22.541304149 +0100
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Perl-Tidy
-Version:        20180219
+Version:        20180220
 Release:        0
 #Upstream:  This package is free software; you can redistribute it and/or 
modify it under the terms of the "GNU General Public License". Please refer to 
the file "COPYING" for details.
 %define cpan_name Perl-Tidy

++++++ Perl-Tidy-20180219.tar.gz -> Perl-Tidy-20180220.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Perl-Tidy-20180219/CHANGES 
new/Perl-Tidy-20180220/CHANGES
--- old/Perl-Tidy-20180219/CHANGES      2018-02-18 20:34:08.000000000 +0100
+++ new/Perl-Tidy-20180220/CHANGES      2018-02-20 12:30:34.000000000 +0100
@@ -1,4 +1,10 @@
 Perltidy Change Log
+  2018 02 20
+      - RT #124469, #124494, perltidy often making empty files.  The previous 
had
+        an index error causing it to fail, particularly in version 5.18 of 
Perl.
+
+        Please avoid version 20180219.
+
   2018 02 19
       - RT #79947, cuddled-else generalization. A new flag -cb provides
         'cuddled-else' type formatting for an arbitrary type of block chain. 
The
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Perl-Tidy-20180219/META.json 
new/Perl-Tidy-20180220/META.json
--- old/Perl-Tidy-20180219/META.json    2018-02-18 20:34:09.000000000 +0100
+++ new/Perl-Tidy-20180220/META.json    2018-02-20 12:42:08.000000000 +0100
@@ -35,5 +35,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "20180219"
+   "version" : "20180220"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Perl-Tidy-20180219/META.yml 
new/Perl-Tidy-20180220/META.yml
--- old/Perl-Tidy-20180219/META.yml     2018-02-18 20:34:09.000000000 +0100
+++ new/Perl-Tidy-20180220/META.yml     2018-02-20 12:42:08.000000000 +0100
@@ -18,4 +18,4 @@
     - t
     - inc
 requires: {}
-version: '20180219'
+version: '20180220'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Perl-Tidy-20180219/bin/perltidy 
new/Perl-Tidy-20180220/bin/perltidy
--- old/Perl-Tidy-20180219/bin/perltidy 2018-02-18 20:34:08.000000000 +0100
+++ new/Perl-Tidy-20180220/bin/perltidy 2018-02-20 12:42:08.000000000 +0100
@@ -3480,7 +3480,7 @@
 
 =head1 VERSION
 
-This man page documents perltidy version 20180219.
+This man page documents perltidy version 20180220.
 
 =head1 BUG REPORTS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Perl-Tidy-20180219/docs/perltidy.1 
new/Perl-Tidy-20180220/docs/perltidy.1
--- old/Perl-Tidy-20180219/docs/perltidy.1      2018-02-18 16:13:21.000000000 
+0100
+++ new/Perl-Tidy-20180220/docs/perltidy.1      2018-02-20 12:30:34.000000000 
+0100
@@ -133,7 +133,7 @@
 .\" ========================================================================
 .\"
 .IX Title "PERLTIDY 1"
-.TH PERLTIDY 1 "2018-02-18" "perl v5.22.1" "User Contributed Perl 
Documentation"
+.TH PERLTIDY 1 "2018-02-20" "perl v5.22.1" "User Contributed Perl 
Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l
@@ -3593,7 +3593,7 @@
 \&\fIperlstyle\fR\|(1), \fIPerl::Tidy\fR\|(3)
 .SH "VERSION"
 .IX Header "VERSION"
-This man page documents perltidy version 20180219.
+This man page documents perltidy version 20180220.
 .SH "BUG REPORTS"
 .IX Header "BUG REPORTS"
 A list of current bugs and issues can be found at the \s-1CPAN\s0 site
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Perl-Tidy-20180219/lib/Perl/Tidy.pm 
new/Perl-Tidy-20180220/lib/Perl/Tidy.pm
--- old/Perl-Tidy-20180219/lib/Perl/Tidy.pm     2018-02-18 16:10:40.000000000 
+0100
+++ new/Perl-Tidy-20180220/lib/Perl/Tidy.pm     2018-02-20 12:25:01.000000000 
+0100
@@ -84,7 +84,7 @@
 use File::Temp qw(tempfile);
 
 BEGIN {
-    ( $VERSION = q($Id: Tidy.pm,v 1.74 2018/02/19 13:56:49 perltidy Exp $) ) 
=~ s/^.*\s+(\d+)\/(\d+)\/(\d+).*$/$1$2$3/; # all one line for MakeMaker
+    ( $VERSION = q($Id: Tidy.pm,v 1.74 2018/02/20 13:56:49 perltidy Exp $) ) 
=~ s/^.*\s+(\d+)\/(\d+)\/(\d+).*$/$1$2$3/; # all one line for MakeMaker
 }
 
 sub streamhandle {
@@ -9414,6 +9414,7 @@
 
     # Given the index of a token in the 'to_go' array
     # return the length of any weld to its left
+    return if ( $i < 0 );
     my $weld_len =
       weld_len_left( $type_sequence_to_go[$i], $types_to_go[$i] );
     return $weld_len;
@@ -9424,6 +9425,7 @@
 
     # Given the index of a token in the 'to_go' array
     # return the length of any weld to its right
+    return if ( $i < 0 );
     if ( $i > 0 && $types_to_go[$i] eq 'b' ) { $i-- }
     my $weld_len =
       weld_len_right( $type_sequence_to_go[$i], $types_to_go[$i] );


Reply via email to