summaryrefslogtreecommitdiffstats
path: root/perl-install/security/msec.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 13:49:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 13:49:06 +0000
commit195f44c2da47b9f0df0461b593935d89619a5a0e (patch)
tree54fda57efd461170bfb2d33977b1747e27a1b7cd /perl-install/security/msec.pm
parent2db19d156087ccce3037b2bd2da1042280e17904 (diff)
downloaddrakx-backup-do-not-use-195f44c2da47b9f0df0461b593935d89619a5a0e.tar
drakx-backup-do-not-use-195f44c2da47b9f0df0461b593935d89619a5a0e.tar.gz
drakx-backup-do-not-use-195f44c2da47b9f0df0461b593935d89619a5a0e.tar.bz2
drakx-backup-do-not-use-195f44c2da47b9f0df0461b593935d89619a5a0e.tar.xz
drakx-backup-do-not-use-195f44c2da47b9f0df0461b593935d89619a5a0e.zip
- use "foreach" instead of "for" in list context
- use "for" instead of "foreach" when used a la C
Diffstat (limited to 'perl-install/security/msec.pm')
-rw-r--r--perl-install/security/msec.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 76142da0d..4392b0038 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -80,7 +80,7 @@ sub get_default {
elsif ($category eq "checks") { $default_file = "$::prefix/var/lib/msec/security.conf"; }
open F, $default_file;
- while(<F>) {
+ while (<F>) {
if ($category eq 'functions') {
if ($_ =~ /^$option/) { (undef, $default_value) = split(/ /, $_) }
} elsif ($category eq 'checks') {
@@ -102,7 +102,7 @@ sub get_value {
if (-e $item_file) {
open F, $item_file;
- while(<F>) {
+ while (<F>) {
if ($_ =~ /^$item/) {
if ($category eq 'functions') {
my $i = $_;