diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 22:20:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 22:20:22 +0000 |
| commit | 22ad938758373ec4e2f8490d62f2cdc237d50d7c (patch) | |
| tree | 7848808920e41e4bbdee22867646139e7a907099 /perl-install/fs.pm | |
| parent | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (diff) | |
| download | drakx-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.pm | 4 |
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+//; |