summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-05-21 15:19:36 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-05-21 15:19:36 +0000
commitb9b5945d54da8d5875fa79d4da75505b9e4aad84 (patch)
tree9878c767551e44d64872bca357ce26e47c6ea380 /perl-install/ugtk2.pm
parent742c60441a713dcecf0071ff19e9d52be51c8954 (diff)
downloaddrakx-b9b5945d54da8d5875fa79d4da75505b9e4aad84.tar
drakx-b9b5945d54da8d5875fa79d4da75505b9e4aad84.tar.gz
drakx-b9b5945d54da8d5875fa79d4da75505b9e4aad84.tar.bz2
drakx-b9b5945d54da8d5875fa79d4da75505b9e4aad84.tar.xz
drakx-b9b5945d54da8d5875fa79d4da75505b9e4aad84.zip
fix gc sux in 1.117 modfiying function behaviour
Diffstat (limited to 'perl-install/ugtk2.pm')
-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;