[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] process.pm under macperl 513



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