From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 22:20:22 +0000 Subject: - replace ... =~ 'foo' with ... =~ /foo/ - remove unneeded parentheses for things like ... if (...) --- perl-install/security/main.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/security/main.pm') diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm index 40dae3daf..ba15e01c2 100644 --- a/perl-install/security/main.pm +++ b/perl-install/security/main.pm @@ -57,7 +57,7 @@ sub basic_seclevel_option { my @sec_levels = $msec->get_seclevel_list(); my $current_level = $msec->get_secure_level(); - push(@sec_levels, $current_level) if ($current_level eq "Dangerous" || $current_level eq "Poor"); + push(@sec_levels, $current_level) if $current_level eq "Dangerous" || $current_level eq "Poor"; $$seclevel_entry->entry->set_editable(0); $$seclevel_entry->set_popdown_strings(@sec_levels); -- cgit v1.2.1