summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index d7091b4ec..154b1058e 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -526,8 +526,8 @@ 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;