help perl_checker (increase SNR)

46 files changed, 46 insertions, 2 deletions

diff --git a/lib/network/adsl.pm b/lib/network/adsl.pm
index e2ac90d..88f0571 100644
--- a/lib/network/adsl.pm
+++ b/lib/network/adsl.pm
@@ -1,5 +1,6 @@
 package network::adsl; # $Id: adsl.pm 219797 2007-05-25 15:39:46Z blino $
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use run_program;
 use network::tools;
diff --git a/lib/network/connection.pm b/lib/network/connection.pm
index 7f6c79f..5cab3ac 100644
--- a/lib/network/connection.pm
+++ b/lib/network/connection.pm
@@ -1,5 +1,6 @@
 package network::connection;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use network::vpn;
 
diff --git a/lib/network/connection/cable.pm b/lib/network/connection/cable.pm
index a81ae06..acc01f0 100644
--- a/lib/network/connection/cable.pm
+++ b/lib/network/connection/cable.pm
@@ -3,6 +3,7 @@ package network::connection::cable;
 use base qw(network::connection::ethernet);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use modules;
 use detect_devices;
diff --git a/lib/network/connection/cellular.pm b/lib/network/connection/cellular.pm
index 3084480..13b96c9 100644
--- a/lib/network/connection/cellular.pm
+++ b/lib/network/connection/cellular.pm
@@ -3,6 +3,7 @@ package network::connection::cellular;
 use base qw(network::connection::ppp);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 my $cellular_d = "/etc/sysconfig/network-scripts/cellular.d";
diff --git a/lib/network/connection/cellular_bluetooth.pm b/lib/network/connection/cellular_bluetooth.pm
index 5c99b63..0048ac7 100644
--- a/lib/network/connection/cellular_bluetooth.pm
+++ b/lib/network/connection/cellular_bluetooth.pm
@@ -3,6 +3,7 @@ package network::connection::cellular_bluetooth;
 use base qw(network::connection::cellular);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 my $rfcomm_dev_prefix = "/dev/rfcomm";
diff --git a/lib/network/connection/cellular_card.pm b/lib/network/connection/cellular_card.pm
index d879b19..a273dfd 100644
--- a/lib/network/connection/cellular_card.pm
+++ b/lib/network/connection/cellular_card.pm
@@ -3,6 +3,7 @@ package network::connection::cellular_card;
 use base qw(network::connection::cellular);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 my $wrong_pin_error = N_("Wrong PIN number format: it should be 4 digits.");
diff --git a/lib/network/connection/dvb.pm b/lib/network/connection/dvb.pm
index c5f8ff6..2882bae 100644
--- a/lib/network/connection/dvb.pm
+++ b/lib/network/connection/dvb.pm
@@ -3,6 +3,7 @@ package network::connection::dvb;
 use base qw(network::connection::ethernet);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use modules;
 
diff --git a/lib/network/connection/ethernet.pm b/lib/network/connection/ethernet.pm
index f33f7f1..a4023a1 100644
--- a/lib/network/connection/ethernet.pm
+++ b/lib/network/connection/ethernet.pm
@@ -3,6 +3,7 @@ package network::connection::ethernet; # $Id: ethernet.pm 147431 2007-03-21 17:0
 use base qw(network::connection);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use network::tools;
 
diff --git a/lib/network/connection/isdn.pm b/lib/network/connection/isdn.pm
index 7187aed..b4bb7b1 100644
--- a/lib/network/connection/isdn.pm
+++ b/lib/network/connection/isdn.pm
@@ -3,6 +3,7 @@ package network::connection::isdn;
 use base qw(network::connection);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 sub get_type_name { N("ISDN") }
