From e80d8aea22eb4bf86af2679f4f984da7277eee53 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 06:12:07 +0000
Subject: make perl_checker happy

---
 perl-install/standalone/drakboot   |  2 +-
 perl-install/standalone/drakbug    |  6 +++---
 perl-install/standalone/net_applet | 10 +++++-----
 3 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 677a25ee7..5c3dac568 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -119,7 +119,7 @@ sub splash_choice() {
 		 silent => N("Silent"),
 		);
     my $mode_combo = Gtk2::ComboBox->new_with_strings([ values %modes  ], $modes{$theme->{enabled} ? $cmdline =~ /\bsplash=silent\b/ ? 'silent' : 'verbose' : 'text'});
-    $mode_combo->entry->signal_connect( changed => sub {
+    $mode_combo->entry->signal_connect(changed => sub {
 					    $theme->{enabled} = $mode_combo->entry->get_text ne $modes{text};
 					    if ($boot_warn && !$bootsplash_available && $theme->{enabled}) {
 						if ($in->ask_yesorno(N("Warning"),
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 7cde789fa..6b8ae9141 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -30,7 +30,7 @@ use Config;
 my ($bugzilla, $wizard_name);
 my $prog;
 my $incident = 0;
-my ($bugdesc, $table, $comb_app, $com_app, $button_pkg, $package, $distrocode, $kernel);
+my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode);
 
 foreach (@ARGV) {
     next unless defined $_;
@@ -83,7 +83,7 @@ $table = create_packtable({ col_spacings => 5, row_spacings => 10 },
 			  gtkpack_(Gtk2::HBox->new(0,5),
 				   1, $com_app = gtkset_editable(Gtk2::Entry->new, 1), 
 				   0, $button_pkg = Gtk2::Button->new(N("Find Package")),
-				  )],
+				  ) ],
 			  [ Gtk2::Label->new(N("Package: ")), $package = Gtk2::Entry->new_with_text("...") ], # complain on gtk-perl@ml
 			  [ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new_with_text($kernel_release), 0) ]
                          );
@@ -129,7 +129,7 @@ gtkadd($window->{window},
 if (defined $prog) {
     update_app($prog); 
     $comb_app->set_text($prog);
-};
+}
 $comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) });
 
 $button_pkg->signal_connect('clicked', sub { 
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 8c9d3ec24..28d7c8e11 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -112,7 +112,7 @@ my @attacks_queue;
 
 if ($enable_activefw) {
     $activefw = activefw->new(sub {
-        my ($con, $msg) = @_;
+        my ($_con, $msg) = @_;
         handle_attack($msg->get_args_list) if
           $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
           $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
@@ -159,7 +159,7 @@ sub netMonitor() {
     checkNetwork();
 }
 sub checkNetwork() {
-    my ($gw_intf, $is_up, $gw_address) = $watched_interface ?
+    my ($gw_intf, $_is_up, $gw_address) = $watched_interface ?
       ($watched_interface, network::tools::get_interface_status($watched_interface)) :
       network::tools::get_internet_connection($netc, $intf);
     go2State($gw_address ? 'connected' : $gw_intf ? 'disconnected' : 'notconfigured', $gw_intf);
@@ -234,7 +234,7 @@ sub mainQuit() {
      Glib::Source->remove($timeout) if $timeout;
      Gtk2->main_quit;
 }
-sub getAutoStart {
+sub getAutoStart() {
     my %p = getVarsFromSh($onstartupfile);
     return to_bool($p{AUTOSTART} ne 'FALSE');
 }
@@ -245,7 +245,7 @@ sub setAutoStart {
 );
 }
 
-sub get_unprocessed_attacks {
+sub get_unprocessed_attacks() {
     my @packets = $activefw->get_reports;
     while (my @attack = splice(@packets, 0, 9)) {
         handle_attack(@attack);
@@ -266,7 +266,7 @@ sub set_attack_verdict {
 
 sub ask_attack_verdict {
     my ($attack) = @_;
-    my ($seq, $timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @$attack;
+    my ($seq, $timestamp, $indev, $prefix, $_sensor, $protocol, $addr, $port, $icmp_type) = @$attack;
 
     unless ($interactive_cb->get_active) {
         #- let the daemon handle the blacklist policy in automatic mode
-- 
cgit v1.2.1