From 061f6dddd67f9d8bd8344e2d003fadc4fb27a5c0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 10 Dec 2011 05:40:47 +0000
Subject: (Gtk2::Notify::Queue->show) prevent net_applet to crash on
 notifications without icons (mga#2876)

---
 perl-install/NEWS     | 2 ++
 perl-install/ugtk2.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index d7328018e..b1fe135c7 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- prevent net_applet to crash on notifications without icons (mga#2876)
+
 Version 13.71 - 04 December 2011
 
 - service_harddrake:
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 5199068e5..b36927411 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1606,7 +1606,7 @@ sub show {
     my ($self) = @_; # perl_checker: $self = Gtk2::Notify->new
     my $info = $self->{queue}[0];
     my $notification = Gtk2::Notify->new($info->{title}, $info->{message}, $self->{statusicon});
-    $notification->set_icon_from_pixbuf($info->{pixbuf});
+    $notification->set_icon_from_pixbuf($info->{pixbuf}) if $info->{pixbuf};
     $notification->set_urgency($info->{urgency}) if $info->{urgency};
     foreach my $a (@{$info->{actions} || []}) {
         $notification->add_action(
-- 
cgit v1.2.1