From 47b6beb04513eb619454fb6cae2fb7470f699996 Mon Sep 17 00:00:00 2001 From: Stephen Hemminger Date: Tue, 3 Mar 2009 14:01:32 -0800 Subject: Fix perlcritic warnings Use of global loop variable, and open syntax. --- scripts/system/vyatta_update_login.pl | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'scripts') diff --git a/scripts/system/vyatta_update_login.pl b/scripts/system/vyatta_update_login.pl index eb7baeee..a28224f8 100755 --- a/scripts/system/vyatta_update_login.pl +++ b/scripts/system/vyatta_update_login.pl @@ -203,7 +203,7 @@ if ( scalar(@tacacs_params) > 0 ) { $accountstr = $sessionstr = $authstr; # can be multiple servers for auth and session - foreach $ip (@servers) { + foreach my $ip (@servers) { $authstr .= "server=$ip "; $sessionstr .= "server=$ip "; } @@ -231,18 +231,17 @@ my $PAM_RAD_BEGIN = '# BEGIN Vyatta Radius servers'; my $PAM_RAD_END = '# END Vyatta Radius servers'; sub is_pam_radius_present { - if ( !open( AUTH, '/etc/pam.d/common-auth' ) ) { - print STDERR "Cannot open /etc/pam.d/common-auth\n"; - exit 1; - } - my $present = 0; - while () { + open( my $auth , '<' , '/etc/pam.d/common-auth' ) + or die "Cannot open /etc/pam.d/common-auth\n"; + + my $present; + while (<$auth>) { if (/\ssufficient\spam_radius_auth\.so$/) { $present = 1; last; } } - close AUTH; + close $auth; return $present; } -- cgit v1.2.3