From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 22:20:22 +0000
Subject: - replace ... =~ 'foo'  with  ... =~ /foo/ - remove unneeded
 parentheses for things like ... if (...)

---
 perl-install/fs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/fs.pm')

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+//;
-- 
cgit v1.2.1