# HG changeset patch
# User Steve Kemp <steve@steve.org.uk>
# Date 1210956086 -3600
# Node ID aaff32519e78e835a3c168021408feb86a9ef058
# Parent  855f047175214627a47e8ec43c50a584acccc66d
  Perltidied

diff -r 855f04717521 -r aaff32519e78 cgi-bin/comments.cgi
--- a/cgi-bin/comments.cgi	Fri May 16 17:40:55 2008 +0100
+++ b/cgi-bin/comments.cgi	Fri May 16 17:41:26 2008 +0100
@@ -54,7 +54,7 @@
 #  Find sendmail
 #
 my $SENDMAIL = undef;
-foreach my $file ( qw ! /usr/lib/sendmail /usr/sbin/sendmail ! )
+foreach my $file (qw ! /usr/lib/sendmail /usr/sbin/sendmail !)
 {
     $SENDMAIL = $file if ( -x $file );
 }
@@ -162,7 +162,7 @@
 #
 #  Send a mail.
 #
-if ( length($TO) && length($FROM) && defined( $SENDMAIL ) )
+if ( length($TO) && length($FROM) && defined($SENDMAIL) )
 {
     open( SENDMAIL, "|$SENDMAIL -t -f $FROM" );
     print SENDMAIL "To: $TO\n";