diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-10 13:25:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-10 13:25:41 +0000 |
| commit | d2433a73d2802850ba172e0afd7f7d69d31b96a8 (patch) | |
| tree | 1531842601eab935188e0856ea4011191db75b90 /perl-install/network/tools.pm | |
| parent | e3cb98606052e9b30b047cfaeecca48d0f248590 (diff) | |
| download | drakx-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.pm | 4 |
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; } } |