"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/snippets17.t" between
Perl-Tidy-20210402.tar.gz and Perl-Tidy-20210717.tar.gz

About: Perltidy is a Perl script indenter and reformatter (beautifier).

snippets17.t  (Perl-Tidy-20210402):snippets17.t  (Perl-Tidy-20210717)
skipping to change at line 93 skipping to change at line 93
---------- ----------
'bos' => <<'----------', 'bos' => <<'----------',
$top_label->set_text( gettext("check permissions.") ) $top_label->set_text( gettext("check permissions.") )
; ;
---------- ----------
'comments' => <<'----------', 'comments' => <<'----------',
#!/usr/bin/perl -w #!/usr/bin/perl -w
# an initial hash bang line cannot be deleted with -dp # an initial hash bang line cannot be deleted with -dp
#<<< format skipping of first code can cause an error message in perltidy v20210
625
my $rvar = [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
#>>>
sub length { return length($_[0]) } # side comment sub length { return length($_[0]) } # side comment
# hanging side comment # hanging side comment
# very longgggggggggggggggggggggggggggggggggggggggg gggggggggggg hanging side comment # very longgggggggggggggggggggggggggggggggggggggggg gggggggggggg hanging side comment
# a blank will be inserted to prevent forming a hanging side comment # a blank will be inserted to prevent forming a hanging side comment
sub macro_get_names { # sub macro_get_names { #
# #
# %name = macro_get_names(); (key=macrohandle, value=macroname) # %name = macro_get_names(); (key=macrohandle, value=macroname)
# #
##local(%name); # a static block comment without indentation ##local(%name); # a static block comment without indentation
skipping to change at line 332 skipping to change at line 335
$top_label->set_text( gettext("check permissions.") ); $top_label->set_text( gettext("check permissions.") );
#3........... #3...........
}, },
'comments.comments1' => { 'comments.comments1' => {
source => "comments", source => "comments",
params => "comments1", params => "comments1",
expect => <<'#4...........', expect => <<'#4...........',
#!/usr/bin/perl -w #!/usr/bin/perl -w
# an initial hash bang line cannot be deleted with -dp # an initial hash bang line cannot be deleted with -dp
#<<< format skipping of first code can cause an error message in perltidy v20210
625
my $rvar = [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
#>>>
sub length { return length( $_[0] ) } # side comment sub length { return length( $_[0] ) } # side comment
# hanging side comment # hanging side comment
# very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side com ment # very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side com ment
# a blank will be inserted to prevent forming a hanging side comment # a blank will be inserted to prevent forming a hanging side comment
sub macro_get_names { # sub macro_get_names { #
# #
# %name = macro_get_names(); (key=macrohandle, value=macroname) # %name = macro_get_names(); (key=macrohandle, value=macroname)
skipping to change at line 419 skipping to change at line 425
=cut =cut
#4........... #4...........
}, },
'comments.comments2' => { 'comments.comments2' => {
source => "comments", source => "comments",
params => "comments2", params => "comments2",
expect => <<'#5...........', expect => <<'#5...........',
#!/usr/bin/perl -w #!/usr/bin/perl -w
#<<< format skipping of first code can cause an error message in perltidy v20210
625
my $rvar = [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
#>>>
sub length { return length( $_[0] ) } # side comment sub length { return length( $_[0] ) } # side comment
# hanging side comment # hanging side comment
# very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment # very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment
sub macro_get_names { # sub macro_get_names { #
local (%name) = (); ## a static side comment to test -ssc local (%name) = (); ## a static side comment to test -ssc
for ( 0 .. $#mac_ver ) { for ( 0 .. $#mac_ver ) {
$name{$_} = $mac_ext[ $idx{ $mac_exti[$_] } ]; $name{$_} = $mac_ext[ $idx{ $mac_exti[$_] } ];
$vmsfile =~ s/;[\d\-]*$// $vmsfile =~ s/;[\d\-]*$//
skipping to change at line 480 skipping to change at line 489
#5........... #5...........
}, },
'comments.comments3' => { 'comments.comments3' => {
source => "comments", source => "comments",
params => "comments3", params => "comments3",
expect => <<'#6...........', expect => <<'#6...........',
#!/usr/bin/perl -w #!/usr/bin/perl -w
# an initial hash bang line cannot be deleted with -dp # an initial hash bang line cannot be deleted with -dp
#<<< format skipping of first code can cause an error message in perltidy v20210
625
my $rvar = [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
#>>>
sub length { return length( $_[0] ) } # side comment sub length { return length( $_[0] ) } # side comment
# hanging side comment # hanging side comment
# very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment # very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment
# a blank will be inserted to prevent forming a hanging side comment # a blank will be inserted to prevent forming a hanging side comment
sub macro_get_names { # sub macro_get_names { #
# #
# %name = macro_get_names(); (key=macrohandle, value=macroname) # %name = macro_get_names(); (key=macrohandle, value=macroname)
# #
skipping to change at line 564 skipping to change at line 577
#6........... #6...........
}, },
'comments.comments4' => { 'comments.comments4' => {
source => "comments", source => "comments",
params => "comments4", params => "comments4",
expect => <<'#7...........', expect => <<'#7...........',
#!/usr/bin/perl -w #!/usr/bin/perl -w
# an initial hash bang line cannot be deleted with -dp # an initial hash bang line cannot be deleted with -dp
#<<< format skipping of first code can cause an error message in perltidy v20210
625
my $rvar = [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
#>>>
sub length { return length( $_[0] ) } # side comment sub length { return length( $_[0] ) } # side comment
# hanging side comment # hanging side comment
# very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment # very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment
# a blank will be inserted to prevent forming a hanging side comment # a blank will be inserted to prevent forming a hanging side comment
sub macro_get_names { # sub macro_get_names { #
# #
# %name = macro_get_names(); (key=macrohandle, value=macroname) # %name = macro_get_names(); (key=macrohandle, value=macroname)
# #
skipping to change at line 654 skipping to change at line 670
#7........... #7...........
}, },
'comments.def' => { 'comments.def' => {
source => "comments", source => "comments",
params => "def", params => "def",
expect => <<'#8...........', expect => <<'#8...........',
#!/usr/bin/perl -w #!/usr/bin/perl -w
# an initial hash bang line cannot be deleted with -dp # an initial hash bang line cannot be deleted with -dp
#<<< format skipping of first code can cause an error message in perltidy v20210
625
my $rvar = [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
#>>>
sub length { return length( $_[0] ) } # side comment sub length { return length( $_[0] ) } # side comment
# hanging side comment # hanging side comment
# very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment # very longgggggggggggggggggggggggggggggggggggggggggggggggggggg hanging side co mment
# a blank will be inserted to prevent forming a hanging side comment # a blank will be inserted to prevent forming a hanging side comment
sub macro_get_names { # sub macro_get_names { #
# #
# %name = macro_get_names(); (key=macrohandle, value=macroname) # %name = macro_get_names(); (key=macrohandle, value=macroname)
# #
skipping to change at line 991 skipping to change at line 1010
: do { require Carp; Carp::croak("Can't export symbol: $type$sym") }; : do { require Carp; Carp::croak("Can't export symbol: $type$sym") };
#18........... #18...........
}, },
'wn7.def' => { 'wn7.def' => {
source => "wn7", source => "wn7",
params => "def", params => "def",
expect => <<'#19...........', expect => <<'#19...........',
# do not weld paren to opening one-line non-paren container # do not weld paren to opening one-line non-paren container
$Self->_Add( $Self->_Add(
$SortOrderDisplay{ $Field->GenerateFieldForSelectSQL() } $SortOrderDisplay{
$Field->GenerateFieldForSelectSQL()
}
); );
# this will not get welded with -wn # this will not get welded with -wn
f( f(
do { 1; !!( my $x = bless [] ); } do { 1; !!( my $x = bless [] ); }
); );
#19........... #19...........
}, },
}; };
 End of changes. 7 change blocks. 
1 lines changed or deleted 28 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)