From 56782d8c1df7c88dd3e75c36ad72cdac06989b3a Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 10 Feb 2003 13:53:04 +0000
Subject: two fixes thx to perl_checker, one among them being very important :)

---
 perl-install/interactive/gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive')

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 {
-- 
cgit v1.2.1