Laurent Bardi wites Fri, 26 Sep 1997 22:55:53 +0200 >sorry, but i ve big,big pb!!! > >i don t understand >LC630 20 Mo sys 7.5.5 macperl 513r2 > >this portion of script is for killing all the other apps running, she >has worked, and now se does nothing !! I don't really understand your script, nor why it fails, but I wonder if this simpler script might do what you want? #!perl use Mac::Processes; use Mac::AppleEvents; foreach $psn (keys %Process) { $proc = $Process{$psn}; $sig = $proc->{processSignature}; if ($sig =~ /PFPI|MACS|McPL/) {next} # apps to keep running else {quit($sig)} } sub quit { my $sig = shift; #print $sig, "\n"; $evt = AEBuildAppleEvent( 'aevt', 'quit', typeApplSignature, $sig, 0, 0, "" ) or die $^E; $rep = AESend($evt, kAEWaitReply) or die $^E; AEDisposeDesc $evt; AEDisposeDesc $rep; } Alan Fry ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch