# Perltidy Change Log
-## 2023 03 09.01
+## 2023 03 09.02
- Issue git #116. A new flag --valign-if-unless, -viu, was added to
allow postfix 'unless' terms to align with postfix 'if' terms. The
=head1 VERSION
-This man page documents perltidy version 20230309.01
+This man page documents perltidy version 20230309.02
=head1 BUG REPORTS
<h1>Perltidy Change Log</h1>
-<h2>2023 03 09.01</h2>
+<h2>2023 03 09.02</h2>
-<pre><code>- Fixed git #115. In the two most recent CPAN releases, when the
+<pre><code>- Issue git #116. A new flag --valign-if-unless, -viu, was added to
+ allow postfix 'unless' terms to align with postfix 'if' terms. The
+ default remains not to do this.
+
+- Fixed git #115. In the two most recent CPAN releases, when the
Perl::Tidy module was called with the source pointing to a file,
but no destination specified, the output went to the standard
output instead of to a file with extension ``.tdy``, as it should
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents Perl::Tidy version 20230309.01</p>
+<p>This man page documents Perl::Tidy version 20230309.02</p>
<h1 id="LICENSE">LICENSE</h1>
<p>But also notice that side comments remain aligned because their alignment is controlled separately with the parameter <b>--valign-side_comments</b> described above.</p>
+</dd>
+<dt id="Aligning-postfix-unless-and-if-with---valign-if-unless-or--viu"><b>Aligning postfix unless and if with --valign-if-unless or -viu</b></dt>
+<dd>
+
+<p>By default, postfix <b>if</b> terms align and postfix <b>unless</b> terms align, but separately. For example,</p>
+
+<pre><code> # perltidy [DEFAULT]
+ print "Tried to add: @ResolveRPM\n" if ( @ResolveRPM and !$Quiet );
+ print "Would need: @DepList\n" if ( @DepList and !$Quiet );
+ print "RPM Output:\n" unless $Quiet;
+ print join( "\n", @RPMOutput ) . "\n" unless $Quiet;</code></pre>
+
+<p>The <b>-viu</b> flag causes a postfix <b>unless</b> to be treated as if it were a postfix <b>if</b> for purposes of alignment. Thus</p>
+
+<pre><code> # perltidy -viu
+ print "Tried to add: @ResolveRPM\n" if ( @ResolveRPM and !$Quiet );
+ print "Would need: @DepList\n" if ( @DepList and !$Quiet );
+ print "RPM Output:\n" unless $Quiet;
+ print join( "\n", @RPMOutput ) . "\n" unless $Quiet;</code></pre>
+
</dd>
</dl>
<h1 id="VERSION">VERSION</h1>
-<p>This man page documents perltidy version 20230309.01</p>
+<p>This man page documents perltidy version 20230309.02</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 = '20230309.01';
+ $VERSION = '20230309.02';
} ## end BEGIN
sub DESTROY {
=head1 VERSION
-This man page documents Perl::Tidy version 20230309.01
+This man page documents Perl::Tidy version 20230309.02
=head1 LICENSE
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
use constant EMPTY_STRING => q{};
use constant SPACE => q{ };
package Perl::Tidy::DevNull;
use strict;
use warnings;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
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 = '20230309.01';
+our $VERSION = '20230309.02';
use constant EMPTY_STRING => q{};
package Perl::Tidy::FileWriter;
use strict;
use warnings;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
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 = '20230309.01';
+our $VERSION = '20230309.02';
# 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 = '20230309.01';
+our $VERSION = '20230309.02';
use English qw( -no_match_vars );
use File::Basename;
use strict;
use warnings;
use Carp;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
use constant EMPTY_STRING => q{};
use strict;
use warnings;
use Carp;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
sub AUTOLOAD {
package Perl::Tidy::IndentationItem;
use strict;
use warnings;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
BEGIN {
package Perl::Tidy::LineBuffer;
use strict;
use warnings;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
sub AUTOLOAD {
package Perl::Tidy::LineSink;
use strict;
use warnings;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
sub AUTOLOAD {
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
use constant DEVEL_MODE => 0;
package Perl::Tidy::Logger;
use strict;
use warnings;
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
use English qw( -no_match_vars );
use constant DEVEL_MODE => 0;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
use Perl::Tidy::LineBuffer;
use Carp;
use warnings;
use Carp;
use English qw( -no_match_vars );
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
use Perl::Tidy::VerticalAligner::Alignment;
use Perl::Tidy::VerticalAligner::Line;
{ #<<< A non-indenting brace
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
sub new {
my ( $class, $rarg ) = @_;
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230309.01';
+our $VERSION = '20230309.02';
sub AUTOLOAD {
projects / perltidy.git / commitdiff