Mercurial > hg > chronicle
diff bin/chronicle-spooler @ 198:889827a88e34
perltidy
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Mon, 14 Apr 2008 18:55:20 +0100 |
parents | 4004fa368f64 |
children | 967ecb541df9 |
line wrap: on
line diff
--- a/bin/chronicle-spooler Mon Apr 14 18:54:40 2008 +0100 +++ b/bin/chronicle-spooler Mon Apr 14 18:55:20 2008 +0100 @@ -429,7 +429,7 @@ # OK we got a header - is it current / past? # my $today = time; - if ( !defined( $today ) ) + if ( !defined($today) ) { print "FAILED TO FIND TODAY\n"; return 0; @@ -439,7 +439,7 @@ # Date of entry # my $ent = str2time($header); - if ( !defined( $ent ) ) + if ( !defined($ent) ) { print "FAILED TO PARSE: '$header'\n"; return 0; @@ -498,8 +498,7 @@ # # Moving # - File::Copy::move( $file, - $CONFIG{ 'live-dir' } . "/" . $base ); + File::Copy::move( $file, $CONFIG{ 'live-dir' } . "/" . $base ); } else {