diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-10 13:53:04 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-10 13:53:04 +0000 |
| commit | 56782d8c1df7c88dd3e75c36ad72cdac06989b3a (patch) | |
| tree | 413c40308335f5a6cb1032f2e1240462f2cc65f8 /perl-install/interactive | |
| parent | 3beacab73f90f4db572d24a92f54bde446e350e8 (diff) | |
| download | drakx-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar drakx-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar.gz drakx-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar.bz2 drakx-56782d8c1df7c88dd3e75c36ad72cdac06989b3a.tar.xz drakx-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.pm | 4 |
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 { |