changeset 243:855f04717521

Perltidied
author Steve Kemp <steve@steve.org.uk>
date Fri, 16 May 2008 17:40:55 +0100
parents af29da68fa82
children aaff32519e78
files bin/chronicle
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Fri May 16 17:40:37 2008 +0100
+++ b/bin/chronicle	Fri May 16 17:40:55 2008 +0100
@@ -612,8 +612,8 @@
         #  Read the entry and store all the data away as a
         # hash element keyed upon the (unique) filename.
         #
-        my $result        = readBlogEntry($file);
-        $results{ $file } = $result if ( $result );
+        my $result = readBlogEntry($file);
+        $results{ $file } = $result if ($result);
 
     }
 
@@ -1542,9 +1542,11 @@
     # uploaded files to stay where I put them, else I get
     # my local copy confused.
     #
-    if (($publish ne "") && (str2time($publish) > time()))
+    if ( ( $publish ne "" ) && ( str2time($publish) > time() ) )
     {
-        $CONFIG{'verbose'} && print "Skipping future entry $filename - due to be published on $publish\n";
+        $CONFIG{ 'verbose' }
+          && print
+          "Skipping future entry $filename - due to be published on $publish\n";
         return 0;
     }