r141 - trunk

[Peter Palfrader]

Author: weasel
Date: 2004-04-24 09:51:59 -0600 (Sat, 24 Apr 2004)
New Revision: 141

Modified:
   trunk/Cabot.pm.in
Log:
Yes, I am an indentation nazi

Modified: trunk/Cabot.pm.in
===================================================================
--- trunk/Cabot.pm.in	2004-04-24 15:38:44 UTC (rev 140)
+++ trunk/Cabot.pm.in	2004-04-24 15:51:59 UTC (rev 141)
@@ -102,16 +102,15 @@
 	my ($readyr, $readyw, $written);
 	while ($sout->count() > 0) {
 		($readyr, $readyw, undef) = IO::Select::select($sout, $sin,
-							       undef, 42);
+		                                               undef, 42);
 		foreach my $wfd (@$readyw) {
-		    $written = $wfd->syswrite($in, length($in) - $offset,
-					      $offset);
-		    $offset += $written;
-		    if ($offset == length($in)) {
-			close $wfd;
-			$sin->remove($wfd);
-			$sin = undef;
-		    }
+			$written = $wfd->syswrite($in, length($in) - $offset, $offset);
+			$offset += $written;
+			if ($offset == length($in)) {
+				close $wfd;
+				$sin->remove($wfd);
+				$sin = undef;
+			}
 		}
 
 		next unless (defined(@$readyr)); # Wait some more.