gtktext_insert: fix indenting of one line, takes that as a

pretext to redo whole function identing without tabs

1 files changed, 12 insertions, 12 deletions

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 53b2eb81d..d7091b4ec 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -526,22 +526,22 @@ sub gtktext_append { gtktext_insert(@_, append => 1) }
 sub gtktext_insert {
     my ($textview, $t, %opts) = @_;
     my $buffer = $textview->get_buffer;
+    $opts{append} or $buffer->set_text('', -1);
     if (ref($t) eq 'ARRAY') {
-	$opts{append} or $buffer->set_text('', -1);
-	foreach my $token (@$t) {
-         my ($iter1, $iter2);
-	    my $c = $buffer->get_char_count;
-	    $buffer->insert($iter1 = $buffer->get_end_iter, $token->[0], -1);
+        foreach my $token (@$t) {
+            my ($iter1, $iter2);
+            my $c = $buffer->get_char_count;
+            $buffer->insert($iter1 = $buffer->get_end_iter, $token->[0], -1);
             $iter1->free;
-	    if ($token->[1]) {
-		my $tag = $buffer->create_tag(undef);
-		$tag->set(%{$token->[1]});
-		$buffer->apply_tag($tag, $iter1 = $buffer->get_iter_at_offset($c), $iter2 = $buffer->get_end_iter);
+            if ($token->[1]) {
+                my $tag = $buffer->create_tag(undef);
+                $tag->set(%{$token->[1]});
+                $buffer->apply_tag($tag, $iter1 = $buffer->get_iter_at_offset($c), $iter2 = $buffer->get_end_iter);
                 $iter1->free; $iter2->free;
-	    }
-	}
+            }
+        }
     } else {
-	$buffer->set_text($t, -1);
+        $buffer->set_text($t, -1);
     }
     #- the following line is needed to move the cursor to the beginning, so that if the
     #- textview has a scrollbar, it won't scroll to the bottom when focusing (#3633)