Pytanie głównie do perlowców

[Marcin 'Qrczak' Kowalczyk]

On Wed, 9 Dec 1998, Arkadiusz Miśkiewicz wrote:

> 
>                 if(master->perl_int == NULL) {
> //				    ^^ czy tu przypadkiem nie powinno być != ?

Owszem, powinno być. Ale pod koniec listopada robiłem sucka i dodałem
patcha, który jednakże poprawia to w innym miejscu (nie wiem, które jest
słuszniejsze). Pewnie mój suck nie opuścił incominga na cenzorze...

diff -urN suck-3.10.1.orig/killprg.c suck-3.10.1/killprg.c
--- suck-3.10.1.orig/killprg.c	Mon Oct 12 13:21:02 1998
+++ suck-3.10.1/killprg.c	Sat Nov 21 18:17:56 1998
@@ -390,9 +390,12 @@
 }
 /*--------------------------------------------------------------------------*/
 void killperl_done(PKillStruct master) {
-        perl_destruct(master->perl_int);
-        perl_free(master->perl_int);
-        master->perl_int = NULL;
+	if (master->perl_int != NULL)
+	{
+	        perl_destruct(master->perl_int);
+	        perl_free(master->perl_int);
+	        master->perl_int = NULL;
+	}
 	master->killfunc=chk_msg_kill; /* restore default function */
 }
 /*----------------------------------------------------------------------------*/

-- 
 __("<   Marcin Kowalczyk * qrczak w knm.org.pl http://qrczak.home.ml.org/
 \__/       GCS/M d- s+:-- a21 C+++>+++$ UL++>++++$ P+++ L++>++++$ E->++
  ^^                W++ N+++ o? K? w(---) O? M- V? PS-- PE++ Y? PGP->+ t
QRCZAK                  5? X- R tv-- b+>++ DI D- G+ e>++++ h! r--%>++ y-