summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-12-06 20:41:06 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-12-06 20:41:06 +0000
commit57f07fe001d4f6536221aa9170a4e2c1034744e5 (patch)
treeb44ceaf3807d6804137c41c94d7a1df09c43960a /perl-install/ugtk2.pm
parenta5df968081df8035d6ef2a849674a8cb5102bf47 (diff)
downloaddrakx-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/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 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);