From 1d2aeea6110b4e3b8db35e33f5543153a8b41bc6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 17 Sep 2008 09:45:27 +0000
Subject: indent and space fixes

---
 perl-install/pkgs.pm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 0fa3b159c..4596e94bc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -99,16 +99,16 @@ sub read_rpmsrate {
 	my @flags = @{$flags->{$_}};
 	my $p;
 	if ($::isInstall) {
-	$p = install::pkgs::packageByName($packages, $_)  or next;
-	if (my @l = map { /locales-(.*)/ ? qq(LOCALES"$1") : () } $p->requires_nosense) {
-	    if (@l > 1) {
-		log::l("ERROR: package $_ is requiring many locales") if $_ ne 'lsb';
-	    } else {
-		push @flags, @l;
-	    }	    
-	}
+            $p = install::pkgs::packageByName($packages, $_) or next;
+            if (my @l = map { /locales-(.*)/ ? qq(LOCALES"$1") : () } $p->requires_nosense) {
+                if (@l > 1) {
+                    log::l("ERROR: package $_ is requiring many locales") if $_ ne 'lsb';
+                } else {
+                    push @flags, @l;
+                }
+            }
 	}
-	
+
 	@flags = map {
 	    my ($user_flags, $known_flags) = partition { /^!?CAT_/ } split('\|\|', $_);
 	    my $ok = find {
@@ -130,10 +130,10 @@ sub read_rpmsrate {
 	} @flags;
 
 	if ($::isInstall) {
-	$p->set_rate($rates->{$_});
-	$p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags);
+            $p->set_rate($rates->{$_});
+            $p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags);
 	} else {
-         $flags->{$_} = \@flags;
+            $flags->{$_} = \@flags;
 	}
     }
     push @{$packages->{needToCopy} ||= []}, @$need_to_copy if ref($packages);
-- 
cgit v1.2.1