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

Re: [MacPerl] MacPerl 5.1.4b1 on 68k?



At 02.54 8/18/97, Christian Huldt wrote:
>> The first beta release of perl 5.004 based MacPerl 5.1.4r4 is now available
>
>Please correct me if I'm wrong, but I understand this version will run on a
>68K with CFM68K
>
>the problem I experience is this line:
>use Mac::Comm::OT_PPP;
>(which works with bigMacPerl5.1.3r2)
>the error points me to
>:lib:auto:DynaLoader:dl_findfile.al
>but I'm not convinced that the problem lies there...

Hm.  The only part of Mac::Comm::OT_PPP which uses DynaLoader is
Mac::AppleEvents.  Do you have any other scripts that use Mac::AppleEvents?

If not, try this script.  I trequires that you have the Set Volume OSAX in
your System Folder:Extensions:Scripting Additions folder.  Try each sub in
turn by uncommenting, then check to see what your system volume is set at
(if your Sound control panel is open, you may have to close and reopen it
before the new setting registers).  The first routine should set it to 0
(min), the second should set it to 7 (max).

Unless you get an error, this should work.  And if you get an error, it is
either a problem with your setup (i.e., you don't have AppleScript/Apple
Events or the OSAX installed) or with MacPel 5.1.4's Apple Events
module/Dynamic Loading.

Good luck.

#!perl -w

#&do1;
#&do2;

sub do1 {
    use Mac::AppleEvents;
    $be =
AEBuildAppleEvent('aevt','stvl',typeApplSignature,'MACS',0,0,"'----':0") ||
die $^E;
    $rp = AESend($be, kAEWaitReply) || die $^E;
    if (AEPrint($rp) =~ /err/) {
        print AEPrint($be),AEPrint($rp),"\n";
    }
}

sub do2 {
    &MacPerl::DoAppleScript('set volume 7');
}
__END__

--
Chris Nandor             pudge@pobox.com             http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch