summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 22:20:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 22:20:22 +0000
commit22ad938758373ec4e2f8490d62f2cdc237d50d7c (patch)
tree7848808920e41e4bbdee22867646139e7a907099 /perl-install/fs.pm
parentbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (diff)
downloaddrakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.gz
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.bz2
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.xz
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.zip
- replace ... =~ 'foo' with ... =~ /foo/
- remove unneeded parentheses for things like ... if (...)
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 67a56c609..0c07e5d9a 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -338,7 +338,7 @@ sub mount_options_unpack {
my @unknown;
foreach (split(",", $packed_options)) {
if ($_ eq 'user') {
- $options{$_} = 1 foreach ('user', @$user_implies);
+ $options{$_} = 1 foreach 'user', @$user_implies;
} elsif (exists $non_defaults->{$_}) {
$options{$_} = 1;
} elsif ($defaults->{$_}) {
@@ -401,7 +401,7 @@ sub mount_options_help {
if ($v == 1) {
$s = $short{$s} || $s;
$option = exists $help{$s} && !$help{$s} ? $s : '';
- } elsif ($v !~ 'E0') {
+ } elsif ($v !~ /E0/) {
s/\\//g;
s/\s*"(.*?)"\s*/$1/g if s/^\.BR\s+//;
s/^\.B\s+//;