...
| Code Block | ||||
|---|---|---|---|---|
| ||||
sub count_virtual_users {
my $result = 0;
local $/ = ":";
open( PASSWD, "<", "/etc/passwd");
while (<PASSWD>) {
@items = split "\n";
foreach (@items) {
if ($_ eq "/usr/bin/false") {
$result++;
}
}
}
$result;
}
|
Exceptions
DCL02-PL-EX0: The following global variables may be modified without being declared local:
...
| [CPAN] | Elliot Shank, Perl-Critic-1.116 Variables::RequireLocalizedPunctuationVars |
| [Wall 2011] | perlfunc, perlvar |
...