# 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.
=head1 VERSION
-This man page documents perltidy version 20240511.02
+This man page documents perltidy version 20240511.03
=head1 BUG REPORTS
# 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 {
=head1 VERSION
-This man page documents Perl::Tidy version 20240511.02
+This man page documents Perl::Tidy version 20240511.03
=head1 LICENSE
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{ };
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
use constant EMPTY_STRING => q{};
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{};
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()
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_];
}
}
package Perl::Tidy::HtmlWriter;
use strict;
use warnings;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
use Carp;
use English qw( -no_match_vars );
use strict;
use warnings;
use Carp;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
use constant DEVEL_MODE => 0;
use constant EMPTY_STRING => q{};
use strict;
use warnings;
use Carp;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
use constant DEVEL_MODE => 0;
use strict;
use warnings;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
BEGIN {
package Perl::Tidy::Logger;
use strict;
use warnings;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
use Carp;
use English qw( -no_match_vars );
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
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;
use strict;
use warnings;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
sub new {
my ( $class, $rarg ) = @_;
use strict;
use warnings;
-our $VERSION = '20240511.02';
+our $VERSION = '20240511.03';
use English qw( -no_match_vars );
sub AUTOLOAD {