From 6f47788b87dc00a33e3addb3b2c103943fa88967 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 27 Apr 2013 10:09:42 +0000
Subject: help perl_checker (increase SNR)

---
 lib/network/connection/cable.pm                    | 1 +
 lib/network/connection/cellular.pm                 | 1 +
 lib/network/connection/cellular_bluetooth.pm       | 1 +
 lib/network/connection/cellular_card.pm            | 1 +
 lib/network/connection/dvb.pm                      | 1 +
 lib/network/connection/ethernet.pm                 | 1 +
 lib/network/connection/isdn.pm                     | 1 +
 lib/network/connection/pots.pm                     | 1 +
 lib/network/connection/ppp.pm                      | 1 +
 lib/network/connection/providers/cellular.pm       | 1 +
 lib/network/connection/providers/cellular_extra.pm | 1 +
 lib/network/connection/providers/xdsl.pm           | 1 +
 lib/network/connection/wireless.pm                 | 1 +
 lib/network/connection/xdsl.pm                     | 1 +
 14 files changed, 14 insertions(+)

(limited to 'lib/network/connection')

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") }
-- 
cgit v1.2.1