diff options
| -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 { |