# Perltidy Change Log
-## 2024 02 02.06
+## 2024 02 02.07
- Fix issue git #138 involving -xlp (--extended-line-up-parentheses).
When multiple-line quotes and regexes have long secondary lines, these
=head1 VERSION
-This man page documents perltidy version 20240202.06
+This man page documents perltidy version 20240202.07
=head1 BUG REPORTS
<h1>Perltidy Change Log</h1>
-<h2>2024 02 02.06</h2>
+<h2>2024 02 02.07</h2>
-<pre><code>- Add option --minimize-continuation-indentation, -mci (see git #137).
+<pre><code>- Fix issue git #138 involving -xlp (--extended-line-up-parentheses).
+ When multiple-line quotes and regexes have long secondary lines, these
+ line lengths could influencing some spacing and indentation, but they
+ should not have since perltidy has no control over their indentation.
+ This has been fixed. This will mainly influence code which uses -xlp
+ and has long multi-line quotes.
+
+- Add option --minimize-continuation-indentation, -mci (see git #137).
This flag allows perltidy to remove continuation indentation in some
special cases where it is not really unnecessary. For a simple example,
the default formatting for the following snippet is:
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents Perl::Tidy version 20240202.06</p>
+<p>This man page documents Perl::Tidy version 20240202.07</p>
<h1 id="LICENSE">LICENSE</h1>
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents perltidy version 20240202.06</p>
+<p>This man page documents perltidy version 20240202.07</p>
<h1 id="BUG-REPORTS">BUG REPORTS</h1>
# then the Release version must be bumped, and it is probably past time for
# a release anyway.
- $VERSION = '20240202.06';
+ $VERSION = '20240202.07';
} ## end BEGIN
sub DESTROY {
=head1 VERSION
-This man page documents Perl::Tidy version 20240202.06
+This man page documents Perl::Tidy version 20240202.07
=head1 LICENSE
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use constant EMPTY_STRING => q{};
use constant SPACE => q{ };
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use constant EMPTY_STRING => q{};
package Perl::Tidy::FileWriter;
use strict;
use warnings;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
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 = '20240202.06';
+our $VERSION = '20240202.07';
# The Tokenizer will be loaded with the Formatter
##use Perl::Tidy::Tokenizer; # for is_keyword()
package Perl::Tidy::HtmlWriter;
use strict;
use warnings;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use Carp;
use English qw( -no_match_vars );
use strict;
use warnings;
use Carp;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use constant DEVEL_MODE => 0;
use constant EMPTY_STRING => q{};
use strict;
use warnings;
use Carp;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use constant DEVEL_MODE => 0;
use strict;
use warnings;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
BEGIN {
package Perl::Tidy::Logger;
use strict;
use warnings;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use Carp;
use English qw( -no_match_vars );
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use Carp;
{ #<<< A non-indenting brace to contain all lexical variables
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use English qw( -no_match_vars );
use Scalar::Util 'refaddr';
use Perl::Tidy::VerticalAligner::Alignment;
use strict;
use warnings;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
sub new {
my ( $class, $rarg ) = @_;
use strict;
use warnings;
-our $VERSION = '20240202.06';
+our $VERSION = '20240202.07';
use English qw( -no_match_vars );
sub AUTOLOAD {