From 094d572ae5dc1394763dfe8465dce2bbb1572e6e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 18 Mar 2005 13:32:45 +0000
Subject: perl_checker/include fixes

---
 perl-install/standalone/drakroam | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index 25b4ef0a5..4afbe614d 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -23,14 +23,15 @@
 # - handle keys (can key file be named after ESSID?)
 # - should files be named as MAC or as essid:ESSID ?
 
+use strict;
 use lib qw(/usr/lib/libDrakX);
 
 use standalone;
 use common;
 use run_program;
 
-require ugtk2;
-ugtk2->import(qw(:wrappers :create));
+use Glib qw(TRUE FALSE);
+use ugtk2 qw(:create :helpers :wrappers);
 use Gtk2::SimpleList;
 
 require_root_capability();
@@ -57,7 +58,7 @@ my %available_roaming_daemons = (
 				      config_location => '/etc/wlandetect.conf',
 				      binary => '/usr/sbin/wlandetect',
 				      start_options => sub {
-					  my ($interval, $device) = @_;
+					  my ($interval, undef) = @_;
 					  "-d -t $interval";
 				      },
 				      read_config => sub {
@@ -76,7 +77,7 @@ my %available_roaming_daemons = (
 						  &AddNet($essid, $mode, $channel, $dhcp, $key);
 					      }
 					      else { die "Line $::i of configuration file is not parseable.\n" }
-					  } cat_($config)
+					  } cat_($config);
 				      },
 				      write_config => sub {
 					  my ($config) = @_;
@@ -365,7 +366,7 @@ sub ConnectNow {
 		push @command, "$IFConfig $device up; $DHClient $device";
 	}
 	else {
-		push @command, "$IFUp $device"
+		push @command, "$IFUp $device";
 	}
 	my $ToBash = join("", @command);
 	print "Sending $ToBash\n" if $::testing;
-- 
cgit v1.2.1