--- a/send-config.pl	Thu Jul 07 10:11:36 2011 +0200
+++ b/send-config.pl	Thu Jul 07 10:13:06 2011 +0200
@@ -65,14 +65,16 @@
 
     # create remote destination directory
     my $ssh_cmd_args = {
-	    user => $username,
-	    host => $dest,
-	    command => 'mkdir',
-	    args => [ '-m 0700', "-p $dest_path" ],
+        user    => $username,
+        host    => $dest,
+        command => 'mkdir',
+        args    => [ '-m 0700', "-p $dest_path" ],
     };
     ssh_cmd $ssh_cmd_args unless $opt_dry_run;
 
-    debug("PROG ssh command: ssh $username\@$dest $ssh_cmd_args->{command} ", join ' ', @{$ssh_cmd_args->{args}}) if $opt_debug;
+    debug( "PROG ssh command: ssh $username\@$dest $ssh_cmd_args->{command} ",
+        join ' ', @{ $ssh_cmd_args->{args} } )
+      if $opt_debug;
 
     rsync( $username, $dest, $dest_path, $stamp );
 
@@ -147,7 +149,7 @@
         open( STDERR, ">&TMP" ) or die "$!";
         open( STDOUT, ">/dev/null" ) unless $opt_verbose;
         exec @cmd;
-	warn "Failed to exec '", join ' ', @cmd, "': $!\n";
+        warn "Failed to exec '", join ' ', @cmd, "': $!\n";
     }
     else {
         waitpid $pid, 0;
@@ -162,9 +164,9 @@
         unlink "/tmp/$ME.$$";
 
         while (<TMP>) {
-		chomp;
-                push @status, "[WARNING] $_"
-                  unless $opt_keepgoing and !$opt_dry_run;
+            chomp;
+            push @status, "[WARNING] $_"
+              unless $opt_keepgoing and !$opt_dry_run;
         }
         close(TMP);
     }