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

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



At 14.57 +0200 on 97-08-18, Chris Nandor wrote:

> 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'])

both gave:

# Useless use of private array in void context.
File 'c:MacPerl Ä:lib:auto:DynaLoader:dl_findfile.al'; Line 105
# Missing right bracket,File 'c:MacPerl
Ä:lib:auto:DynaLoader:dl_findfile.al'; Line 108
# syntax error, at EOF
File 'c:MacPerl Ä:lib:auto:DynaLoader:dl_findfile.al'; Line 108

File 'c:MacPerl Ä:lib:DynaLoader.pm'; Line 145
# BEGIN failed--compilation aborted.
File 'c:MacPerl Ä:lib:Mac:AppleEvents.pm'; Line 336
# BEGIN failed--compilation aborted.
File 'perl:Desktop Folder:CN's AE test.pl'; Line 7
# Scalars leaked: 5

with 5.1.4b1
and both worked flawlessly with 5.1.3r2 (big), so I assume it is not my setup
(I use Applescript/Frontier daily, and just recently got RAM enough to run
Perl thru Frontier which is a nice setup...)

Christian
<http://www.solvare.se/individer/christian/>
________________________________________________________
Solvare - mathematics consulting & macintosh automation
<mailto:info@solvare.se>         <http://www.solvare.se>       



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