Mercurial > hg > chronicle
changeset 183:8ac233e80dc6
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. #