changeset 221:eded23ae8288

Ran through perltidy
author Steve Kemp <steve@steve.org.uk>
date Wed, 16 Apr 2008 19:08:01 +0100
parents 79f30bca8489
children fdbbc1bb5d7c
files bin/chronicle
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Wed Apr 16 19:07:39 2008 +0100
+++ b/bin/chronicle	Wed Apr 16 19:08:01 2008 +0100
@@ -1600,14 +1600,14 @@
     #  Get the Hours::Mins::Seconds from the Date: pseudo-header
     #
     my $time = str2time($date);
-    my $hms  = time2str("%H:%M:%S",$time);
+    my $hms = time2str( "%H:%M:%S", $time );
 
 
     #
     #  If the time is missing from the Date: pseudo-header
     # we need to magic them up.  Use the mtime of the file.
     #
-    if ($hms eq '00:00:00')
+    if ( $hms eq '00:00:00' )
     {
 
         #
@@ -1620,15 +1620,16 @@
         ) = stat($filename);
 
 
-        $hms = time2str("%H:%M:%S",$mtime);
+        $hms = time2str( "%H:%M:%S", $mtime );
     }
 
 
     #
     #  If we found a time then we're OK, and can store it away.
     #
-    if ( $time )
+    if ($time)
     {
+
         #
         #  RSS 2
         #