Diff impromements: keep block whole

[KES]

Does it be more meaning full which change was done when diff will be displayed 
as:
@@ -1278,6 +1311,16 @@ sub process {
                if( ref $result eq 'HASH' ) {
                        $code =  $result->{ code };
                        @args =  DB::eval( $result->{ expr } );
 
                        redo PROCESS;
                }
+               elsif( ref $result eq 'ARRAY' ) {
+                       $code =  shift @$result;
+                       @args =  ();
+                       for my $expr ( @$result ) {
+                               push @args, [ DB::eval( $expr ) ];
+                       }
+
+                       redo PROCESS;
+               }
 

instead of:

@@ -1278,6 +1311,16 @@ sub process {
                if( ref $result eq 'HASH' ) {
                        $code =  $result->{ code };
                        @args =  DB::eval( $result->{ expr } );
+
+                       redo PROCESS;
+               }
+               elsif( ref $result eq 'ARRAY' ) {
+                       $code =  shift @$result;
+                       @args =  ();
+                       for my $expr ( @$result ) {
+                               push @args, [ DB::eval( $expr ) ];
+                       }
+
                        redo PROCESS;
                }