bump version to 20100110.01

diff --git a/CHANGES.md b/CHANGES.md
index 83034a5e0e607f18899ec56338afe3e2f82ae816..822004d8acea9024d2cbad1acb0d840be64a0e1c 100644 (file)
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,5 +1,9 @@
 # Perltidy Change Log
 
+## 2020 01 10.01
+
+    - Fix for git#18, added warning for missing comma before unknown bare word.
+
 ## 2020 01 10
 
     - This release adds a flag to control the feature RT#130394 (allow short nested blocks)

diff --git a/bin/perltidy b/bin/perltidy
index 93a22c4c2202a67229a95a68bdf073317407d259..3a0d843e662e989b0d112d584efc312c7dd7df2a 100755 (executable)
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -3835,7 +3835,7 @@ The perltidy binary uses the Perl::Tidy module and is installed when that module
 
 =head1 VERSION
 
-This man page documents perltidy version 20200110
+This man page documents perltidy version 20200110.01
 
 =head1 BUG REPORTS
 

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index b30410ec419fac2368e17b608c3baa500f23cda8..0aae0404f2188007bd5cf7d34ccaf513c0031220 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -110,7 +110,7 @@ BEGIN {
     # Release version must be bumped, and it is probably past time for a
     # release anyway.
 
-    $VERSION = '20200110';
+    $VERSION = '20200110.01';
 }
 
 sub streamhandle {

diff --git a/lib/Perl/Tidy.pod b/lib/Perl/Tidy.pod
index dbbf01b8bc911bd6c0997d682b003e2ac2acbf28..4107a0115c284a2836ba01a824ad28b3dfd55ef7 100644 (file)
--- a/lib/Perl/Tidy.pod
+++ b/lib/Perl/Tidy.pod
@@ -418,7 +418,7 @@ The module 'Perl::Tidy' comes with a binary 'perltidy' which is installed when t
 
 =head1 VERSION
 
-This man page documents Perl::Tidy version 20200110
+This man page documents Perl::Tidy version 20200110.01
 
 =head1 LICENSE
 

diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm
index 09b82855b360bcabb52f7955dabbcf9dba5c8a0f..5feca7bbe52b3731016f5f69da1c5d8ca8d7c074 100644 (file)
--- a/lib/Perl/Tidy/Debugger.pm
+++ b/lib/Perl/Tidy/Debugger.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::Debugger;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/DevNull.pm b/lib/Perl/Tidy/DevNull.pm
index 42e09d0d31644ea0ae3e28dca024c18556af9320..ab2d645c074a51b5a018cefb66a4a23e48546835 100644 (file)
--- a/lib/Perl/Tidy/DevNull.pm
+++ b/lib/Perl/Tidy/DevNull.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::DevNull;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 sub new   { my $self = shift; return bless {}, $self }
 sub print { return }
 sub close { return }

diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm
index 1893f1c9262d18cf1dd2bed205bc30ec7604ce0c..b0fd5d247c3155677cf8665ff446ad7e15c737eb 100644 (file)
--- a/lib/Perl/Tidy/Diagnostics.pm
+++ b/lib/Perl/Tidy/Diagnostics.pm
@@ -20,7 +20,7 @@
 package Perl::Tidy::Diagnostics;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm
index c598e1e8431f8390993342d285459cbbe0cdcb13..2c867909423769b094c6ff6edde143ba85645ed1 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 = '20200110';
+our $VERSION = '20200110.01';
 
 # Maximum number of little messages; probably need not be changed.
 my $MAX_NAG_MESSAGES = 6;

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 164ca4592ac85f65817c5d6431b66bf4b2f3f96c..be2b9df924505bba00e9c4a225dd893a73e0d72e 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -12,7 +12,7 @@ package Perl::Tidy::Formatter;
 use strict;
 use warnings;
 use Carp;
-our $VERSION = '20200110';
+our $VERSION = '20200110.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 24e8b6954653f2e5e86c63fd368562482fd44f6d..4db9247fedd86e2db150e12f731320b9a8a5d2a9 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 = '20200110';
+our $VERSION = '20200110.01';
 
 use File::Basename;
 

diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm
index 3d7014436a3ac6c0809800ce961fb4f74a17f02a..460c00b53cad24625cfe49c2799ecee4bf03b026 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 = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
     my ( $package, $rscalar, $mode ) = @_;

diff --git a/lib/Perl/Tidy/IOScalarArray.pm b/lib/Perl/Tidy/IOScalarArray.pm
index 17686eb64429fd80ac7d51a32b2886c7b84fa71a..fe3a283a76ef51ee0c55c383fb0352d7df98cfdc 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 = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
     my ( $package, $rarray, $mode ) = @_;

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index 7a6c10062f27cb654bba7114faf6f7993266e354..c7978ed9abbfc5a1f6a1be41a81b919df068b5ad 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 = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/LineBuffer.pm b/lib/Perl/Tidy/LineBuffer.pm
index 66e2858eabea414a13c8c2d0825061fdb7d397a4..8b9efba904eeb610a96f1ff3b6a9db164a852b32 100644 (file)
--- a/lib/Perl/Tidy/LineBuffer.pm
+++ b/lib/Perl/Tidy/LineBuffer.pm
@@ -12,7 +12,7 @@
 package Perl::Tidy::LineBuffer;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/LineSink.pm b/lib/Perl/Tidy/LineSink.pm
index 51a68268840e9831be482970ef52d27e3f8c64f5..3854bc2acb1bc58477a961fe438032d47cb59242 100644 (file)
--- a/lib/Perl/Tidy/LineSink.pm
+++ b/lib/Perl/Tidy/LineSink.pm
@@ -8,7 +8,7 @@
 package Perl::Tidy::LineSink;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/LineSource.pm b/lib/Perl/Tidy/LineSource.pm
index d11144d9911be7ea31ce9808fe140cfc99a8f7ec..cc1a79056bc7614b7a66f8636e4aaee2e9304867 100644 (file)
--- a/lib/Perl/Tidy/LineSource.pm
+++ b/lib/Perl/Tidy/LineSource.pm
@@ -8,7 +8,7 @@
 package Perl::Tidy::LineSource;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm
index cab937b3be03a59228ca3072d569d168f33db994..d71be2b6a57d686ea6435ad660ce45f35044d2cb 100644 (file)
--- a/lib/Perl/Tidy/Logger.pm
+++ b/lib/Perl/Tidy/Logger.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::Logger;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 sub new {
 

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index ad27e1dfc8fdc3f398b34b5aab2a97bf6dcb47a8..9718a97c2222219d5d069061832ea8e1358624b8 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -21,7 +21,7 @@
 package Perl::Tidy::Tokenizer;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 use Perl::Tidy::LineBuffer;
 
@@ -6538,18 +6538,17 @@ sub numerator_expected {
 }
 
 {
-    my %pattern_test; 
+    my %pattern_test;
 
     BEGIN {
 
-        # list of tokens which may follow a pattern
-        # (can probably be expanded)
-        # Note that we will not have formed binaries at this point, so we will
-        # see '&' instead of '&&' and '|' instead of '||'
+       # List of tokens which may follow a pattern.  Note that we will not
+       # have formed digraphs at this point, so we will see '&' instead of
+       # '&&' and '|' instead of '||'
 
-        # /(\)|\}|\;|\&\&|\|\||and|or|while|if|unless)/ )
-        my @q = qw( & && | || and or while if unless);
-       push @q, ')', '}', ',', ';';
+        # /(\)|\}|\;|\&\&|\|\||and|or|while|if|unless)/
+        my @q = qw( & && | || ? : + - * and or while if unless);
+        push @q, ')', '}', ']', '>', ',', ';';
         @{pattern_test}{@q} = (1) x scalar(@q);
     }
 
@@ -6572,7 +6571,7 @@ sub numerator_expected {
         my ( $next_nonblank_token, $i_next ) =
           find_next_nonblank_token( $i, $rtokens, $max_token_index );
 
-        if ( $pattern_test{$next_nonblank_token} ) { 
+        if ( $pattern_test{$next_nonblank_token} ) {
             $is_pattern = 1;
         }
         else {

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 7efabb58f1b22e59e5649fcfa40a1530625e2803..f53848afcd5da74e7c9f51e2c67a0cf28515bfd6 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -1,7 +1,7 @@
 package Perl::Tidy::VerticalAligner;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.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 8a2c5c6d036495b7750304bd51e3c7e3fff5842b..81233fbd502b4237a347a54009ec08a471ef7345 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::VerticalAligner::Alignment;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 {
 

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index c5992694c5d3f233eb8ccae2c4a70e656ba23cad..25925df27c05693072dc7ca582d6dbcc2cbc61a4 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -8,7 +8,7 @@
 package Perl::Tidy::VerticalAligner::Line;
 use strict;
 use warnings;
-our $VERSION = '20200110';
+our $VERSION = '20200110.01';
 
 {