From d2433a73d2802850ba172e0afd7f7d69d31b96a8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 10 Dec 2002 13:25:41 +0000
Subject: perl_checker fixes

---
 perl-install/network/tools.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/network/tools.pm')

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