summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-10 13:25:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-10 13:25:41 +0000
commitd2433a73d2802850ba172e0afd7f7d69d31b96a8 (patch)
tree1531842601eab935188e0856ea4011191db75b90 /perl-install/network/tools.pm
parente3cb98606052e9b30b047cfaeecca48d0f248590 (diff)
downloaddrakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar.gz
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar.bz2
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar.xz
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.zip
perl_checker fixes
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index b654e87f1..489e0d966 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -35,7 +35,7 @@ sub write_secret_backend {
sub unquotify {
my ($word) = @_;
- ($a, $b, $c) = $$word =~ /"(.*)"|'(.*)'|(.*)/;
+ my ($a, $b, $c) = $$word =~ /"(.*)"|'(.*)'|(.*)/;
$$word = $a ? $a : $b ? $b : $c;
}
@@ -63,7 +63,7 @@ sub passwd_by_login {
unquotify \$login;
my $secret = read_secret_backend();
foreach (@$secret) {
- return $_->{passwd} if ($_->{login} eq $login);
+ return $_->{passwd} if $_->{login} eq $login;
}
}