# Perltidy Change Log
-## 2022 11 11
+## 2022 11 12
+
+ - Fix rt #145095, undef warning in Perl before 5.12. Version 20221112 is
+ identical to 2022111 except for this fix for older versions of Perl.
- No significant bugs have been found since the last release to CPAN.
Several minor issues have been fixed, and some new parameters have been
=head1 VERSION
-This man page documents perltidy version 20221111
+This man page documents perltidy version 20221112
=head1 BUG REPORTS
<h1>Perltidy Change Log</h1>
-<h2>2022 11 11</h2>
+<h2>2022 11 12</h2>
-<pre><code>- No significant bugs have been found since the last release to CPAN.
+<pre><code>- Fix rt #145095, undef warning in Perl before 5.12. Version 20221112 is
+ identical to 2022111 except for this fix for older versions of Perl.
+
+- No significant bugs have been found since the last release to CPAN.
Several minor issues have been fixed, and some new parameters have been
added, as follows:
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents Perl::Tidy version 20221111</p>
+<p>This man page documents Perl::Tidy version 20221112</p>
<h1 id="LICENSE">LICENSE</h1>
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents perltidy version 20221111</p>
+<p>This man page documents perltidy version 20221112</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 = '20221111';
+ $VERSION = '20221112';
}
sub DESTROY {
=head1 VERSION
-This man page documents Perl::Tidy version 20221111
+This man page documents Perl::Tidy version 20221112
=head1 LICENSE
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use constant EMPTY_STRING => q{};
use constant SPACE => q{ };
package Perl::Tidy::DevNull;
use strict;
use warnings;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
sub new { my $self = shift; return bless {}, $self }
sub print { return }
sub close { return }
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use constant EMPTY_STRING => q{};
package Perl::Tidy::FileWriter;
use strict;
use warnings;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use constant DEVEL_MODE => 0;
use constant EMPTY_STRING => q{};
use Carp;
use English qw( -no_match_vars );
use List::Util qw( min max ); # min, max are in Perl 5.8
-our $VERSION = '20221111';
+our $VERSION = '20221112';
# 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 = '20221111';
+our $VERSION = '20221112';
use English qw( -no_match_vars );
use File::Basename;
use strict;
use warnings;
use Carp;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use constant EMPTY_STRING => q{};
use strict;
use warnings;
use Carp;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
sub AUTOLOAD {
package Perl::Tidy::IndentationItem;
use strict;
use warnings;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
BEGIN {
package Perl::Tidy::LineBuffer;
use strict;
use warnings;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
sub AUTOLOAD {
package Perl::Tidy::LineSink;
use strict;
use warnings;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
sub AUTOLOAD {
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use constant DEVEL_MODE => 0;
package Perl::Tidy::Logger;
use strict;
use warnings;
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use English qw( -no_match_vars );
use constant DEVEL_MODE => 0;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use Perl::Tidy::LineBuffer;
use Carp;
use warnings;
use Carp;
use English qw( -no_match_vars );
-our $VERSION = '20221111';
+our $VERSION = '20221112';
use Perl::Tidy::VerticalAligner::Alignment;
use Perl::Tidy::VerticalAligner::Line;
{ #<<< A non-indenting brace
-our $VERSION = '20221111';
+our $VERSION = '20221112';
sub new {
my ( $class, $rarg ) = @_;
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20221111';
+our $VERSION = '20221112';
sub AUTOLOAD {