diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-02 14:56:28 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-02 14:56:28 +0000 |
| commit | 6c6c9fc15435c3d28ec3cc4bf38aedb7aff70976 (patch) | |
| tree | 04200ddfe87e7cb6cd073422506ebd4814a59cba /perl-install | |
| parent | eebddd94ac89cb855384f49724d8cf3df4777b86 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/ugtk.pm | 1 |
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]); |