perltidy

Author: oalders

t/static-files.t

@@ -14,21 +14,26 @@ use Digest::SHA ();
 ## regenerate with: perl t/static-files.t --regen
 
 for my $arg (@ARGV) {
- if ($arg eq '--regen') {
+ if ( $arg eq '--regen' ) {
  my %sha;
 
  require File::Find;
- File::Find::find({
- no_chdir => 1,
- wanted => sub {
- return
- if -d;
- return
- if m{\/\.};
+ File::Find::find(
+ {
+ no_chdir => 1,
+ wanted => sub {
+ return
+ if -d;
+ return
+ if m{\/\.};
 
- $sha{$_} = Digest::SHA->new('sha1')->addfile( $_, 'b' )->hexdigest;
+ $sha{$_} = Digest::SHA->new('sha1')->addfile( $_, 'b' )
+ ->hexdigest;
+ },
  },
- }, 'root/static/icons', 'root/static/images');
+ 'root/static/icons',
+ 'root/static/images'
+ );
 
  my $script = $0;
  $script = "./$script"
@@ -37,9 +42,9 @@ for my $arg (@ARGV) {
  open my $fh, '+<', $script
  or die;
 
- while (my $line = <$fh>) {
+ while ( my $line = <$fh> ) {
  chomp $line;
- if ($line eq '__DATA__') {
+ if ( $line eq '__DATA__' ) {
  truncate $fh, tell $fh;
  for my $file ( sort keys %sha ) {
  print $fh "$sha{$file} $file\n";