[libmoosex-has-sugar-perl] 14/120: Perltidy code

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit 1a977e300bfffc7edda2a7caaf10f9d71a18bdfc
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Sat Sep 21 05:06:16 2013 +1200

    Perltidy code
---
 merge_travis_yml.pl | 6 +++---
 sterilize_env.pl    | 7 ++++---
 sync_tree.pl        | 7 +------
 3 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/merge_travis_yml.pl b/merge_travis_yml.pl
index 624222e..fc33dca 100644
--- a/merge_travis_yml.pl
+++ b/merge_travis_yml.pl
@@ -6,7 +6,7 @@ use utf8;
 
 use Path::FindDev qw( find_dev );
 
-my $hashref  = {};
+my $hashref = {};
 
 my $template = find_dev('./')->child('.travis-template.yml');
 my $target   = find_dev('./')->child('.travis.yml');
@@ -14,7 +14,7 @@ my $target   = find_dev('./')->child('.travis.yml');
 if ( -f -e $template ) {
     require YAML::Loader;
     my $loader = YAML::Loader->new();
-    $hashref = $loader->load($template->slurp);
+    $hashref = $loader->load( $template->slurp );
 }
 
 if ( not exists $hashref->{language} ) {
@@ -28,4 +28,4 @@ use Data::Dump qw(pp);
 pp($hashref);
 require YAML::Dumper;
 my $dumper = YAML::Dumper->new();
-$target->spew($dumper->dump($hashref));
+$target->spew( $dumper->dump($hashref) );
diff --git a/sterilize_env.pl b/sterilize_env.pl
index ed4f37c..83d1b1b 100644
--- a/sterilize_env.pl
+++ b/sterilize_env.pl
@@ -9,8 +9,9 @@ if ( not exists $ENV{TRAVIS} ) {
 for my $i (@INC) {
     next if $i !~ /site/;
     next if $i eq '.';
-#    printf "%s\n", $i;
-    system('find',$i, '-type', 'f', '-delete');
-    system('find',$i, '-depth', '-type', 'd', '-delete' );
+
+    #    printf "%s\n", $i;
+    system( 'find', $i, '-type', 'f', '-delete' );
+    system( 'find', $i, '-depth', '-type', 'd', '-delete' );
 }
 
diff --git a/sync_tree.pl b/sync_tree.pl
index 6435944..542d325 100755
--- a/sync_tree.pl
+++ b/sync_tree.pl
@@ -19,11 +19,6 @@ if ( not -d -e $root->child($prefix) ) {
     git_subtree( 'add', '--prefix=' . $prefix, $travis, 'master' );
 }
 else {
-    git_subtree(
-        'pull', '-m',
-        'Synchronise git subtree maint-travis-ci',
-        '--prefix=' . $prefix,
-        $travis, 'master'
-    );
+    git_subtree( 'pull', '-m', 'Synchronise git subtree maint-travis-ci', '--prefix=' . $prefix, $travis, 'master' );
 }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git