]> git.donarmstrong.com Git - perltidy.git/commitdiff
bump to version 20240511.03 20240511.03
authorSteve Hancock <perltidy@users.sourceforge.net>
Sun, 2 Jun 2024 14:40:23 +0000 (07:40 -0700)
committerSteve Hancock <perltidy@users.sourceforge.net>
Sun, 2 Jun 2024 14:40:23 +0000 (07:40 -0700)
17 files changed:
CHANGES.md
bin/perltidy
lib/Perl/Tidy.pm
lib/Perl/Tidy.pod
lib/Perl/Tidy/Debugger.pm
lib/Perl/Tidy/Diagnostics.pm
lib/Perl/Tidy/FileWriter.pm
lib/Perl/Tidy/Formatter.pm
lib/Perl/Tidy/HtmlWriter.pm
lib/Perl/Tidy/IOScalar.pm
lib/Perl/Tidy/IOScalarArray.pm
lib/Perl/Tidy/IndentationItem.pm
lib/Perl/Tidy/Logger.pm
lib/Perl/Tidy/Tokenizer.pm
lib/Perl/Tidy/VerticalAligner.pm
lib/Perl/Tidy/VerticalAligner/Alignment.pm
lib/Perl/Tidy/VerticalAligner/Line.pm

index 9303b5a944c088bb8ce85c1bba7287ddca93fe0e..6f9a7fc3f1e7c8e34b33e73ef13e6379dda6ac12 100644 (file)
@@ -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.
index e74020d73487e49294925de7629037cde83b9e52..000a435569415b79aaf22cdf4b3d1fad5bdaab6b 100755 (executable)
@@ -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
 
index 1ca0a4257cdcf3d3b84fb594c4a105dd562ec7b0..cb7d8b3809fe7fbf405a113e2f7a801a70deded5 100644 (file)
@@ -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 {
index 1013ded260f709c884d7417364f8142881baa06c..f909341b3088a27ee1ec4ec32eaf9762e0b84d1b 100644 (file)
@@ -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
 
index 3f247ead9c96e57150aa4128905c9b9f90c3e32e..5c0fb243ed81423571b62628a72014ef34e000fb 100644 (file)
@@ -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{ };
index af98709e5a729c023959c7c20570930d4b1059ea..987079d17aa951616aa54928a33efe0f12430911 100644 (file)
@@ -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{};
 
index 05f3a562108ca5eb0202bcdd0b0626608ef1545a..e4250a2bded87219a62b978c61dd0aa3a6ea6e8b 100644 (file)
@@ -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{};
index d1051e3c8169732100e5ac3ce69f3890870285cf..610e0ba2d9d86290a4486e1d12c858d6c5cfb3f6 100644 (file)
@@ -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_];
                                 }
                             }
 
index 78cd3a234dbef8e9e5b95f99ebf77f1af554e238..aa695d59bbcce609336082a91a0a3e55f09e047a 100644 (file)
@@ -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 );
index dd071b8d3314f3908928152a9f90b4142e199701..841a49460af149566050ea96b7e928cb8b4081db 100644 (file)
@@ -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{};
index 297db36341ff507bee517368d7581b92b907d5ba..f654c01747bea2a161eaa1eb2013e4614047dc5f 100644 (file)
@@ -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;
 
index 2cc055983d36f0a08d8d8c68a2802ddeb4202101..1ce26a8fa68a3e4400a622464ab1c5e53146b727 100644 (file)
@@ -9,7 +9,7 @@ package Perl::Tidy::IndentationItem;
 use strict;
 use warnings;
 
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
 
 BEGIN {
 
index ae8e8f91a3303a16b24261ad386ef3e7dae35a34..b9c9c5f8be08d0ad461778e765d0c7617fbde3f2 100644 (file)
@@ -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 );
 
index c63e160b52687666e17a6c088dec3966130f3ef7..610f1f1035e1c6520b66477975281434318390ab 100644 (file)
@@ -33,7 +33,7 @@ use strict;
 use warnings;
 use English qw( -no_match_vars );
 
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
 
 use Carp;
 
index 72893d57e078431f7be730e01790e2480ef7cad2..a0efa9a890c54bd0ec799a2152510a39610b8158 100644 (file)
@@ -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;
index 1d0c224abcb7907393176ca73bb58609148d34fb..ec611fd2b426805a9a8b513386b11e5810c1b03d 100644 (file)
@@ -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 ) = @_;
index 8a96e0f7a9b09da653e25da34f9c809ffe9dbf33..409645791924c66487f9bbc9317f96f5d59c8e78 100644 (file)
@@ -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 {