From: Frank Lichtenheld <djpig@debian.org>
Date: Sat, 16 Feb 2008 22:29:49 +0000 (+0100)
Subject: Fix some whitespace oddities in the new modules
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=831b0efc92873d740ca9fb9bc0eaa9eb0377df5f;p=dpkg

Fix some whitespace oddities in the new modules
---

diff --git a/scripts/Dpkg/IPC.pm b/scripts/Dpkg/IPC.pm
index e4889ba6..5e96d599 100644
--- a/scripts/Dpkg/IPC.pm
+++ b/scripts/Dpkg/IPC.pm
@@ -193,7 +193,7 @@ sub fork_and_exec {
 	    close($opts{"to_handle"}); # has been duped, can be closed
 	}
 	# Close some inherited filehandles
-        close($_) foreach (@{$opts{"close_in_child"}});
+	close($_) foreach (@{$opts{"close_in_child"}});
 	# Execute the program
 	exec({ $prog[0] } @prog) or syserr(_g("exec %s"), "@prog");
     }
diff --git a/scripts/Dpkg/Source/Archiver.pm b/scripts/Dpkg/Source/Archiver.pm
index dd0abcbf..6a05c97e 100644
--- a/scripts/Dpkg/Source/Archiver.pm
+++ b/scripts/Dpkg/Source/Archiver.pm
@@ -62,7 +62,7 @@ sub use_compression {
 sub set_compression_level {
     my ($self, $level) = @_;
     error(_g("%s is not a compression level"), $level)
-            unless $level =~ /^([1-9]|fast|best)$/;
+	    unless $level =~ /^([1-9]|fast|best)$/;
     $self->{"compression_level"} = $level;
 }
 
@@ -114,7 +114,7 @@ sub _add_entry {
     my ($self, $file) = @_;
     error("call create first") unless $self->{"tar_input"};
     $file = $2 if ($file =~ /^\Q$self->{'cwd'}\E\/(.+)$/); # Relative names
-    print { $self->{'tar_input'} } "$file\0" ||
+    print({ $self->{'tar_input'} } "$file\0") ||
 	    syserr(_g("write on tar input"));
 }
 
@@ -191,12 +191,12 @@ sub extract {
     #
     $mode = 0777 & ~umask;
     for ($i = 0; $i < 9; $i += 3) {
-        $modes_set .= ',' if $i;
-        $modes_set .= qw(u g o)[$i/3];
-        for ($j = 0; $j < 3; $j++) {
-            $modes_set .= $mode & (0400 >> ($i+$j)) ? '+' : '-';
-            $modes_set .= qw(r w X)[$j];
-        }
+	$modes_set .= ',' if $i;
+	$modes_set .= qw(u g o)[$i/3];
+	for ($j = 0; $j < 3; $j++) {
+	    $modes_set .= $mode & (0400 >> ($i+$j)) ? '+' : '-';
+	    $modes_set .= qw(r w X)[$j];
+	}
     }
     system('chmod', '-R', $modes_set, '--', $tmp);
     subprocerr("chmod -R $modes_set $tmp") if $?;
diff --git a/scripts/Dpkg/Source/Compressor.pm b/scripts/Dpkg/Source/Compressor.pm
index f31c5c45..78e9f00f 100644
--- a/scripts/Dpkg/Source/Compressor.pm
+++ b/scripts/Dpkg/Source/Compressor.pm
@@ -65,7 +65,7 @@ sub set_compression {
 sub set_compression_level {
     my ($self, $level) = @_;
     error(_g("%s is not a compression level"), $level)
-            unless $level =~ /^([1-9]|fast|best)$/;
+	    unless $level =~ /^([1-9]|fast|best)$/;
     $self->{"compression_level"} = $level;
 }