From bb6339bcba679c1782a6f5c07c5d7d21a61f4ec0 Mon Sep 17 00:00:00 2001
From: Flavio Poletti <flavio@polettix.it>
Date: Thu, 17 Mar 2011 16:56:46 +0100
Subject: [PATCH] perltidy

---
 remote | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/remote b/remote
index f62e311..38bc267 100755
--- a/remote
+++ b/remote
@@ -68,14 +68,14 @@ if ($config{roottar}) {
    binmode STDOUT;
    print {*STDOUT} $root_tar->get_content();
    exit 0;
-}
+} ## end if ($config{roottar})
 
 if ($config{heretar}) {
    my ($here_tar) = $tar->get_files('here.tar');
    binmode STDOUT;
    print {*STDOUT} $here_tar->get_content();
    exit 0;
-}
+} ## end if ($config{heretar})
 
 if ($config{filelist}) {
    my $root_tar = get_sub_tar($tar, 'root.tar');
@@ -83,7 +83,7 @@ if ($config{filelist}) {
    my $here_tar = get_sub_tar($tar, 'here.tar');
    print "here $_\n" for $here_tar->list_files();
    exit 0;
-}
+} ## end if ($config{filelist})
 
 my %script_config = (%default_config, get_config($tar));
 if ($config{show}) {
@@ -136,18 +136,17 @@ carp $EVAL_ERROR if $EVAL_ERROR;
 # Get back so that cleanup can successfully happen, if requested
 chdir '..' if defined $tempdir;
 
-
 sub get_sub_tar {
    my ($tar, $filename) = @_;
    my ($file) = $tar->get_files($filename);
    my $contents = $file->get_content();
    open my $fh, '<', \$contents
-      or die "open() on internal variable: $OS_ERROR";
+     or die "open() on internal variable: $OS_ERROR";
 
    my $subtar = $TAR_PACKAGE->new();
    $subtar->read($fh);
    return $subtar;
-}
+} ## end sub get_sub_tar
 
 sub execute_deploy_programs {
    my @deploy_programs = @{$config{deploy} || []};
-- 
2.11.4.GIT