summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-09-02 14:56:28 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-09-02 14:56:28 +0000
commit6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976 (patch)
tree04200ddfe87e7cb6cd073422506ebd4814a59cba /perl-install/ugtk.pm
parenteebddd94ac89cb855384f49724d8cf3df4777b86 (diff)
downloaddrakx-6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976.tar
drakx-6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976.tar.gz
drakx-6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976.tar.bz2
drakx-6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976.tar.xz
drakx-6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976.zip
gtkicons_labels_widget(): check binary exists
Diffstat (limited to 'perl-install/ugtk.pm')
-rw-r--r--perl-install/ugtk.pm1
1 files changed, 1 insertions, 0 deletions
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]);