# Perltidy Change Log
-## 2019 09 15.01
+## 2019 12 07
- Fixed issue RT#131115: -bli option not working correctly.
Closing braces were not indented in some cases due to a glitch
- Implement issue RT#130640: Allow different subroutine keywords.
Added a flag --sub-alias-list=s or -sal=s, where s is a string with
- one or more aliases for 'sub', separated by spaces or commas.
+ one or more aliases for 'sub', separated by spaces or commas.
For example,
perltidy -sal='method fun'
t/snippets13.t
t/snippets14.t
t/snippets15.t
+t/snippets16.t
t/snippets2.t
t/snippets3.t
t/snippets4.t
=head1 VERSION
-This man page documents perltidy version 20190915.01
+This man page documents perltidy version 20191207
=head1 BUG REPORTS
<h1>Perltidy Change Log</h1>
-<h2>2019 09 15.01</h2>
+<h2>2019 12 07</h2>
-<pre><code>- implement issue RT#130640: Allow different subroutine keywords.
+<pre><code>- Fixed issue RT#131115: -bli option not working correctly.
+ Closing braces were not indented in some cases due to a glitch
+ introduced in version 20181120.
+
+- Fixed issue RT#130394: Allow short nested blocks. Given the following
+
+ $factorial = sub { reduce { $a * $b } 1 .. 11 };
+
+ Previous versions would always break the sub block because it
+ contains another block (the reduce block). The fix keeps
+ short one-line blocks such as this intact.
+
+- Implement issue RT#130640: Allow different subroutine keywords.
Added a flag --sub-alias-list=s or -sal=s, where s is a string with
- one or more aliases for 'sub', separated by spaces or commas.
+ one or more aliases for 'sub', separated by spaces or commas.
For example,
perltidy -sal='method fun'
- will cause the perltidy to treate the words 'method' and 'fun' to be
+ will cause the perltidy to treat the words 'method' and 'fun' to be
treated the same as if they were 'sub'.
- Added flag --space-prototype-paren=i, or -spp=i, to control spacing
sub usage(); # i=0 [no space]
sub usage(); # i=1 [default; follows input]
sub usage (); # i=2 [space]
+
+- Fixed issue git#16, minor vertical alignment issue.
+
+- Fixed issue git#10, minor conflict of -wn and -ce
+
+- Improved some vertical alignments involving two lines.
</code></pre>
<h2>2019 09 15</h2>
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents Perl::Tidy version 20190915.01</p>
+<p>This man page documents Perl::Tidy version 20191207</p>
<h1 id="LICENSE">LICENSE</h1>
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents perltidy version 20190915.01</p>
+<p>This man page documents perltidy version 20191207</p>
<h1 id="BUG-REPORTS">BUG REPORTS</h1>
# Release version must be bumped, and it is probably past time for a
# release anyway.
- $VERSION = '20190915.01';
+ $VERSION = '20191207';
}
sub streamhandle {
=head1 VERSION
-This man page documents Perl::Tidy version 20190915.01
+This man page documents Perl::Tidy version 20191207
=head1 LICENSE
package Perl::Tidy::Debugger;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::DevNull;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new { my $self = shift; return bless {}, $self }
sub print { return }
sub close { return }
package Perl::Tidy::Diagnostics;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::FileWriter;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
# Maximum number of little messages; probably need not be changed.
my $MAX_NAG_MESSAGES = 6;
use strict;
use warnings;
use Carp;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
# The Tokenizer will be loaded with the Formatter
##use Perl::Tidy::Tokenizer; # for is_keyword()
else {
# ok
}
+ return;
}
sub mark_short_nested_blocks {
$SUB_PATTERN =~ s/sub/\($sub_alias_list\)/;
$ASUB_PATTERN =~ s/sub/\($sub_alias_list\)/;
}
+ return;
}
sub make_bli_pattern {
package Perl::Tidy::HtmlWriter;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
use File::Basename;
use strict;
use warnings;
use Carp;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
my ( $package, $rscalar, $mode ) = @_;
use strict;
use warnings;
use Carp;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
my ( $package, $rarray, $mode ) = @_;
package Perl::Tidy::IndentationItem;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::LineBuffer;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::LineSink;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::LineSource;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::Logger;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
sub new {
package Perl::Tidy::Tokenizer;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
use Perl::Tidy::LineBuffer;
# In something like '$${' we have type '$$' (and only
# part of an identifier)
&& !( $identifier =~ /\$$/ && $tok eq '{' )
- && ( $identifier !~ /^(sub |package )$/ )
+ && ( $identifier !~ /^(sub |package )$/ )
)
{
$type = 'i';
package Perl::Tidy::VerticalAligner;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
use Perl::Tidy::VerticalAligner::Alignment;
use Perl::Tidy::VerticalAligner::Line;
package Perl::Tidy::VerticalAligner::Alignment;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
{
package Perl::Tidy::VerticalAligner::Line;
use strict;
use warnings;
-our $VERSION = '20190915.01';
+our $VERSION = '20191207';
{