--- Authen-SASL-Cyrus-0.13-server/lib/Authen/SASL/Cyrus/Security.pm.orig	2005-12-13 17:13:16.620883600 -0800
+++ Authen-SASL-Cyrus-0.13-server/lib/Authen/SASL/Cyrus/Security.pm	2005-12-13 17:14:08.269660200 -0800
@@ -73,11 +73,27 @@
 # all the data to be encrypted is immediately available
 sub WRITE {
   my($ref,$string,$len) = @_;
-  my($fh, $clearbuf, $cryptbuf);
+  my($fh, $clearbuf, $cryptbuf, $maxbuf);
 
   $fh = $ref->{fh};
   $clearbuf = substr($string, 0, $len);
-  $cryptbuf = $ref->{conn}->encode($clearbuf);
+  $maxbuf = $ref->{conn}->property("maxout");
+  if ($len < $maxbuf) {
+    $cryptbuf = $ref->{conn}->encode($clearbuf);
+    return(-1) if not defined ($cryptbuf);
+  } else {
+    my ($partial, $chunk, $chunksize);
+    my $offset = 0;
+    $cryptbuf = '';
+    while ($offset < $len) {
+      $chunksize = (($offset + $maxbuf) > $len) ? $len - $offset : $maxbuf;
+      $chunk = substr($clearbuf, $offset, $chunksize);
+      $partial = $ref->{conn}->encode($chunk);
+      return(-1) if not defined ($partial);
+      $cryptbuf .= $partial;
+      $offset += $chunksize;
+    }
+  }
   print $fh $cryptbuf;
 }