X-Git-Url: https://git.donarmstrong.com/?p=perltidy.git;a=blobdiff_plain;f=t%2Fsnippets15.t;fp=t%2Fsnippets15.t;h=eac77b011d4a3aaff6674b0d057f3566f4dbee39;hp=f79abe8dbf34506e1b4cae6962bc68ab2620520c;hb=6d131c770b3b54ee74e0d0b9179114d28dfcec27;hpb=f7b7d95d23cfcceb1d4adf1bf81d80029ae214e4 diff --git a/t/snippets15.t b/t/snippets15.t index f79abe8..eac77b0 100644 --- a/t/snippets15.t +++ b/t/snippets15.t @@ -407,11 +407,11 @@ elsif ( $i > $depth ) { $_ = 0; } # no one-line block for first map with -ce -cbl=map,sort,grep @sorted = map { $_->[0] -} sort { + } sort { $a->[1] <=> $b->[1] or $a->[0] cmp $b->[0] -} map { + } map { [ $_, length($_) ] -} @unsorted; + } @unsorted; #14........... }, @@ -435,7 +435,7 @@ sub get_val () { } -method get_value() { +method get_value () { }