Mercurial > hg > chronicle
changeset 294:e8884c1ebc5f
perltidy
| author | Steve Kemp <steve@steve.org.uk> |
|---|---|
| date | Tue, 09 Dec 2008 18:59:42 +0000 |
| parents | e2a71248ae72 |
| children | d2ab0ff77660 |
| files | bin/chronicle |
| diffstat | 1 files changed, 11 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/bin/chronicle Tue Dec 09 18:59:31 2008 +0000 +++ b/bin/chronicle Tue Dec 09 18:59:42 2008 +0000 @@ -554,8 +554,8 @@ "comment-days=s", \$CONFIG{ 'comment-days' }, # sorting - "recent-tags-first", \$CONFIG{'recent-tags-first'}, - "recent-dates-first", \$CONFIG{'recent-dates-first'}, + "recent-tags-first", \$CONFIG{ 'recent-tags-first' }, + "recent-dates-first", \$CONFIG{ 'recent-dates-first' }, # input format. "format=s", \$CONFIG{ 'format' }, @@ -656,29 +656,30 @@ # Make sure we have no duplicate titles. # my %titles; - foreach my $key ( keys( %results ) ) + foreach my $key ( keys(%results) ) { + # # Get the title for this file. # - my $title = $results{$key}->{'title'}; - next if ( !defined($title ) ); + my $title = $results{ $key }->{ 'title' }; + next if ( !defined($title) ); # # If we've seen this already then abort # - if ( $titles{$title} ) + if ( $titles{ $title } ) { print "Non-unique title: $title\n"; print "Shared by (at least):\n"; print "\t" . $key . "\n"; - print "\t" . $titles{$title} . "\n"; + print "\t" . $titles{ $title } . "\n"; print "\nAborting\n"; exit; } else { - $titles{$title} = $key; + $titles{ $title } = $key; } } @@ -1060,7 +1061,7 @@ # my @sortedEntries; - if ( $CONFIG{'recent-tags-first'} ) + if ( $CONFIG{ 'recent-tags-first' } ) { @sortedEntries = sort bywhen @$entries; } @@ -1217,7 +1218,7 @@ # Sort the entries by date # my @sortedEntries; - if ( $CONFIG{'recent-dates-first'} ) + if ( $CONFIG{ 'recent-dates-first' } ) { @sortedEntries = sort bywhen @$entries; }