diff --git a/lib/network/connection/pots.pm b/lib/network/connection/pots.pm
index 22299f6..507b0bc 100644
--- a/lib/network/connection/pots.pm
+++ b/lib/network/connection/pots.pm
@@ -3,6 +3,7 @@ package network::connection::pots;
 use base qw(network::connection::ppp);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 sub get_type_name {
diff --git a/lib/network/connection/ppp.pm b/lib/network/connection/ppp.pm
index 277971f..9df0654 100644
--- a/lib/network/connection/ppp.pm
+++ b/lib/network/connection/ppp.pm
@@ -1,6 +1,7 @@
 package network::connection::ppp;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 use base qw(network::connection);
diff --git a/lib/network/connection/providers/cellular.pm b/lib/network/connection/providers/cellular.pm
index 79f757c..13854d9 100644
--- a/lib/network/connection/providers/cellular.pm
+++ b/lib/network/connection/providers/cellular.pm
@@ -1,5 +1,6 @@
 package network::connection::providers::cellular;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use utf8;
 
diff --git a/lib/network/connection/providers/cellular_extra.pm b/lib/network/connection/providers/cellular_extra.pm
index 4039afa..7be8e7c 100644
--- a/lib/network/connection/providers/cellular_extra.pm
+++ b/lib/network/connection/providers/cellular_extra.pm
@@ -1,5 +1,6 @@
 package network::connection::providers::cellular_extra;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use utf8;
 
diff --git a/lib/network/connection/providers/xdsl.pm b/lib/network/connection/providers/xdsl.pm
index 52b1b58..5d9d5ea 100644
--- a/lib/network/connection/providers/xdsl.pm
+++ b/lib/network/connection/providers/xdsl.pm
@@ -3,6 +3,7 @@ package network::connection::providers::xdsl; # $Id: xdsl.pm 59309 2006-09-01 12
 
 # This should probably be splitted out into ldetect-lst as some provider db
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use utf8;
 
diff --git a/lib/network/connection/wireless.pm b/lib/network/connection/wireless.pm
index fad011c..6267398 100644
--- a/lib/network/connection/wireless.pm
+++ b/lib/network/connection/wireless.pm
@@ -3,6 +3,7 @@ package network::connection::wireless;
 use base qw(network::connection::ethernet);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use log;
 use network::network;
diff --git a/lib/network/connection/xdsl.pm b/lib/network/connection/xdsl.pm
index e55dd24..e87e29b 100644
--- a/lib/network/connection/xdsl.pm
+++ b/lib/network/connection/xdsl.pm
@@ -3,6 +3,7 @@ package network::connection::xdsl;
 use base qw(network::connection::ppp);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 sub get_type_name() { N("DSL") }
diff --git a/lib/network/connection_manager.pm b/lib/network/connection_manager.pm
index e3f91bd..5cbe07e 100644
--- a/lib/network/connection_manager.pm
+++ b/lib/network/connection_manager.pm
@@ -2,6 +2,7 @@ package network::connection_manager;
 
 use strict;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use run_program;
 use detect_devices;
diff --git a/lib/network/dhcpd.pm b/lib/network/dhcpd.pm
index 8cf30d5..569e207 100644
--- a/lib/network/dhcpd.pm
+++ b/lib/network/dhcpd.pm
@@ -1,6 +1,7 @@
 package network::dhcpd;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 my $sysconf_dhcpd = "$::prefix/etc/sysconfig/dhcpd";
diff --git a/lib/network/drakconnect.pm b/lib/network/drakconnect.pm
index 4f68ff0..88b7848 100644
--- a/lib/network/drakconnect.pm
+++ b/lib/network/drakconnect.pm
@@ -1,5 +1,6 @@
 package network::drakconnect;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use network::network;
 
diff --git a/lib/network/drakconnect/delete.pm b/lib/network/drakconnect/delete.pm
index b8d0689..f4321a4 100644
--- a/lib/network/drakconnect/delete.pm
+++ b/lib/network/drakconnect/delete.pm
@@ -1,5 +1,6 @@
 package network::drakconnect::delete;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use wizards;
 use interactive;
diff --git a/lib/network/drakconnect/edit.pm b/lib/network/drakconnect/edit.pm
index 4e1983b..8132368 100644
--- a/lib/network/drakconnect/edit.pm
+++ b/lib/network/drakconnect/edit.pm
@@ -1,5 +1,6 @@
 package network::drakconnect::edit;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use ugtk2 qw(:create :dialogs :helpers :wrappers);
 use mygtk2 qw(gtknew);
 use common;
diff --git a/lib/network/drakconnect/global.pm b/lib/network/drakconnect/global.pm
index 59da73c..f7e1eff 100644
--- a/lib/network/drakconnect/global.pm
+++ b/lib/network/drakconnect/global.pm
@@ -1,5 +1,6 @@
 package network::drakconnect::global;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use ugtk2 qw(:create :dialogs :helpers :wrappers);
 use mygtk2 qw(gtknew);
 use common;
diff --git a/lib/network/drakfirewall.pm b/lib/network/drakfirewall.pm
index e679415..a5596f5 100644
--- a/lib/network/drakfirewall.pm
+++ b/lib/network/drakfirewall.pm
@@ -2,7 +2,7 @@ package network::drakfirewall; # $Id: drakfirewall.pm 268043 2010-04-30 13:29:37
 
 use strict;
 use diagnostics;
-
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use network::shorewall;
 use common;
 use network::nfs;
diff --git a/lib/network/drakroam.pm b/lib/network/drakroam.pm
index f6c28d0..8befff6 100755
--- a/lib/network/drakroam.pm
+++ b/lib/network/drakroam.pm
@@ -7,6 +7,7 @@ package network::drakroam;
 
 use strict;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use interactive;
 use mygtk2;
diff --git a/lib/network/drakvpn.pm b/lib/network/drakvpn.pm
index c68127d..1ffafda 100644
--- a/lib/network/drakvpn.pm
+++ b/lib/network/drakvpn.pm
@@ -15,6 +15,7 @@ network::drakvpn - Interactive VPN configuration
 =cut
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 use network::vpn;
diff --git a/lib/network/ifw.pm b/lib/network/ifw.pm
index 94ea851..4447808 100644
--- a/lib/network/ifw.pm
+++ b/lib/network/ifw.pm
@@ -1,6 +1,7 @@
 package network::ifw;
 
 use Socket;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 our @ISA = qw(dbus_object);
diff --git a/lib/network/ipsec.pm b/lib/network/ipsec.pm
index bf30b3d..cbc7d8c 100644
--- a/lib/network/ipsec.pm
+++ b/lib/network/ipsec.pm
@@ -1,7 +1,7 @@
 package network::ipsec;
 
 
-
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use detect_devices;
 use run_program;
 use common;
diff --git a/lib/network/modem.pm b/lib/network/modem.pm
index b7fbc85..0aa4b6a 100644
--- a/lib/network/modem.pm
+++ b/lib/network/modem.pm
@@ -1,6 +1,7 @@
 package network::modem;	# $Id: modem.pm 243081 2008-06-25 15:44:25Z blino $
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use any;
 use modules;
diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm
index c6b60d8..b06bbe3 100644
--- a/lib/network/monitor.pm
+++ b/lib/network/monitor.pm
@@ -1,5 +1,6 @@
 package network::monitor;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use dbus_object;
 
diff --git a/lib/network/ndiswrapper.pm b/lib/network/ndiswrapper.pm
index 136f206..efcc62f 100644
--- a/lib/network/ndiswrapper.pm
+++ b/lib/network/ndiswrapper.pm
@@ -1,6 +1,7 @@
 package network::ndiswrapper;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use modules;
 use detect_devices;
diff --git a/lib/network/net_applet/ifw.pm b/lib/network/net_applet/ifw.pm
index 22fc432..217ca2a 100644
--- a/lib/network/net_applet/ifw.pm
+++ b/lib/network/net_applet/ifw.pm
@@ -1,5 +1,6 @@
 package network::net_applet::ifw;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use network::ifw;
 use ugtk2 qw(:create :helpers :wrappers :dialogs);
diff --git a/lib/network/netcenter.pm b/lib/network/netcenter.pm
index fa65a33..cb6d1bf 100755
--- a/lib/network/netcenter.pm
+++ b/lib/network/netcenter.pm
@@ -5,6 +5,7 @@
 package network::netcenter;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use mygtk2;
 use ugtk2 qw(:create :helpers :wrappers);
diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm
index 8f50630..dc36fcd 100644
--- a/lib/network/netconnect.pm
+++ b/lib/network/netconnect.pm
@@ -1,6 +1,7 @@
 package network::netconnect; # $Id: netconnect.pm 259351 2009-08-17 15:15:51Z tv $
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use log;
 use detect_devices;
diff --git a/lib/network/network.pm b/lib/network/network.pm
index 0b3439e..e62ea5e 100644
--- a/lib/network/network.pm
+++ b/lib/network/network.pm
@@ -6,6 +6,7 @@ package network::network; # $Id: network.pm 268044 2010-04-30 13:31:34Z blino $w
 
 use strict;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use c;
 use lang;
 use Socket;
diff --git a/lib/network/nfs.pm b/lib/network/nfs.pm
index 177c70f..32ee90c 100644
--- a/lib/network/nfs.pm
+++ b/lib/network/nfs.pm
@@ -1,6 +1,7 @@
 package network::nfs;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 sub read_nfs_ports() {
diff --git a/lib/network/pxe.pm b/lib/network/pxe.pm
index 2fecb8f..6b65351 100644
--- a/lib/network/pxe.pm
+++ b/lib/network/pxe.pm
@@ -1,5 +1,6 @@
 package network::pxe;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use network::tools;
 use Xconfig::resolution_and_depth;
diff --git a/lib/network/rfswitch.pm b/lib/network/rfswitch.pm
index 4617990..f73f718 100644
--- a/lib/network/rfswitch.pm
+++ b/lib/network/rfswitch.pm
@@ -2,6 +2,7 @@ package network::rfswitch;
 
 use strict;
 use MDK::Common;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use detect_devices;
 
 my $conf_file = "/etc/modprobe.d/rfswitch.conf";
diff --git a/lib/network/shorewall.pm b/lib/network/shorewall.pm
index 5ee8d38..0ae7b9e 100644
--- a/lib/network/shorewall.pm
+++ b/lib/network/shorewall.pm
@@ -1,5 +1,6 @@
 package network::shorewall; # $Id: shorewall.pm 254244 2009-03-18 22:54:32Z eugeni $
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use detect_devices;
 use network::network;
 use run_program;
diff --git a/lib/network/signal_strength.pm b/lib/network/signal_strength.pm
index 19e119c..0e69108 100644
--- a/lib/network/signal_strength.pm
+++ b/lib/network/signal_strength.pm
@@ -1,5 +1,6 @@
 package network::signal_strength;
 
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use ugtk2;
 
diff --git a/lib/network/squid.pm b/lib/network/squid.pm
index 4f99a8d..f79f555 100644
--- a/lib/network/squid.pm
+++ b/lib/network/squid.pm
@@ -1,6 +1,7 @@
 package network::squid;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 our $squid_conf_file = "$::prefix/etc/squid/squid.conf";
diff --git a/lib/network/test.pm b/lib/network/test.pm
index 0bd1231..94d8ed4 100644
--- a/lib/network/test.pm
+++ b/lib/network/test.pm
@@ -1,6 +1,7 @@
 package network::test;          # $Id: test.pm 219797 2007-05-25 15:39:46Z blino $
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use run_program;
 use Socket;
diff --git a/lib/network/thirdparty.pm b/lib/network/thirdparty.pm
index 7688fdd..5e461bd 100644
--- a/lib/network/thirdparty.pm
+++ b/lib/network/thirdparty.pm
@@ -1,6 +1,7 @@
 package network::thirdparty;
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use detect_devices;
 use run_program;
diff --git a/lib/network/tools.pm b/lib/network/tools.pm
index cdb556c..cd7b69d 100644
--- a/lib/network/tools.pm
+++ b/lib/network/tools.pm
@@ -1,6 +1,7 @@
 package network::tools; # $Id: tools.pm 253976 2009-03-13 10:57:55Z eugeni $
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 use run_program;
 use c;
diff --git a/lib/network/vpn.pm b/lib/network/vpn.pm
index 4a5afbc..21142c8 100644
--- a/lib/network/vpn.pm
+++ b/lib/network/vpn.pm
@@ -7,6 +7,7 @@ network::vpn - VPN connection abstract class
 =cut
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 my $vpn_d = "/etc/sysconfig/network-scripts/vpn.d";
diff --git a/lib/network/vpn/openvpn.pm b/lib/network/vpn/openvpn.pm
index 05f68f3..d295fce 100644
--- a/lib/network/vpn/openvpn.pm
+++ b/lib/network/vpn/openvpn.pm
@@ -3,6 +3,7 @@ package network::vpn::openvpn;
 use base qw(network::vpn);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 sub get_type { 'openvpn' }
diff --git a/lib/network/vpn/vpnc.pm b/lib/network/vpn/vpnc.pm
index c7a87c7..3dcb45e 100644
--- a/lib/network/vpn/vpnc.pm
+++ b/lib/network/vpn/vpnc.pm
@@ -3,6 +3,7 @@ package network::vpn::vpnc;
 use base qw(network::vpn);
 
 use strict;
+use lib qw(/usr/lib/libDrakX);   # helps perl_checker
 use common;
 
 sub get_type { 'vpnc' }