New upstream version 20220217

[perltidy.git] / t / snippets19.t

diff --git a/t/snippets19.t b/t/snippets19.t
index 5740606fcd4dd029ac14e0b51a9b7abf6f0f18c2..753c55216e9eea9acc64b00860caa363bedacf3b 100644 (file)
--- a/t/snippets19.t
+++ b/t/snippets19.t
@@ -435,14 +435,12 @@ my ( $v1, $v2 ) = @_;     # test -sak='push'
             source => "braces",
             params => "braces5",
             expect => <<'#17...........',
-sub message
-{
+sub message {
     if ( !defined( $_[0] ) )
       {
         print("Hello, World\n");
       }
-    else
-    {
+    else {
         print( $_[0], "\n" );
     }
 }
@@ -454,8 +452,7 @@ $myfun = sub {
 eval {
     my $app = App::perlbrew->new( "install-patchperl", "-q" );
     $app->run();
-} or do
-{
+} or do {
     $error          = $@;
     $produced_error = 1;
 };
@@ -471,10 +468,8 @@ Mojo::IOLoop->next_tick(
     }
 );
 
-$r = do
-{
-    sswitch( $words[ rand @words ] )
-    {
+$r = do {
+    sswitch( $words[ rand @words ] ) {
         case $words[0]:
         case $words[1]:
         case $words[2]:
@@ -483,12 +478,10 @@ $r = do
     }
 };
 
-try
-{
+try {
     die;
 }
-catch
-{
+catch {
     die;
 };
 #17...........