From 6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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