From 6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 2 Sep 2002 14:56:28 +0000
Subject: gtkicons_labels_widget(): check binary exists

---
 perl-install/ugtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 90f76ff03..ed8f6ea2a 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -500,6 +500,7 @@ sub gtkicons_labels_widget {
     my $cursor_normal = new Gtk::Gdk::Cursor 68;
     foreach (@$args) {
 	my $label = $_->[0];
+	die "$label 's icon is missing" unless $exec_hash->{$label};
 	my $dbl_area;
 	my $darea = new Gtk::DrawingArea;
 	my ($icon, undef) = gtkcreate_png($_->[1]);
-- 
cgit v1.2.1