"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/snippets14.t" between
Perl-Tidy-20191203.tar.gz and Perl-Tidy-20200110.tar.gz

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

snippets14.t  (Perl-Tidy-20191203):snippets14.t  (Perl-Tidy-20200110)
skipping to change at line 571 skipping to change at line 571
sub { @H::ISA = qw/G/; @B::ISA = qw/B/ }, sub { @H::ISA = qw/G/; @B::ISA = qw/B/ },
sub { @B::ISA = qw//; @K::ISA = qw/K J I/ }, sub { @B::ISA = qw//; @K::ISA = qw/K J I/ },
sub { @K::ISA = qw/J I/; @D::ISA = qw/A H B C/ }, sub { @K::ISA = qw/J I/; @D::ISA = qw/A H B C/ },
return; return;
); );
my %extractor_for = ( my %extractor_for = (
quotelike => [ $ws, $variable, $id, { MATCH => \&extract_quotelike } ], quotelike => [ $ws, $variable, $id, { MATCH => \&extract_quotelike } ],
regex => [ $ws, $pod_or_DATA, $id, $exql ], regex => [ $ws, $pod_or_DATA, $id, $exql ],
string => [ $ws, $pod_or_DATA, $id, $exql ], string => [ $ws, $pod_or_DATA, $id, $exql ],
code => [ code => [
$ws, { DONT_MATCH => $pod_or_DATA }, $ws, { DONT_MATCH => $pod_or_DATA },
$variable, $id, { DONT_MATCH => \&extract_quotelike } $variable, $id, { DONT_MATCH => \&extract_quotelike }
], ],
code_no_comments => [ code_no_comments => [
{ DONT_MATCH => $comment }, { DONT_MATCH => $comment },
$ncws, { DONT_MATCH => $pod_or_DATA }, $ncws, { DONT_MATCH => $pod_or_DATA },
$variable, $id, { DONT_MATCH => \&extract_quotelike } $variable, $id, { DONT_MATCH => \&extract_quotelike }
], ],
executable => [ $ws, { DONT_MATCH => $pod_or_DATA } ], executable => [ $ws, { DONT_MATCH => $pod_or_DATA } ],
executable_no_comments => executable_no_comments =>
[ { DONT_MATCH => $comment }, $ncws, { DONT_MATCH => $pod_or_DATA } ], [ { DONT_MATCH => $comment }, $ncws, { DONT_MATCH => $pod_or_DATA } ],
all => [ { MATCH => qr/(?s:.*)/ } ], all => [ { MATCH => qr/(?s:.*)/ } ],
); );
exit 1; exit 1;
#6........... #6...........
}, },
skipping to change at line 690 skipping to change at line 690
sub { @H::ISA = qw/G/; @B::ISA = qw/B/ }, sub { @H::ISA = qw/G/; @B::ISA = qw/B/ },
sub { @B::ISA = qw//; @K::ISA = qw/K J I/ }, sub { @B::ISA = qw//; @K::ISA = qw/K J I/ },
sub { @K::ISA = qw/J I/; @D::ISA = qw/A H B C/ }, sub { @K::ISA = qw/J I/; @D::ISA = qw/A H B C/ },
return; return;
); );
my %extractor_for = ( my %extractor_for = (
quotelike => [ $ws, $variable, $id, { MATCH => \&extract_quotelike } ], quotelike => [ $ws, $variable, $id, { MATCH => \&extract_quotelike } ],
regex => [ $ws, $pod_or_DATA, $id, $exql ], regex => [ $ws, $pod_or_DATA, $id, $exql ],
string => [ $ws, $pod_or_DATA, $id, $exql ], string => [ $ws, $pod_or_DATA, $id, $exql ],
code => [ code => [
$ws, { DONT_MATCH => $pod_or_DATA }, $ws, { DONT_MATCH => $pod_or_DATA },
$variable, $id, { DONT_MATCH => \&extract_quotelike } $variable, $id, { DONT_MATCH => \&extract_quotelike }
], ],
code_no_comments => [ code_no_comments => [
{ DONT_MATCH => $comment }, { DONT_MATCH => $comment },
$ncws, { DONT_MATCH => $pod_or_DATA }, $ncws, { DONT_MATCH => $pod_or_DATA },
$variable, $id, { DONT_MATCH => \&extract_quotelike } $variable, $id, { DONT_MATCH => \&extract_quotelike }
], ],
executable => [ $ws, { DONT_MATCH => $pod_or_DATA } ], executable => [ $ws, { DONT_MATCH => $pod_or_DATA } ],
executable_no_comments => executable_no_comments =>
[ { DONT_MATCH => $comment }, $ncws, { DONT_MATCH => $pod_or_DATA } ], [ { DONT_MATCH => $comment }, $ncws, { DONT_MATCH => $pod_or_DATA } ],
all => [ { MATCH => qr/(?s:.*)/ } ], all => [ { MATCH => qr/(?s:.*)/ } ],
); );
exit 1; exit 1;
#7........... #7...........
}, },
 End of changes. 4 change blocks. 
4 lines changed or deleted 4 lines changed or added

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