help perl_checker (increase SNR)

14 files changed, 14 insertions, 0 deletions

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") }