From: Steve Hancock Date: Sun, 2 Jun 2024 14:40:23 +0000 (-0700) Subject: bump to version 20240511.03 X-Git-Tag: 20240511.03^0 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b8675479c76bb4ec7f8f3dce155cc7cc0a4c65c4;p=perltidy.git bump to version 20240511.03 --- diff --git a/CHANGES.md b/CHANGES.md index 9303b5a9..6f9a7fc3 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,6 +1,16 @@ # Perltidy Change Log -## 2024 05 11.02 +## 2024 05 11.03 + + - A option was added to filter unimplemented parameters from perltidy + configuration files, suggested in git #146. If a line in the config + file begins with three dashes followed by a parameter name + (rather than two), then the line will be removed if the parameter is + unknown. Otherwise, a dash will be removed to make the line valid. + + - Parameters --dump-mismatched-args (or -dma) and + --warn-mismatched-arg (or -wma) have been updated to catch more + arg count issues. - Fix issue git #143, extend -add-trailing-commas to apply to a list with just a fat comma. diff --git a/bin/perltidy b/bin/perltidy index e74020d7..000a4355 100755 --- a/bin/perltidy +++ b/bin/perltidy @@ -6658,7 +6658,7 @@ The perltidy binary uses the Perl::Tidy module and is installed when that module =head1 VERSION -This man page documents perltidy version 20240511.02 +This man page documents perltidy version 20240511.03 =head1 BUG REPORTS diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm index 1ca0a425..cb7d8b38 100644 --- a/lib/Perl/Tidy.pm +++ b/lib/Perl/Tidy.pm @@ -131,7 +131,7 @@ BEGIN { # then the Release version must be bumped, and it is probably past time for # a release anyway. - $VERSION = '20240511.02'; + $VERSION = '20240511.03'; } ## end BEGIN sub DESTROY { diff --git a/lib/Perl/Tidy.pod b/lib/Perl/Tidy.pod index 1013ded2..f909341b 100644 --- a/lib/Perl/Tidy.pod +++ b/lib/Perl/Tidy.pod @@ -469,7 +469,7 @@ The module 'Perl::Tidy' comes with a binary 'perltidy' which is installed when t =head1 VERSION -This man page documents Perl::Tidy version 20240511.02 +This man page documents Perl::Tidy version 20240511.03 =head1 LICENSE diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm index 3f247ead..5c0fb243 100644 --- a/lib/Perl/Tidy/Debugger.pm +++ b/lib/Perl/Tidy/Debugger.pm @@ -8,7 +8,7 @@ package Perl::Tidy::Debugger; use strict; use warnings; use English qw( -no_match_vars ); -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use constant EMPTY_STRING => q{}; use constant SPACE => q{ }; diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm index af98709e..987079d1 100644 --- a/lib/Perl/Tidy/Diagnostics.pm +++ b/lib/Perl/Tidy/Diagnostics.pm @@ -18,7 +18,7 @@ package Perl::Tidy::Diagnostics; use strict; use warnings; use English qw( -no_match_vars ); -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use constant EMPTY_STRING => q{}; diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm index 05f3a562..e4250a2b 100644 --- a/lib/Perl/Tidy/FileWriter.pm +++ b/lib/Perl/Tidy/FileWriter.pm @@ -16,7 +16,7 @@ package Perl::Tidy::FileWriter; use strict; use warnings; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use constant DEVEL_MODE => 0; use constant EMPTY_STRING => q{}; diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index d1051e3c..610e0ba2 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -76,7 +76,7 @@ use constant BACKSLASH => q{\\}; use Carp; use English qw( -no_match_vars ); use List::Util qw( min max first ); # min, max first are in Perl 5.8 -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; # The Tokenizer will be loaded with the Formatter ##use Perl::Tidy::Tokenizer; # for is_keyword() @@ -14137,17 +14137,15 @@ EOM my $type_mm = $rLL->[$K_mm]->[_TYPE_]; my $token_mm = $rLL->[$K_mm]->[_TOKEN_]; + my $seqno_mm = $rLL->[$K_mm]->[_TYPE_SEQUENCE_]; # check for $self in parens, like ($self)=shift - if ( $token_mm eq ')' ) { - my $seqno_mm = $rLL->[$K_mm]->[_TYPE_SEQUENCE_]; - if ($seqno_mm) { - my $Ko = $K_opening_container->{$seqno_mm}; - $K_mm = $self->K_next_code($Ko); - if ($K_mm) { - $type_mm = $rLL->[$K_mm]->[_TYPE_]; - $token_mm = $rLL->[$K_mm]->[_TOKEN_]; - } + if ( $seqno_mm && $token_mm eq ')' ) { + my $Ko = $K_opening_container->{$seqno_mm}; + $K_mm = $self->K_next_code($Ko); + if ($K_mm) { + $type_mm = $rLL->[$K_mm]->[_TYPE_]; + $token_mm = $rLL->[$K_mm]->[_TOKEN_]; } } diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm index 78cd3a23..aa695d59 100644 --- a/lib/Perl/Tidy/HtmlWriter.pm +++ b/lib/Perl/Tidy/HtmlWriter.pm @@ -7,7 +7,7 @@ package Perl::Tidy::HtmlWriter; use strict; use warnings; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use Carp; use English qw( -no_match_vars ); diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm index dd071b8d..841a4946 100644 --- a/lib/Perl/Tidy/IOScalar.pm +++ b/lib/Perl/Tidy/IOScalar.pm @@ -10,7 +10,7 @@ package Perl::Tidy::IOScalar; use strict; use warnings; use Carp; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use constant DEVEL_MODE => 0; use constant EMPTY_STRING => q{}; diff --git a/lib/Perl/Tidy/IOScalarArray.pm b/lib/Perl/Tidy/IOScalarArray.pm index 297db363..f654c017 100644 --- a/lib/Perl/Tidy/IOScalarArray.pm +++ b/lib/Perl/Tidy/IOScalarArray.pm @@ -14,7 +14,7 @@ package Perl::Tidy::IOScalarArray; use strict; use warnings; use Carp; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use constant DEVEL_MODE => 0; diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm index 2cc05598..1ce26a8f 100644 --- a/lib/Perl/Tidy/IndentationItem.pm +++ b/lib/Perl/Tidy/IndentationItem.pm @@ -9,7 +9,7 @@ package Perl::Tidy::IndentationItem; use strict; use warnings; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; BEGIN { diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm index ae8e8f91..b9c9c5f8 100644 --- a/lib/Perl/Tidy/Logger.pm +++ b/lib/Perl/Tidy/Logger.pm @@ -8,7 +8,7 @@ package Perl::Tidy::Logger; use strict; use warnings; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use Carp; use English qw( -no_match_vars ); diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index c63e160b..610f1f10 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -33,7 +33,7 @@ use strict; use warnings; use English qw( -no_match_vars ); -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use Carp; diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index 72893d57..a0efa9a8 100644 --- a/lib/Perl/Tidy/VerticalAligner.pm +++ b/lib/Perl/Tidy/VerticalAligner.pm @@ -5,7 +5,7 @@ use Carp; { #<<< A non-indenting brace to contain all lexical variables -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use English qw( -no_match_vars ); use Scalar::Util 'refaddr'; use Perl::Tidy::VerticalAligner::Alignment; diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm index 1d0c224a..ec611fd2 100644 --- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm +++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm @@ -9,7 +9,7 @@ package Perl::Tidy::VerticalAligner::Alignment; use strict; use warnings; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; sub new { my ( $class, $rarg ) = @_; diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm index 8a96e0f7..40964579 100644 --- a/lib/Perl/Tidy/VerticalAligner/Line.pm +++ b/lib/Perl/Tidy/VerticalAligner/Line.pm @@ -10,7 +10,7 @@ package Perl::Tidy::VerticalAligner::Line; use strict; use warnings; -our $VERSION = '20240511.02'; +our $VERSION = '20240511.03'; use English qw( -no_match_vars ); sub AUTOLOAD {