diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-12-06 20:41:06 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-12-06 20:41:06 +0000 |
| commit | 57f07fe001d4f6536221aa9170a4e2c1034744e5 (patch) | |
| tree | b44ceaf3807d6804137c41c94d7a1df09c43960a /perl-install | |
| parent | a5df968081df8035d6ef2a849674a8cb5102bf47 (diff) | |
| download | drakx-57f07fe001d4f6536221aa9170a4e2c1034744e5.tar drakx-57f07fe001d4f6536221aa9170a4e2c1034744e5.tar.gz drakx-57f07fe001d4f6536221aa9170a4e2c1034744e5.tar.bz2 drakx-57f07fe001d4f6536221aa9170a4e2c1034744e5.tar.xz drakx-57f07fe001d4f6536221aa9170a4e2c1034744e5.zip | |
don't use unless
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 974710666..066fb8d70 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -499,7 +499,7 @@ sub gtktext_insert { my ($textview, $t, $opts) = @_; if (ref($t) eq 'ARRAY') { my $buffer = $textview->get_buffer; - $buffer->set_text('', -1) unless $opts->{append}; + $opts->{append} or $buffer->set_text('', -1); foreach my $token (@$t) { my $c = $buffer->get_char_count; $buffer->insert($buffer->get_end_iter, $token->[0], -1); |