Fix test to work against perltidy-20160302 (bug #1314800)
parent
706a9d1476
commit
884514c0f0
@ -0,0 +1,19 @@
|
|||||||
|
diff -up Perl-Tidy-Sweetened-1.07/t/perl-signatures.t.orig Perl-Tidy-Sweetened-1.07/t/perl-signatures.t
|
||||||
|
--- Perl-Tidy-Sweetened-1.07/t/perl-signatures.t.orig 2016-03-11 10:36:19.809540565 +0100
|
||||||
|
+++ Perl-Tidy-Sweetened-1.07/t/perl-signatures.t 2016-03-11 10:37:35.533205735 +0100
|
||||||
|
@@ -73,13 +73,13 @@ sub foo($x, $y={}){ | sub foo
|
||||||
|
|
||||||
|
==== 5.20 annoymous sub ===============================================
|
||||||
|
$j->map( | $j->map(
|
||||||
|
- sub($x,$ = 0) { | sub($x,$ = 0) {
|
||||||
|
+ sub($x,$ = 0) { | sub ( $x, $ = 0 ) {
|
||||||
|
$x->method(); | $x->method();
|
||||||
|
} | }
|
||||||
|
); | );
|
||||||
|
|
||||||
|
==== 5.20 annoymous sub 2 ===============================================
|
||||||
|
-my $x = sub($x,$ = 0) { | my $x = sub($x,$ = 0) {
|
||||||
|
+my $x = sub($x,$ = 0) { | my $x = sub ( $x, $ = 0 ) {
|
||||||
|
$x->method(); | $x->method();
|
||||||
|
}; | };
|
||||||
|
|
Loading…
Reference in new issue