silent perl_checker warnings

1 files 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);