diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-05-21 15:19:36 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-05-21 15:19:36 +0000 |
| commit | b9b5945d54da8d5875fa79d4da75505b9e4aad84 (patch) | |
| tree | 9878c767551e44d64872bca357ce26e47c6ea380 /perl-install | |
| parent | 742c60441a713dcecf0071ff19e9d52be51c8954 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
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; |