summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 {