bump version to 2023 09 12.01

diff --git a/CHANGES.md b/CHANGES.md
index 9b63831c3610ab70c2e6460a50b05232e1dc9f58..1ab5836421205b58d359adbfae20efdac530604c 100644 (file)
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,5 +1,11 @@
 # Perltidy Change Log
 
+## 2023 09 12.01
+
+    - Fix problem c269, in which the new -ame parameter could incorrectly
+      emit an else block when two elsif blocks were separated by a hanging
+      side comment (a very rare situation).
+
 ## 2023 09 12
 
     - Fix for git #124: remove a syntax error check which could cause

diff --git a/bin/perltidy b/bin/perltidy
index e1bfac641f9becccb1e684fac3cb63833f06d0f8..d04ba3019b8da303d1af062f4cf9b1d9c7e3c861 100755 (executable)
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -5878,7 +5878,7 @@ The perltidy binary uses the Perl::Tidy module and is installed when that module
 
 =head1 VERSION
 
-This man page documents perltidy version 20230912
+This man page documents perltidy version 20230912.01
 
 =head1 BUG REPORTS
 

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index f9b98ee8acc2eb1f2c8c527ae9d7778e70bbebfe..6880b2ad00a0f771982d3943f19ae206bfebd633 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -111,7 +111,7 @@ BEGIN {
     # then the Release version must be bumped, and it is probably past time for
     # a release anyway.
 
-    $VERSION = '20230912';
+    $VERSION = '20230912.01';
 } ## end BEGIN
 
 sub DESTROY {

diff --git a/lib/Perl/Tidy.pod b/lib/Perl/Tidy.pod
index 277a34a4fa06c344756695576ee05649a607c9cf..7d67484bd4ff29d696124628e025a7214a0e29e1 100644 (file)
--- a/lib/Perl/Tidy.pod
+++ b/lib/Perl/Tidy.pod
@@ -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 20230912
+This man page documents Perl::Tidy version 20230912.01
 
 =head1 LICENSE
 

diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm
index 7d0ae4435ef14b7f81620bddb643b21208c4b9ba..5566b344edf5c141f40c60a4ee6735172c2fe62c 100644 (file)
--- a/lib/Perl/Tidy/Debugger.pm
+++ b/lib/Perl/Tidy/Debugger.pm
@@ -8,7 +8,7 @@ package Perl::Tidy::Debugger;
 use strict;
 use warnings;
 use English qw( -no_match_vars );
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use constant EMPTY_STRING => q{};
 use constant SPACE        => q{ };

diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm
index 2826fd290e625079ebe546839d532d0a88e1f7bf..016db93f147572e98edd49f28bbc0172028e9e45 100644 (file)
--- a/lib/Perl/Tidy/Diagnostics.pm
+++ b/lib/Perl/Tidy/Diagnostics.pm
@@ -18,7 +18,7 @@ package Perl::Tidy::Diagnostics;
 use strict;
 use warnings;
 use English qw( -no_match_vars );
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use constant EMPTY_STRING => q{};
 

diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm
index 44ad10b3cf175a5d4ea8463e7858cb30952a77e7..2dd8cc7f509693f2dd426330efd16d7b12805ad6 100644 (file)
--- a/lib/Perl/Tidy/FileWriter.pm
+++ b/lib/Perl/Tidy/FileWriter.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::FileWriter;
 use strict;
 use warnings;
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use constant DEVEL_MODE   => 0;
 use constant EMPTY_STRING => q{};

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index fc983f54f65b4e3c4a12d4a1f853e1ee1a7db29e..05e8ec3c37b76b0eee18e543ffd54c8241abe904 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -53,7 +53,7 @@ use constant SPACE        => 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 = '20230912';
+our $VERSION = '20230912.01';
 
 # The Tokenizer will be loaded with the Formatter
 ##use Perl::Tidy::Tokenizer;    # for is_keyword()

diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index d1f03873f0e93d33bca11f8c398d0a4469192436..cd5b7717f9a915d81f9148ccd5e04f1cb4b5765e 100644 (file)
--- a/lib/Perl/Tidy/HtmlWriter.pm
+++ b/lib/Perl/Tidy/HtmlWriter.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::HtmlWriter;
 use strict;
 use warnings;
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use English qw( -no_match_vars );
 use File::Basename;

diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm
index 386d0d11531d19e733473d6904063025308bf485..17104c7b84ab4a4ca360beeed361b4bb01a75013 100644 (file)
--- a/lib/Perl/Tidy/IOScalar.pm
+++ b/lib/Perl/Tidy/IOScalar.pm
@@ -10,7 +10,7 @@ package Perl::Tidy::IOScalar;
 use strict;
 use warnings;
 use Carp;
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use constant DEVEL_MODE   => 0;
 use constant EMPTY_STRING => q{};

diff --git a/lib/Perl/Tidy/IOScalarArray.pm b/lib/Perl/Tidy/IOScalarArray.pm
index deb54bdc01e836edaf5d2db4ee190d1d914ba889..d398388fca994bb694588b641a4cfa297f9ab1a7 100644 (file)
--- a/lib/Perl/Tidy/IOScalarArray.pm
+++ b/lib/Perl/Tidy/IOScalarArray.pm
@@ -14,7 +14,7 @@ package Perl::Tidy::IOScalarArray;
 use strict;
 use warnings;
 use Carp;
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use constant DEVEL_MODE => 0;
 

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index 83cfb15f0c3e5093941b9b9392cfca151e6f9deb..50a5ea39937c7e31a4d1c794570b7874dd5241ca 100644 (file)
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -8,7 +8,7 @@
 package Perl::Tidy::IndentationItem;
 use strict;
 use warnings;
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 BEGIN {
 

diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm
index 7daf081949d02a7ca3ed7ae68f41796d1aeab78c..05b9f06899056ce07b3781653f2371fd02ad051b 100644 (file)
--- a/lib/Perl/Tidy/Logger.pm
+++ b/lib/Perl/Tidy/Logger.pm
@@ -8,7 +8,7 @@
 package Perl::Tidy::Logger;
 use strict;
 use warnings;
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 use English qw( -no_match_vars );
 
 use constant DEVEL_MODE   => 0;

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index f7d7553e8b6997ecb45b7f26d5bfbb8c77f44ed4..499edea66c7780e578cd7f87cc374f06c3d960e2 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -22,7 +22,7 @@ use strict;
 use warnings;
 use English qw( -no_match_vars );
 
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 use Carp;
 

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 77d60c4cc1c8463604e03adca3e2405c63b90b52..57e2a8c0179c3614a08817cf43b28e8c55b51620 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Carp;
 use English qw( -no_match_vars );
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 use Perl::Tidy::VerticalAligner::Alignment;
 use Perl::Tidy::VerticalAligner::Line;
 

diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
index c16f56642eb2e12adde145ebf74d671e6c7d6255..30b00f3c1ed2be7c77970e6b624f6a0435e775b2 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -10,7 +10,7 @@ use warnings;
 
 { #<<< A non-indenting brace
 
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 sub new {
     my ( $class, $rarg ) = @_;

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 60808a2653c2b44594d2b5faca8a4e7eef9b91a8..e8f3f7eb7e1e1d52ab31104b35718a951a581260 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -10,7 +10,7 @@ package Perl::Tidy::VerticalAligner::Line;
 use strict;
 use warnings;
 use English qw( -no_match_vars );
-our $VERSION = '20230912';
+our $VERSION = '20230912.01';
 
 sub AUTOLOAD {