From e140a5374ee097029484b075b7120cef8f5e4aac Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 20 Jan 2014 02:44:55 +0100
Subject: fix unused variable

---
 perl-install/diskdrake/hd_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index c95c465d8..c2758a639 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -50,7 +50,7 @@ sub load_theme() {
     -r $css or $css = dirname(__FILE__) . "/../share/diskdrake.css";
     my $pl = Gtk3::CssProvider->new;
     $pl->load_from_path($css);
-    my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION);
+    Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION);
 }
 
 sub main {
-- 
cgit v1.2.1