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/printer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index df989355b..11f451442 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -629,7 +629,7 @@ sub add_spooler_to_security_level {
 sub files_exist {
     my @files = @_;
     foreach my $file (@files) {
-	   return 0 if (! -f "$prefix$file"),
+	   return 0 if ! -f "$prefix$file";
     }
     return 1;
 }
-- 
cgit v1.2.1