Hi, I ve got a problem with macperl 513, he says to me error 1 and crashes.(in the debug mode, he crashes where is the ----> in the code) I ve increase the mem for macperl (8/12Mo !) with resedit. I use process.pm in order to make a "kill_em_all" the code follow use Mac::Files; use Mac::Memory; use Mac::Processes; use Mac::MoreFiles(%Application); use Mac::AppleEvents; .... sub kill_all { local($psn,$psi,$pi,$a,$desc,$event,$PSNFINDER,$PSNPERL,$PIFINDER,$sig); $a = GetCurrentProcess; @PPSN=(); @PPI=(); while (($psn, $psi) = each(%Process)) { push(@PPSN,$psn) ; push(@PPI,$psi) ; print $psn." ".$psi->{processName}." ".$psi."\n"; } $len = $#PPSN; for ($i=0;$i<=$len;$i++) { $psn = $PPSN[$i]; $psi = $PPI[$i]; ---------> print $psn." ".$psi->{processName}." ".$psi."\n"; if ((($psi->{processName} eq "Finder")&&($psi->{processType} eq "FNDR"))||($psi->{processNumber} == $a)) { if ($psi->{processName} eq "Finder") { $PSNFINDER = $psn; $PIFINDER = $psi; print "FINDER =".$psn." ".$psi->{processName}."\n"; } if ($psi->{processNumber} == $a) { $PSNPERL = $psn; print "MACPERL =".$psn." ".$psi->{processName}."\n"; } } else { $sig = $psi->{processSignature}; SetFrontProcess $psn; $evt = AEBuildAppleEvent('aevt', 'quit', typeApplSignature, $sig, 0, 0, "") or die $^E; $rep = AESend($evt, kAENoReply) or die $^E; AEDisposeDesc $evt; AEDisposeDesc $rep; } } SetFrontProcess $PSNPERL; } .... PS: don t answer me to upgrade the macperl version, because i must do that on more than 50 mac and it is long ! Many thanks in advance -- Laurent BARDI Ingenieur Systemes & Reseaux Centre National de la Recherche Scientifique INSTITUT de PHARMACOLOGIE et de BIOLOGIE STRUCTURALE Tel : 05-61-17-54-39 http://www.ipbs.fr/ Fax : 05-61-17-59-94 lolo@ipbs.fr CNRS-IPBS 205 Route de Narbonne 31400 TOULOUSE FRANCE //////////////////////////////////////////////////// / There is worse than to have not succeded : / / Not to have tried ! / //////////////////////////////////////////////////// If it stinks, it's chemistry. If it moves, it's biology. If it does not work, It's computer science. Linux the choice of a GNU generation ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch