Re: [MacPerl] how to determine if 68K or PPC ??

[Alan Fry <ajf@afco.demon.co.uk>]

Laurent Bardi writes  23 Sep 1997 20:17:54 +0200:

>is there a way to know if we are running on a 68K or a PPC
>(with macperl 513 and sys 7.5.5)

You could also do this...

#!perl
use Mac::AppleEvents;

$evt = AEBuildAppleEvent('fndr', 'gstl', typeApplSignature, "MACS", 0, 0,
"'----':'proc'") or die $^E;

$rep = AESend($evt, kAEWaitReply) or die $^E;
$cpu = AEPrint(AEGetParamDesc($rep, '----'));
print $cpu, "\n";

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