summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-10 13:53:04 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-10 13:53:04 +0000
commit56782d8c1df7c88dd3e75c36ad72cdac06989b3a (patch)
tree413c40308335f5a6cb1032f2e1240462f2cc65f8 /perl-install/interactive
parent3beacab73f90f4db572d24a92f54bde446e350e8 (diff)
downloaddrakx-backup-do-not-use-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar
drakx-backup-do-not-use-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar.gz
drakx-backup-do-not-use-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar.bz2
drakx-backup-do-not-use-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar.xz
drakx-backup-do-not-use-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.zip
two fixes thx to perl_checker, one among them being very important :)
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index a7c7968c4..935e8372a 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -167,8 +167,8 @@ sub create_treeview_tree {
my $to_unref;
$build_value = sub {
my ($text, $image) = $e->{image2f}->($_[0]);
- [ $text ? (0 => $text) : (),
- $image ? (1 => my $to_unref = gtkcreate_pixbuf($image)) : () ];
+ [ $text ? (0 => $text) : @{[]},
+ $image ? (1 => $to_unref = gtkcreate_pixbuf($image)) : @{[]} ];
};
$clean_image = sub { $to_unref and $to_unref->unref };
} else {