# HG changeset patch
# User Steve Kemp <steve@steve.org.uk>
# Date 1228849182 0
# Node ID e8884c1ebc5f64932f12d221d7d9cc665371ec29
# Parent  e2a71248ae725de2bf587de8ab3d5761b106cf25
  perltidy

diff -r e2a71248ae72 -r e8884c1ebc5f bin/chronicle
--- 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;
     }