[PATCH] Re: sieveshell segfaults on sasl configuration error

[Henrique de Moraes Holschuh]

Fix attached.

-- 
  "One disk to rule them all, One disk to find them. One disk to bring
  them all and in the darkness grind them. In the Land of Redmond
  where the shadows lie." -- The Silicon Valley Tarot
  Henrique Holschuh

Index: perl/sieve/managesieve/managesieve.xs
===================================================================
RCS file: /home/cvs/debian/cyrus21-imapd/perl/sieve/managesieve/managesieve.xs,v
retrieving revision 1.1.1.7
diff -u -r1.1.1.7 managesieve.xs
--- perl/sieve/managesieve/managesieve.xs       23 Apr 2002 17:19:11 -0000      1.1.1.7
+++ perl/sieve/managesieve/managesieve.xs       17 May 2002 12:14:40 -0000
@@ -271,9 +271,16 @@
   ret->errstr = NULL;
   
   mechlist=read_capability(obj);
+  if (! mechlist) {
+      globalerr = "sasl mech list empty";
+      XSRETURN_UNDEF;
+  }
 
   mlist = (char*) xstrdup(mechlist);
-  if(!mlist) XSRETURN_UNDEF;
+  if (!mlist) {
+         globalerr = "could not alocate memory for mech list";
+         XSRETURN_UNDEF;
+  }
 
   /* loop through all the mechanisms */
   do {