bump version to 20230912.08

diff --git a/CHANGES.md b/CHANGES.md
index 25b2a8eebaf432d20f849bc8547923d1e0eb6498..6e749dbd5e4de7d72c35f14d27c17722511e202b 100644 (file)
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,6 +1,6 @@
 # Perltidy Change Log
 
-## 2023 09 12.07
+## 2023 09 12.08
 
     - Added --dump-unusual-variables (-duv) option to dump a list of
       variables with certain properties of interest. For example

diff --git a/bin/perltidy b/bin/perltidy
index aae89b24f280d0a8a1ddf5faacdee9cebf521977..162a016c5d5bc28a061ea2a156e766ba1a84d237 100755 (executable)
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -6103,7 +6103,7 @@ The perltidy binary uses the Perl::Tidy module and is installed when that module
 
 =head1 VERSION
 
-This man page documents perltidy version 20230912.07
+This man page documents perltidy version 20230912.08
 
 =head1 BUG REPORTS
 

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

diff --git a/lib/Perl/Tidy.pod b/lib/Perl/Tidy.pod
index b7f1b7ec0ebbd44dadc899a20db7e79bd4946054..1924beb001f5f80f92e74cf7a83534ab495d7538 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.07
+This man page documents Perl::Tidy version 20230912.08
 
 =head1 LICENSE
 

diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm
index 7d5fd90c30d2a3391dc0fb970a88d711c3ed6fac..cbc5cef17480fb1a6dc9f37371ed5f027c727a04 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.07';
+our $VERSION = '20230912.08';
 
 use constant EMPTY_STRING => q{};
 use constant SPACE        => q{ };

diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm
index 736115d5f3500341b04f238d95acb3253174edca..9ff9886793b318387f0b4bcfbe283cea98ea304e 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.07';
+our $VERSION = '20230912.08';
 
 use constant EMPTY_STRING => q{};
 

diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm
index 8a9c3fc4d207da5a4ac219878ef9e78f0404d0d7..46571cdd69f7b65f7bf2a5bd664d3fb83f06e440 100644 (file)
--- a/lib/Perl/Tidy/FileWriter.pm
+++ b/lib/Perl/Tidy/FileWriter.pm
@@ -16,7 +16,7 @@
 package Perl::Tidy::FileWriter;
 use strict;
 use warnings;
-our $VERSION = '20230912.07';
+our $VERSION = '20230912.08';
 
 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 02ccc76b0c1b800706eb4913707f2331ddd9e5f3..2046011e173104d9bd399cbc98a6c907a4161db7 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -75,7 +75,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.07';
+our $VERSION = '20230912.08';
 
 # The Tokenizer will be loaded with the Formatter
 ##use Perl::Tidy::Tokenizer;    # for is_keyword()
@@ -9747,9 +9747,8 @@ sub initialize_call_paren_style {
       )
     {
         # skip blanks
-        if ( defined($2) ) { next }
-
-        if ( defined($3) ) {
+        if    ( defined($2) ) { next }
+        elsif ( defined($3) ) {
             if    ( $3 eq '!' ) { $want_parens          = 0; }
             elsif ( $3 eq '+' ) { $want_parens          = 1; }
             elsif ( $3 eq '*' ) { $call_paren_style{$3} = $want_parens }
@@ -9830,6 +9829,7 @@ sub scan_call_parens {
 
             my $token_Kn = $rLL->[$Kn]->[_TOKEN_];
             if    ( $token_Kn eq '=>' ) { next }
+            elsif ( $token_Kn eq '->' ) { next }
             elsif ( $token_Kn eq '(' )  { next if ($want_paren) }
             else                        { next if ( !$want_paren ) }
 

diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 07842d05621d00f915e11e4366f106e6f61673ab..b0eec92337e4981667dbb5b5ad7a09dd8c1f0339 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.07';
+our $VERSION = '20230912.08';
 
 use Carp;
 use English qw( -no_match_vars );

diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm
index 0c0d391b45abfe132bdd310c99d197092c7aa44b..bc061e19ae4450401544e662a49121d575211e5a 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.07';
+our $VERSION = '20230912.08';
 
 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 5294efa1be91f6baf6839d2c71144ebf7628f5e1..9d0e1028a5b46519a8d7335422e83080a2130f92 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.07';
+our $VERSION = '20230912.08';
 
 use constant DEVEL_MODE => 0;
 

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index 8258ba3e0ae13c87259c2348220f88ff8231c417..b3e68e7961d29848d0920866d3bed030962ebc79 100644 (file)
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -9,7 +9,7 @@ package Perl::Tidy::IndentationItem;
 use strict;
 use warnings;
 
-our $VERSION = '20230912.07';
+our $VERSION = '20230912.08';
 
 BEGIN {
 

diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm
index cad5bc814b15d3aead2970239190b10d2cb1b15c..2b8292c6862e15ca734d0a6d4abaf53e1edeb5b8 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.07';
+our $VERSION = '20230912.08';
 use Carp;
 use English qw( -no_match_vars );
 

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 53b8aaa5f791ed7f9ae3101bbb45bf7c8c4165eb..0960480d0968792bc34c3aacd78247b30a85d8ee 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -33,7 +33,7 @@ use strict;
 use warnings;
 use English qw( -no_match_vars );
 
-our $VERSION = '20230912.07';
+our $VERSION = '20230912.08';
 
 use Carp;
 

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 0daeba9247932b7d64c3ee6f9c93808330cf7854..b5e645d7d72ffecbc88364aa570b3c3f8cd2f0f6 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -5,7 +5,7 @@ use Carp;
 
 { #<<< A non-indenting brace to contain all lexical variables
 
-our $VERSION = '20230912.07';
+our $VERSION = '20230912.08';
 use English qw( -no_match_vars );
 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 b128c3bcecddb2d09236d349a22582eed9f9496c..c81280503c63bbb8d4478d6980070760b3498aec 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -9,7 +9,7 @@ package Perl::Tidy::VerticalAligner::Alignment;
 use strict;
 use warnings;
 
-our $VERSION = '20230912.07';
+our $VERSION = '20230912.08';
 
 sub new {
     my ( $class, $rarg ) = @_;

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 7b36a1e3d5751b86a627d9a78e85e138a522a18e..d6abc22f4197e16b3fd58daedae2eaa5b1465bdf 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;
 
-our $VERSION = '20230912.07';
+our $VERSION = '20230912.08';
 use English qw( -no_match_vars );
 
 sub AUTOLOAD {