Mercurial > hg > chronicle

changeset 183:8ac233e80dc6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Another run through perltidy
author Steve Kemp <steve@steve.org.uk>
date Tue, 01 Apr 2008 22:20:57 +0100
parents e98a077a1b8b
children 3739e04097da
files bin/chronicle
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Tue Apr 01 22:20:38 2008 +0100
+++ b/bin/chronicle	Tue Apr 01 22:20:57 2008 +0100
@@ -640,7 +640,7 @@
 
     foreach my $f ( keys %data )
     {
-        my $h    = $data{$f};
+        my $h = $data{$f};
         my $tags = $h->{'tags'} || undef;
         foreach my $t (@$tags)
         {
@@ -672,6 +672,7 @@
 
     foreach my $key ( sort keys(%unique) )
     {
+
         # count.
         my $count = $unique{$key};
 
@@ -1138,11 +1139,13 @@
         my $blog = readBlogEntry($f);
         if ( keys(%$blog) )
         {
+
             #
             #  Test for the cut in a quick fashion.
             #
             if ( $blog->{'body'} =~ /<cut/i )
             {
+
                 #
                 #  Properly process a "cut"
                 #
@@ -1492,6 +1495,7 @@
         }
         elsif ( ( $line =~ /^date:(.*)/i ) && !length($date) )
         {
+
             #
             #  Get the date, strip leading and trailing space.
             #
@@ -1501,6 +1505,7 @@
         }
         else
         {
+
             #
             #  Just a piece of body text.
             #