From b9b5945d54da8d5875fa79d4da75505b9e4aad84 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 21 May 2003 15:19:36 +0000
Subject: fix gc sux in 1.117 modfiying function behaviour

---
 perl-install/ugtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

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;
-- 
cgit v1.2.1