summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-10-20 16:13:30 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-10-20 16:13:30 +0000
commita24d827b9dbc8390f710771bd948342cda147489 (patch)
tree89234bb2962f2064b218a10afc73b32907911da1
parentd88811a4cc1a8b7f6d5d969750f49f79990ebfcc (diff)
downloaddrakx-backup-do-not-use-a24d827b9dbc8390f710771bd948342cda147489.tar
drakx-backup-do-not-use-a24d827b9dbc8390f710771bd948342cda147489.tar.gz
drakx-backup-do-not-use-a24d827b9dbc8390f710771bd948342cda147489.tar.bz2
drakx-backup-do-not-use-a24d827b9dbc8390f710771bd948342cda147489.tar.xz
drakx-backup-do-not-use-a24d827b9dbc8390f710771bd948342cda147489.zip
old perl_checker compliance
-rw-r--r--perl-install/printer/detect.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index fcb8316dd..9ae9259d6 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -398,7 +398,7 @@ sub getIPsInLocalNetworks() {
# Now find all addresses in the local networks which we will investigate
my @addresses;
- foreach $dev (keys %{$local_nets}) {
+ foreach my $dev (keys %{$local_nets}) {
my $ip = $local_nets->{$dev}{ip};
my $bcast = $local_nets->{$dev}{bcast};
my $mask = $local_nets->{$dev}{mask};