Permalink
Browse files

Perltidy code

  • Loading branch information...
1 parent 3c5ecaf commit 1a977e300bfffc7edda2a7caaf10f9d71a18bdfc @kentfredric kentfredric committed Sep 20, 2013
Showing with 8 additions and 12 deletions.
  1. +3 −3 merge_travis_yml.pl
  2. +4 −3 sterilize_env.pl
  3. +1 −6 sync_tree.pl
View
6 merge_travis_yml.pl
@@ -6,15 +6,15 @@
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');
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 @@
pp($hashref);
require YAML::Dumper;
my $dumper = YAML::Dumper->new();
-$target->spew($dumper->dump($hashref));
+$target->spew( $dumper->dump($hashref) );
View
7 sterilize_env.pl
@@ -9,8 +9,9 @@
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' );
}
View
7 sync_tree.pl
@@ -19,11 +19,6 @@ sub git_subtree {
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' );
}

0 comments on commit 1a977e3

Please sign in to comment.