Fix some whitespace oddities in the new modules

diff --git a/scripts/Dpkg/IPC.pm b/scripts/Dpkg/IPC.pm
index e4889ba64eeaa15e70f1145c2a6729d1781069ea..5e96d5995db9b70578c28e0955d66fe6e09d3894 100644 (file)
--- 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 dd0abcbfe4f736b6a4510664f35c299847d95ace..6a05c97e29305031298e9cb638ab5c97a3aefc02 100644 (file)
--- 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 f31c5c45d0d99b9440760ba0f36f460ba4e3f7de..78e9f00f05c819622a74c147a988fbef5235eecc 100644 (file)
--- 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;
 }