From e42eb2d8daf2e4cf8a0e79f43913060cd597bc57 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 2 Nov 2016 16:43:53 +0100
Subject: silent perl_checker warnings

---
 control-center | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/control-center b/control-center
index deefaacf..4b42e6e6 100755
--- a/control-center
+++ b/control-center
@@ -32,6 +32,7 @@ use detect_devices;
 use lang;
 use feature 'state';
 use POSIX qw(:signal_h :sys_utsname_h :math_h :sys_wait_h :unistd_h);
+use Glib;
 use Glib::Object::Introspection;
 
 POSIX::sigprocmask(SIG_BLOCK, POSIX::SigSet->new(SIGCHLD)); 
@@ -993,7 +994,7 @@ foreach (@tree) {
 # handle app clicks:
 $view->signal_connect('decide-policy' => 
                         sub {
-                            my (undef, $decision, $type) = @_;
+                            my (undef, $decision, $_type) = @_;
                             my $res = 'true';
                             my $request = $decision->get_request;
 
@@ -1368,7 +1369,7 @@ sub new_dialog {
     $dialog->set_position('center-on-parent');
     $dialog->set_title($title);
     $dialog->get_action_area->pack_start(gtkadd(Gtk3::HButtonBox->new,
-                                            gtksignal_connect(Gtk3::Button->new(N("Close")), clicked => sub { $dialog->destroy })
+                                            gtksignal_connect(Gtk3::Button->new_with_label(N("Close")), clicked => sub { $dialog->destroy })
                                             ),
                                      0,0,0) unless $o_no_button;
     gtkset_modal($dialog, 1);
-- 
cgit v1.2.1