perl.perl5.changes.mac http://www.nntp.perl.org/group/perl.perl5.changes.mac/ ... Copyright 1998-2015 perl.org Sun, 19 Apr 2015 21:21:06 +0000 ask@perl.org perlport by Philippe Blayo Hi,<br/><br/> In perlport, section system LIST (Change 15090) :<br/>I fear POSIX macro WEXITVALUE doesn&#39;t exist. Isn&#39;t it WEXITSTATUS ?<br/><br/>--<br/>Philippe<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/05/msg298.html Wed, 21 May 2003 01:19:31 +0000 Change 18901: Integrate from maint-5.8/perl by Chris Nandor Change 18901 by pudge@pudge-mobile on 2003/03/11 04:00:40<br/><br/> Integrate from maint-5.8/perl<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/AUTHORS#3 integrate<br/>... //depot/maint-5.8/macperl/Changes#3 integrate<br/>... //depot/maint-5.8/macperl/Configure#3 integrate<br/>... //depot/maint-5.8/macperl/EXTERN.h#2 integrate<br/>... //depot/maint-5.8/macperl/INSTALL#3 integrate<br/>... //depot/maint-5.8/macperl/INTERN.h#2 integrate<br/>... //depot/maint-5.8/macperl/MANIFEST#3 integrate<br/>... //depot/maint-5.8/macperl/Makefile.SH#3 integrate<br/>... //depot/maint-5.8/macperl/Makefile.micro#2 integrate<br/>... //depot/maint-5.8/macperl/NetWare/config_H.wc#3 integrate<br/>... //depot/maint-5.8/macperl/Porting/Glossary#3 integrate<br/>... //depot/maint-5.8/macperl/Porting/check83.pl#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/findrfuncs#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/findvars#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/fixCORE#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/fixvars#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/genlog#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/makerel#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/manicheck#1 branch<br/>... //depot/maint-5.8/macperl/Porting/p4d2p#1 branch<br/>... //depot/maint-5.8/macperl/Porting/patchls#2 integrate<br/>... //depot/maint-5.8/macperl/Porting/pumpkin.pod#3 integrate<br/>... //depot/maint-5.8/macperl/Porting/repository.pod#3 integrate<br/>... //depot/maint-5.8/macperl/README#2 integrate<br/>... //depot/maint-5.8/macperl/README.aix#3 integrate<br/>... //depot/maint-5.8/macperl/README.epoc#3 integrate<br/>... //depot/maint-5.8/macperl/README.hpux#3 integrate<br/>... //depot/maint-5.8/macperl/README.mint#3 integrate<br/>... //depot/maint-5.8/macperl/README.os2#2 integrate<br/>... //depot/maint-5.8/macperl/README.os400#2 integrate<br/>... //depot/maint-5.8/macperl/README.tru64#3 integrate<br/>... //depot/maint-5.8/macperl/README.vms#2 integrate<br/>... //depot/maint-5.8/macperl/README.win32#3 integrate<br/>... //depot/maint-5.8/macperl/XSUB.h#3 integrate<br/>... //depot/maint-5.8/macperl/autodoc.pl#3 integrate<br/>... //depot/maint-5.8/macperl/av.c#3 integrate<br/>... //depot/maint-5.8/macperl/av.h#3 integrate<br/>... //depot/maint-5.8/macperl/bytecode.pl#3 integrate<br/>... //depot/maint-5.8/macperl/cc_runtime.h#2 integrate<br/>... //depot/maint-5.8/macperl/config_h.SH#3 integrate<br/>... //depot/maint-5.8/macperl/configpm#3 integrate<br/>... //depot/maint-5.8/macperl/configure.com#3 integrate<br/>... //depot/maint-5.8/macperl/configure.gnu#2 integrate<br/>... //depot/maint-5.8/macperl/cop.h#3 integrate<br/>... //depot/maint-5.8/macperl/cv.h#3 integrate<br/>... //depot/maint-5.8/macperl/deb.c#2 integrate<br/>... //depot/maint-5.8/macperl/doio.c#3 integrate<br/>... //depot/maint-5.8/macperl/doop.c#3 integrate<br/>... //depot/maint-5.8/macperl/dosish.h#2 integrate<br/>... //depot/maint-5.8/macperl/dump.c#3 integrate<br/>... //depot/maint-5.8/macperl/embed.fnc#3 integrate<br/>... //depot/maint-5.8/macperl/embed.h#3 integrate<br/>... //depot/maint-5.8/macperl/embed.pl#3 integrate<br/>... //depot/maint-5.8/macperl/embedvar.h#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Bblock.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Bytecode.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/C.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Concise.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Debug.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Deparse.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Terse.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/B/defsubs_h.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/B/t/concise.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/t/deparse.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/B/t/terse.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/DB_File/DB_File.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Data/Dumper/Dumper.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Data/Dumper/Dumper.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Data/Dumper/t/dumper.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/DProf/Changes#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/DProf/DProf.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/DProf/DProf.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/DProf/Makefile.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/PPPort/PPPort.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/Peek/Peek.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/Changes#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/MD5.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/MD5.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/Makefile.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/README#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/hints/dec_osf.pl#1 branch<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/t/align.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/t/files.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/DynaLoader/DynaLoader_pm.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/AUTHORS#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Byte/Byte.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Changes#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Encode.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Encode.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Encode/encode.h#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/KR/KR.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/MANIFEST#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Unicode/Unicode.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/Unicode/Unicode.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/encengine.c#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/encoding.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/Alias.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/CJKConstants.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/Encoder.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/Encoding.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/JP/JIS7.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/t/CJKT.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Encode/t/Mod_EUCJP.pm#1 branch<br/>... //depot/maint-5.8/macperl/ext/Encode/t/enc_data.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/Encode/t/enc_eucjp.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/Encode/t/enc_module.enc#1 branch<br/>... //depot/maint-5.8/macperl/ext/Encode/t/enc_module.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/Encode/t/enc_utf8.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/Encode/ucm/viscii.ucm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Filter/Util/Call/Call.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Filter/t/call.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/GDBM_File/GDBM_File.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/IO/lib/IO/Select.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/IO/lib/IO/Socket/INET.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/IO/lib/IO/t/io_sock.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/IPC/SysV/Msg.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/ChangeLog#3 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/Makefile.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/Util.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/lib/List/Util.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/lib/Scalar/Util.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/t/isvstring.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/List/Util/t/lln.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/List/Util/t/proto.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/Base64.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/Base64.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/Changes#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/Makefile.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/QuotedPrint.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/t/base64.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/t/quoted-print.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/MIME/Base64/t/unicode.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/ODBM_File/hints/dec_osf.pl#2 integrate<br/>... //depot/maint-5.8/macperl/ext/ODBM_File/hints/hpux.pl#2 integrate<br/>... //depot/maint-5.8/macperl/ext/ODBM_File/hints/ultrix.pl#2 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/POSIX.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/POSIX.pod#3 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/POSIX.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/t/is.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/t/posix.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/t/sigaction.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/POSIX/t/waitpid.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/PerlIO/encoding/encoding.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/PerlIO/scalar/scalar.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/PerlIO/via/via.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/SDBM_File/sdbm/README.too#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Storable/Storable.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Storable/t/restrict.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Sys/Hostname/Hostname.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Sys/Syslog/Syslog.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/Changes#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/HiRes.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/HiRes.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/Makefile.PL#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/fallback/const-c.inc#1 branch<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/fallback/const-xs.inc#1 branch<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/Changes#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/Normalize.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/Normalize.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/README#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/mkheader#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/t/func.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/t/norm.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Unicode/Normalize/t/test.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/XS/APItest/APItest.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/XS/APItest/APItest.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/XS/APItest/t/printf.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/re/Makefile.PL#2 integrate<br/>... //depot/maint-5.8/macperl/ext/re/re.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/shared/shared.pm#3 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/shared/shared.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/shared/t/hv_refs.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/t/basic.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/t/join.t#2 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/t/problems.t#1 branch<br/>... //depot/maint-5.8/macperl/ext/threads/threads.xs#3 integrate<br/>... //depot/maint-5.8/macperl/fakesdio.h#2 integrate<br/>... //depot/maint-5.8/macperl/fakethr.h#2 integrate<br/>... //depot/maint-5.8/macperl/form.h#2 integrate<br/>... //depot/maint-5.8/macperl/global.sym#3 integrate<br/>... //depot/maint-5.8/macperl/globals.c#2 integrate<br/>... //depot/maint-5.8/macperl/gv.c#3 integrate<br/>... //depot/maint-5.8/macperl/gv.h#2 integrate<br/>... //depot/maint-5.8/macperl/handy.h#2 integrate<br/>... //depot/maint-5.8/macperl/hints/aix.sh#3 integrate<br/>... //depot/maint-5.8/macperl/hints/apollo.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/darwin.sh#3 integrate<br/>... //depot/maint-5.8/macperl/hints/dec_osf.sh#3 integrate<br/>... //depot/maint-5.8/macperl/hints/epix.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/freebsd.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/irix_6.sh#3 integrate<br/>... //depot/maint-5.8/macperl/hints/isc.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/isc_2.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/machten.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/machten_2.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/openbsd.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/os2.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/os390.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/sunos_4_1.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/titanos.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/ultrix_4.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/umips.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hints/utekv.sh#2 integrate<br/>... //depot/maint-5.8/macperl/hv.c#2 integrate<br/>... //depot/maint-5.8/macperl/hv.h#2 integrate<br/>... //depot/maint-5.8/macperl/installperl#3 integrate<br/>... //depot/maint-5.8/macperl/intrpvar.h#3 integrate<br/>... //depot/maint-5.8/macperl/iperlsys.h#2 integrate<br/>... //depot/maint-5.8/macperl/jpl/JNI/JNI.xs#2 integrate<br/>... //depot/maint-5.8/macperl/jpl/JNI/Makefile.PL#2 integrate<br/>... //depot/maint-5.8/macperl/keywords.h#3 integrate<br/>... //depot/maint-5.8/macperl/keywords.pl#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Attribute/Handlers.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Attribute/Handlers/t/multi.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/AutoSplit.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI/Carp.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI/Cookie.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI/Pretty.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI/t/carp.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI/t/html.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CGI/t/pretty.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CPAN.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CPAN/FirstTime.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CPAN/README#1 branch<br/>... //depot/maint-5.8/macperl/lib/CPAN/t/Nox.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CPAN/t/loadme.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CPAN/t/mirroredby.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/CPAN/t/vcmp.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Digest.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Digest.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/English.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/English.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Exporter/Heavy.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/ExtUtils/Command.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/ExtUtils/t/Embed.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/ExtUtils/xsubpp#2 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Basename.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Copy.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Find.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Find/t/find.t#3 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Spec.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Spec/Mac.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Spec/OS2.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Spec/Unix.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/File/Spec/Win32.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Hash/Util.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Math/Trig.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/ChangeLog.libnet#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Cmd.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/FTP.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/POP3.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/Changes#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/README#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/190_alarm.t#1 branch<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/300_ping_stream.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/400_ping_syn.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/410_syn_host.t#1 branch<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/450_service.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/500_ping_icmp.t#1 branch<br/>... //depot/maint-5.8/macperl/lib/Net/SMTP.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/Checker.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/Man.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/ParseUtils.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/BaseTo.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/GetOptsOO.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToChecker.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToMan.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToNroff.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToPod.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToRtf.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToText.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToTk.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/ToXml.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/t/checkerbasic.t#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/t/perldocbasic.t#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc/t/textbasic.t#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/PlainText.pm#1 branch<br/>... //depot/maint-5.8/macperl/lib/Pod/Usage.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/t/latex.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/t/man.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/t/utils.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Term/ANSIColor.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Term/Complete.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Time/Local.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Time/Local.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Win32.pod#2 integrate<br/>... //depot/maint-5.8/macperl/lib/charnames.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/charnames.t#3 integrate<br/>... //depot/maint-5.8/macperl/lib/constant.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/diagnostics.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/fields.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/filetest.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/if.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/if.t#3 integrate<br/>... //depot/maint-5.8/macperl/lib/open.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/open.t#3 integrate<br/>... //depot/maint-5.8/macperl/lib/overload.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/perl5db.pl#2 integrate<br/>... //depot/maint-5.8/macperl/lib/utf8.t#3 integrate<br/>... //depot/maint-5.8/macperl/lib/utf8_heavy.pl#3 integrate<br/>... //depot/maint-5.8/macperl/lib/vmsish.pm#2 integrate<br/>... //depot/maint-5.8/macperl/locale.c#3 integrate<br/>... //depot/maint-5.8/macperl/macos/MacPerlTests.cmd#2 edit<br/>... //depot/maint-5.8/macperl/macos/config.h#3 delete<br/>... //depot/maint-5.8/macperl/makedef.pl#3 integrate<br/>... //depot/maint-5.8/macperl/makedepend.SH#2 integrate<br/>... //depot/maint-5.8/macperl/mg.c#3 integrate<br/>... //depot/maint-5.8/macperl/mg.h#3 integrate<br/>... //depot/maint-5.8/macperl/miniperlmain.c#2 integrate<br/>... //depot/maint-5.8/macperl/nostdio.h#2 integrate<br/>... //depot/maint-5.8/macperl/numeric.c#3 integrate<br/>... //depot/maint-5.8/macperl/op.c#3 integrate<br/>... //depot/maint-5.8/macperl/op.h#2 integrate<br/>... //depot/maint-5.8/macperl/opcode.h#2 integrate<br/>... //depot/maint-5.8/macperl/opcode.pl#3 integrate<br/>... //depot/maint-5.8/macperl/opnames.h#2 integrate<br/>... //depot/maint-5.8/macperl/os2/OS2/Process/t/os2_process.t#2 integrate<br/>... //depot/maint-5.8/macperl/os2/OS2/REXX/REXX.xs#2 integrate<br/>... //depot/maint-5.8/macperl/os2/os2.c#2 integrate<br/>... //depot/maint-5.8/macperl/pad.c#1 branch<br/>... //depot/maint-5.8/macperl/pad.h#1 branch<br/>... //depot/maint-5.8/macperl/patchlevel.h#3 integrate<br/>... //depot/maint-5.8/macperl/perl.c#4 integrate<br/>... //depot/maint-5.8/macperl/perl.h#3 integrate<br/>... //depot/maint-5.8/macperl/perlapi.c#3 integrate<br/>... //depot/maint-5.8/macperl/perlapi.h#3 integrate<br/>... //depot/maint-5.8/macperl/perlio.c#3 integrate<br/>... //depot/maint-5.8/macperl/perlio.h#2 integrate<br/>... //depot/maint-5.8/macperl/perlsdio.h#2 integrate<br/>... //depot/maint-5.8/macperl/perlsfio.h#2 integrate<br/>... //depot/maint-5.8/macperl/perlvars.h#3 integrate<br/>... //depot/maint-5.8/macperl/perly.fixer#2 integrate<br/>... //depot/maint-5.8/macperl/perly.y#2 integrate<br/>... //depot/maint-5.8/macperl/plan9/buildinfo#2 integrate<br/>... //depot/maint-5.8/macperl/plan9/config.plan9#2 integrate<br/>... //depot/maint-5.8/macperl/plan9/config_h.sample#1 branch<br/>... //depot/maint-5.8/macperl/plan9/config_sh.sample#1 branch<br/>... //depot/maint-5.8/macperl/plan9/mkfile#2 integrate<br/>... //depot/maint-5.8/macperl/plan9/plan9ish.h#2 integrate<br/>... //depot/maint-5.8/macperl/pod/checkpods.PL#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perl58delta.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlapi.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlcompile.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perldebug.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perldiag.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perldoc.pod#1 branch<br/>... //depot/maint-5.8/macperl/pod/perlembed.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq1.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq2.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq3.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq4.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq5.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq6.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq7.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq8.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfaq9.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfunc.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlguts.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlintern.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlipc.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlmodstyle.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlop.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlre.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlretut.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlrun.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlsec.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlsub.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlsyn.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/perlunicode.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perluniintro.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlvar.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlxs.pod#2 integrate<br/>... //depot/maint-5.8/macperl/pod/podchecker.PL#2 integrate<br/>... //depot/maint-5.8/macperl/pod/podselect.PL#2 integrate<br/>... //depot/maint-5.8/macperl/pp.c#3 integrate<br/>... //depot/maint-5.8/macperl/pp.h#2 integrate<br/>... //depot/maint-5.8/macperl/pp_ctl.c#3 integrate<br/>... //depot/maint-5.8/macperl/pp_hot.c#3 integrate<br/>... //depot/maint-5.8/macperl/pp_pack.c#3 integrate<br/>... //depot/maint-5.8/macperl/pp_sort.c#2 integrate<br/>... //depot/maint-5.8/macperl/pp_sys.c#3 integrate<br/>... //depot/maint-5.8/macperl/proto.h#3 integrate<br/>... //depot/maint-5.8/macperl/reentr.c#3 integrate<br/>... //depot/maint-5.8/macperl/reentr.h#2 integrate<br/>... //depot/maint-5.8/macperl/reentr.pl#3 integrate<br/>... //depot/maint-5.8/macperl/regcomp.c#3 integrate<br/>... //depot/maint-5.8/macperl/regcomp.h#2 integrate<br/>... //depot/maint-5.8/macperl/regcomp.pl#3 integrate<br/>... //depot/maint-5.8/macperl/regen.pl#2 integrate<br/>... //depot/maint-5.8/macperl/regen_headers.pl#2 delete<br/>... //depot/maint-5.8/macperl/regen_lib.pl#1 branch<br/>... //depot/maint-5.8/macperl/regexec.c#3 integrate<br/>... //depot/maint-5.8/macperl/regexp.h#2 integrate<br/>... //depot/maint-5.8/macperl/run.c#2 integrate<br/>... //depot/maint-5.8/macperl/scope.c#2 integrate<br/>... //depot/maint-5.8/macperl/scope.h#2 integrate<br/>... //depot/maint-5.8/macperl/sv.c#3 integrate<br/>... //depot/maint-5.8/macperl/sv.h#3 integrate<br/>... //depot/maint-5.8/macperl/t/cmd/for.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/comp/our.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/comp/parser.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/io/crlf.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/io/fs.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/io/tell.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/io/utf8.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/lib/strict/subs#3 integrate<br/>... //depot/maint-5.8/macperl/t/lib/warnings/op#3 integrate<br/>... //depot/maint-5.8/macperl/t/lib/warnings/pad#1 branch<br/>... //depot/maint-5.8/macperl/t/lib/warnings/perlio#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/array.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/closure.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/concat.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/do.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/eval.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/fh.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/goto.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/grep.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/lc.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/lc_user.t#1 branch<br/>... //depot/maint-5.8/macperl/t/op/local.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/localref.t#1 branch<br/>... //depot/maint-5.8/macperl/t/op/magic.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/method.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/pack.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/pat.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/quotemeta.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/readline.t#1 branch<br/>... //depot/maint-5.8/macperl/t/op/split.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/sprintf.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/sub_lval.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/subst.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/substr.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/taint.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/universal.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/vec.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/op/ver.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/emptycmd.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/find.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/for.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/headings.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/include.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/included.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/lref.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/lref.xr#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/multiline_items.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/multiline_items.xr#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/nested_items.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/nested_seqs.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/oneline_cmds.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/pod2usage.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/pod2usage.xr#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/poderrs.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/poderrs.xr#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/podselect.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/podselect.xr#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/special_seqs.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/special_seqs.xr#2 integrate<br/>... //depot/maint-5.8/macperl/t/pod/testp2pt.pl#2 integrate<br/>... //depot/maint-5.8/macperl/t/run/fresh_perl.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/run/runenv.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/run/switchC.t#1 branch<br/>... //depot/maint-5.8/macperl/t/run/switchI.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/run/switcht.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/uni/tr_7jis.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/uni/tr_eucjp.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/uni/tr_sjis.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/uni/tr_utf8.t#2 integrate<br/>... //depot/maint-5.8/macperl/t/uni/write.t#1 branch<br/>... //depot/maint-5.8/macperl/taint.c#2 integrate<br/>... //depot/maint-5.8/macperl/thrdvar.h#2 integrate<br/>... //depot/maint-5.8/macperl/thread.h#3 integrate<br/>... //depot/maint-5.8/macperl/toke.c#3 integrate<br/>... //depot/maint-5.8/macperl/uconfig.h#2 integrate<br/>... //depot/maint-5.8/macperl/uconfig.sh#2 integrate<br/>... //depot/maint-5.8/macperl/universal.c#2 integrate<br/>... //depot/maint-5.8/macperl/unixish.h#2 integrate<br/>... //depot/maint-5.8/macperl/utf8.c#3 integrate<br/>... //depot/maint-5.8/macperl/utf8.h#2 integrate<br/>... //depot/maint-5.8/macperl/utfebcdic.h#2 integrate<br/>... //depot/maint-5.8/macperl/util.c#4 integrate<br/>... //depot/maint-5.8/macperl/util.h#2 integrate<br/>... //depot/maint-5.8/macperl/utils.lst#2 integrate<br/>... //depot/maint-5.8/macperl/utils/cpan#1 branch<br/>... //depot/maint-5.8/macperl/utils/h2ph.PL#3 integrate<br/>... //depot/maint-5.8/macperl/utils/libnetcfg.PL#2 integrate<br/>... //depot/maint-5.8/macperl/utils/perlbug.PL#2 integrate<br/>... //depot/maint-5.8/macperl/utils/perldoc.PL#3 integrate<br/>... //depot/maint-5.8/macperl/vms/descrip_mms.template#3 integrate<br/>... //depot/maint-5.8/macperl/vms/vms.c#2 integrate<br/>... //depot/maint-5.8/macperl/win32/Makefile#3 integrate<br/>... //depot/maint-5.8/macperl/win32/bin/search.pl#2 integrate<br/>... //depot/maint-5.8/macperl/win32/config.bc#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config.gc#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config.vc#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config.vc64#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config_H.bc#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config_H.gc#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config_H.vc#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config_H.vc64#3 integrate<br/>... //depot/maint-5.8/macperl/win32/config_sh.PL#2 integrate<br/>... //depot/maint-5.8/macperl/win32/makefile.mk#3 integrate<br/>... //depot/maint-5.8/macperl/win32/perlhost.h#2 integrate<br/>... //depot/maint-5.8/macperl/win32/win32.c#3 integrate<br/>... //depot/maint-5.8/macperl/win32/win32.h#3 integrate<br/>... //depot/maint-5.8/macperl/win32/win32iop.h#2 integrate<br/>... //depot/maint-5.8/macperl/wince/config_H.ce#3 integrate<br/>... //depot/maint-5.8/macperl/wince/win32.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/EXTERN.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/INTERN.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/Makefile.SH#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/a2p.c#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/a2p.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/a2p.y#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/hash.c#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/hash.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/proto.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/str.c#3 integrate<br/>... //depot/maint-5.8/macperl/x2p/str.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/util.c#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/util.h#2 integrate<br/>... //depot/maint-5.8/macperl/x2p/walk.c#2 integrate<br/>... //depot/maint-5.8/macperl/xsutils.c#2 integrate<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg297.html Tue, 11 Mar 2003 20:59:53 +0000 Change 18941: Update MacOS build by Chris Nandor Change 18941 by pudge@pudge-mobile on 2003/03/12 03:19:52<br/><br/> Update MacOS build<br/> Update Makefile for new source files,<br/> update test script, add additional symbol for APItest<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/macos/MacPerlTests.cmd#3 edit<br/>... //depot/maint-5.8/macperl/macos/Makefile.mk#2 edit<br/>... //depot/maint-5.8/macperl/macos/macperl.sym#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/macos/MacPerlTests.cmd#3 (text) ====<br/>Index: macperl/macos/MacPerlTests.cmd<br/>--- macperl/macos/MacPerlTests.cmd#2~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/macos/MacPerlTests.cmd Tue Mar 11 19:19:52 2003<br/>@@ -77,9 +77,15 @@<br/> echo &quot;:perl -I::lib :comp:multiline.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :comp:multiline.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :comp:our.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :comp:our.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :comp:package.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :comp:package.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :comp:parser.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :comp:parser.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :comp:proto.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :comp:proto.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -270,6 +276,9 @@<br/> echo &quot;:perl -I::lib :op:fork.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:fork.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :op:getpid.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :op:getpid.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:glob.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:glob.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -318,6 +327,9 @@<br/> echo &quot;:perl -I::lib :op:lc.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:lc.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :op:lc_user.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :op:lc_user.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:length.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:length.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -333,6 +345,9 @@<br/> echo &quot;:perl -I::lib :op:local.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:local.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :op:localref.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :op:localref.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:loopctl.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:loopctl.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -408,6 +423,9 @@<br/> echo &quot;:perl -I::lib :op:readdir.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:readdir.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :op:readline.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :op:readline.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:recurse.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:recurse.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -450,6 +468,9 @@<br/> echo &quot;:perl -I::lib :op:srand.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:srand.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :op:stash.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :op:stash.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:stat.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:stat.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -587,9 +608,15 @@<br/> echo &quot;:perl -I::lib :run:switches.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :run:switches.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :run:switchC.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :run:switchC.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :run:switchF.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :run:switchF.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :run:switchI.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :run:switchI.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :run:switchn.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :run:switchn.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -618,9 +645,24 @@<br/> echo &quot;:perl -I::lib :uni:title.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :uni:title.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :uni:tr_7jis.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :uni:tr_7jis.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :uni:tr_eucjp.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :uni:tr_eucjp.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :uni:tr_sjis.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :uni:tr_sjis.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :uni:tr_utf8.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :uni:tr_utf8.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :uni:upper.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :uni:upper.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib :uni:write.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib :uni:write.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> <br/> echo &quot;:perl -I::lib :win32:longpath.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :win32:longpath.t &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -699,8 +741,8 @@<br/> echo &quot;:perl -I::lib ::ext:Devel:DProf:DProf.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Devel:DProf:DProf.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>-echo &quot;:perl -I::lib ::ext:Devel:Peek:Peek.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-:perl -I::lib ::ext:Devel:Peek:Peek.t &gt;&gt; ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib -T ::ext:Devel:Peek:Peek.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib -T ::ext:Devel:Peek:Peek.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:Devel:PPPort:t:test.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Devel:PPPort:t:test.t &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -738,6 +780,18 @@<br/> echo &quot;:perl -I::lib ::ext:Encode:t:Encoder.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Encode:t:Encoder.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:Encode:t:enc_data.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Encode:t:enc_data.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:Encode:t:enc_eucjp.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Encode:t:enc_eucjp.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:Encode:t:enc_module.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Encode:t:enc_module.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:Encode:t:enc_utf8.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Encode:t:enc_utf8.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:Encode:t:encoding.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Encode:t:encoding.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -834,6 +888,9 @@<br/> echo &quot;:perl -I::lib ::ext:IO:lib:IO:t:io_xs.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:IO:lib:IO:t:io_xs.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:IO:lib:IO:t:IO.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:IO:lib:IO:t:IO.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:IPC:SysV:ipcsysv.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:IPC:SysV:ipcsysv.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -852,6 +909,12 @@<br/> echo &quot;:perl -I::lib ::ext:List:Util:t:first.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:List:Util:t:first.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:List:Util:t:isvstring.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:List:Util:t:isvstring.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:List:Util:t:lln.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:List:Util:t:lln.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:List:Util:t:max.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:List:Util:t:max.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -867,13 +930,19 @@<br/> echo &quot;:perl -I::lib ::ext:List:Util:t:openhan.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:List:Util:t:openhan.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:List:Util:t:proto.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:List:Util:t:proto.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:List:Util:t:readonly.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:List:Util:t:readonly.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:List:Util:t:reduce.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:List:Util:t:reduce.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>-echo &quot;:perl -I::lib ::ext:List:Util:t:reftype.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:List:Util:t:refaddr.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:List:Util:t:reftype.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:List:Util:t:refaddr.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:List:Util:t:reftype.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:List:Util:t:shuffle.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -927,6 +996,9 @@<br/> echo &quot;:perl -I::lib ::ext:PerlIO:t:via.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:PerlIO:t:via.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:POSIX:t:is.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:POSIX:t:is.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:POSIX:t:posix.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:POSIX:t:posix.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -948,6 +1020,9 @@<br/> echo &quot;:perl -I::lib ::ext:Safe:safe2.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Safe:safe2.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:Safe:safe3.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Safe:safe3.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:SDBM_File:sdbm.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:SDBM_File:sdbm.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -963,6 +1038,9 @@<br/> echo &quot;:perl -I::lib ::ext:Storable:t:canonical.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Storable:t:canonical.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:Storable:t:code.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Storable:t:code.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:Storable:t:compat06.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:Storable:t:compat06.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1044,6 +1122,11 @@<br/> echo &quot;:perl -I::lib ::ext:threads:shared:t:cond.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:shared:t:cond.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+<br/>+#echo &quot;:perl -I::lib -T ::ext:threads:shared:t:disabled.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+#:perl -I::lib -T ::ext:threads:shared:t:disabled.t &gt;&gt; ::macos:MacPerlTests.out<br/>+#save ::macos:MacPerlTests.out<br/>+<br/> echo &quot;:perl -I::lib ::ext:threads:shared:t:hv_refs.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:shared:t:hv_refs.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1053,12 +1136,6 @@<br/> echo &quot;:perl -I::lib ::ext:threads:shared:t:no_share.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:shared:t:no_share.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>-#echo &quot;:perl -I::lib ::ext:threads:shared:t:queue.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-#:perl -I::lib ::ext:threads:shared:t:queue.t &gt;&gt; ::macos:MacPerlTests.out<br/>-#save ::macos:MacPerlTests.out<br/>-#echo &quot;:perl -I::lib ::ext:threads:shared:t:Semaphore.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-#:perl -I::lib ::ext:threads:shared:t:Semaphore.t &gt;&gt; ::macos:MacPerlTests.out<br/>-#save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:threads:shared:t:shared_attr.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:shared:t:shared_attr.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1083,6 +1160,9 @@<br/> echo &quot;:perl -I::lib ::ext:threads:t:list.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:t:list.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::ext:threads:t:problems.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:threads:t:problems.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::ext:threads:t:stress_cv.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:t:stress_cv.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1095,11 +1175,9 @@<br/> echo &quot;:perl -I::lib ::ext:threads:t:thread.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::ext:threads:t:thread.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>-<br/>-#echo &quot;:perl -I::lib ::ext:Time:HiRes:HiRes.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-#:perl -I::lib ::ext:Time:HiRes:HiRes.t &gt;&gt; ::macos:MacPerlTests.out<br/>-#save ::macos:MacPerlTests.out<br/>-<br/>+echo &quot;:perl -I::lib ::ext:Time:HiRes:HiRes.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::ext:Time:HiRes:HiRes.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib -t ::ext:Unicode:Normalize:t:func.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib -t ::ext:Unicode:Normalize:t:func.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1149,6 +1227,21 @@<br/> echo &quot;:perl -I::lib ::lib:bignum:t:bigrat.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:bignum:t:bigrat.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:bignum:t:biinfnan.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:bignum:t:biinfnan.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:bignum:t:bn_lite.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:bignum:t:bn_lite.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:bignum:t:bninfnan.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:bignum:t:bninfnan.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:bignum:t:br_lite.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:bignum:t:br_lite.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:bignum:t:brinfnan.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:bignum:t:brinfnan.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:bignum:t:option_a.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:bignum:t:option_a.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1271,9 +1364,11 @@<br/> #echo &quot;:perl -I::lib ::lib:ExtUtils:t:basic.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> #:perl -I::lib ::lib:ExtUtils:t:basic.t &gt;&gt; ::macos:MacPerlTests.out<br/> #save ::macos:MacPerlTests.out<br/>-#echo &quot;:perl -I::lib ::lib:ExtUtils:t:Command.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-#:perl -I::lib ::lib:ExtUtils:t:Command.t &gt;&gt; ::macos:MacPerlTests.out<br/>-#save ::macos:MacPerlTests.out<br/>+<br/>+echo &quot;:perl -I::lib ::lib:ExtUtils:t:Command.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:ExtUtils:t:Command.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+<br/> #echo &quot;:perl -I::lib ::lib:ExtUtils:t:Constant.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> #:perl -I::lib ::lib:ExtUtils:t:Constant.t &gt;&gt; ::macos:MacPerlTests.out<br/> #save ::macos:MacPerlTests.out<br/>@@ -1295,10 +1390,10 @@<br/> #echo &quot;:perl -I::lib ::lib:ExtUtils:t:Manifest.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> #:perl -I::lib ::lib:ExtUtils:t:Manifest.t &gt;&gt; ::macos:MacPerlTests.out<br/> #save ::macos:MacPerlTests.out<br/>-#echo &quot;:perl -I::lib ::lib:ExtUtils:t:Mkbootstrap.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-#:perl -I::lib ::lib:ExtUtils:t:Mkbootstrap.t &gt;&gt; ::macos:MacPerlTests.out<br/>-#save ::macos:MacPerlTests.out<br/> <br/>+echo &quot;:perl -I::lib ::lib:ExtUtils:t:Mkbootstrap.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:ExtUtils:t:Mkbootstrap.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:ExtUtils:t:MM_BeOS.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:ExtUtils:t:MM_BeOS.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1456,6 +1551,51 @@<br/> echo &quot;:perl -I::lib -t ::lib:I18N:LangTags:test.pl&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib -t ::lib:I18N:LangTags:test.pl &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_const.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_const.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_dir.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_dir.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_dup.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_dup.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_linenum.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_linenum.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_multihomed.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_multihomed.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_pipe.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_pipe.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_poll.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_poll.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_sel.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_sel.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_sock.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_sock.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib -T ::lib:IO:t:io_taint.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib -T ::lib:IO:t:io_taint.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_tell.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_tell.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_udp.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_udp.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_unix.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_unix.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:io_xs.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:io_xs.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:IO:t:IO.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:IO:t:IO.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:if.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:if.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1528,6 +1668,9 @@<br/> echo &quot;:perl -I::lib ::lib:Math:BigInt:t:bigintpm.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Math:BigInt:t:bigintpm.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Math:BigInt:t:bigints.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Math:BigInt:t:bigints.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Math:BigInt:t:calling.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Math:BigInt:t:calling.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1588,6 +1731,9 @@<br/> echo &quot;:perl -I::lib ::lib:Math:BigInt:t:with_sub.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Math:BigInt:t:with_sub.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Math:BigRat:t:big_ap.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Math:BigRat:t:big_ap.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Math:BigRat:t:bigfltrt.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Math:BigRat:t:bigfltrt.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1681,6 +1827,12 @@<br/> echo &quot;:perl -I::lib -T ::lib:Net:Ping:t:140_stream_inst.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib -T ::lib:Net:Ping:t:140_stream_inst.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib -T ::lib:Net:Ping:t:150_syn_inst.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib -T ::lib:Net:Ping:t:150_syn_inst.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib -T ::lib:Net:Ping:t:190_alarm.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib -T ::lib:Net:Ping:t:190_alarm.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Net:Ping:t:200_ping_tcp.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Net:Ping:t:200_ping_tcp.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1690,6 +1842,18 @@<br/> echo &quot;:perl -I::lib ::lib:Net:Ping:t:300_ping_stream.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Net:Ping:t:300_ping_stream.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Net:Ping:t:400_ping_syn.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Net:Ping:t:400_ping_syn.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Net:Ping:t:410_syn_host.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Net:Ping:t:410_syn_host.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Net:Ping:t:450_service.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Net:Ping:t:450_service.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Net:Ping:t:500_ping_icmp.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Net:Ping:t:500_ping_icmp.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Net:protoent.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Net:protoent.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1738,6 +1902,9 @@<br/> echo &quot;:perl -I::lib ::lib:overload.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:overload.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:PerlIO:via:t:QuotedPrint.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:PerlIO:via:t:QuotedPrint.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:ph.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:ph.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1777,6 +1944,9 @@<br/> echo &quot;:perl -I::lib ::lib:Pod:t:text-errors.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Pod:t:text-errors.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Pod:t:text-options.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Pod:t:text-options.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Pod:t:Usage.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Pod:t:Usage.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1870,6 +2040,9 @@<br/> echo &quot;:perl -I::lib ::lib:Test:Simple:t:curr_test.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Test:Simple:t:curr_test.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Test:Simple:t:details.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Test:Simple:t:details.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Test:Simple:t:diag.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Test:Simple:t:diag.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1891,6 +2064,15 @@<br/> echo &quot;:perl -I::lib ::lib:Test:Simple:t:filehandles.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Test:Simple:t:filehandles.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Test:Simple:t:fork.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Test:Simple:t:fork.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Test:Simple:t:has_plan.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Test:Simple:t:has_plan.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Test:Simple:t:has_plan2.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Test:Simple:t:has_plan2.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Test:Simple:t:import.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Test:Simple:t:import.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -1915,6 +2097,9 @@<br/> echo &quot;:perl -I::lib ::lib:Test:Simple:t:no_plan.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Test:Simple:t:no_plan.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Test:Simple:t:ok_obj.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Test:Simple:t:ok_obj.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Test:Simple:t:output.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Test:Simple:t:output.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -2020,6 +2205,14 @@<br/> echo &quot;:perl -I::lib ::lib:Text:TabsWrap:t:wrap.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Text:TabsWrap:t:wrap.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>+<br/>+#echo &quot;:perl -I::lib ::lib:Thread:Queue.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+#:perl -I::lib ::lib:Tie:Array:push.t &gt;&gt; ::macos:MacPerlTests.out<br/>+#save ::macos:MacPerlTests.out<br/>+#echo &quot;:perl -I::lib ::lib:Thread:Semaphore.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+#:perl -I::lib ::lib:Tie:Array:push.t &gt;&gt; ::macos:MacPerlTests.out<br/>+#save ::macos:MacPerlTests.out<br/>+<br/> echo &quot;:perl -I::lib ::lib:Tie:Array:push.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Tie:Array:push.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>@@ -2155,8 +2348,11 @@<br/> echo &quot;:perl -I::lib ::lib:Time:localtime.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Time:localtime.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/>-echo &quot;:perl -I::lib -t ::lib:Unicode:Collate:t:test.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>-:perl -I::lib -t ::lib:Unicode:Collate:t:test.t &gt;&gt; ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Unicode:Collate:t:index.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Unicode:Collate:t:index.t &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>+echo &quot;:perl -I::lib ::lib:Unicode:Collate:t:test.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>+:perl -I::lib ::lib:Unicode:Collate:t:test.t &gt;&gt; ::macos:MacPerlTests.out<br/> save ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib ::lib:Unicode:UCD.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib ::lib:Unicode:UCD.t &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -2193,17 +2389,27 @@<br/> echo &quot;# Devel::DProf seems to work, but test needs major work :/&quot;<br/> echo &quot;:perl -I::lib ::ext:Devel:DProf:DProf.t&quot;<br/> echo &quot;&quot;<br/>-echo &quot;# fails tests 367 (known problem in sysopen warning)&quot;<br/>+echo &quot;# fails one test, 21, related to tainting&quot;<br/>+echo &quot;:perl -I::lib ::ext:Devel:Peek:Peek.t&quot;<br/>+echo &quot;&quot;<br/>+echo &quot;# fails tests 10 and 11 sometimes, when run with test suite, but is really OK&quot;<br/>+echo &quot;:perl -I::lib ::lib:Devel:SelfStubber.t&quot;<br/>+echo &quot;&quot;<br/>+echo &quot;# fails tests 373 (known problem in sysopen warning)&quot;<br/> echo &quot;:perl -I::lib ::lib:warnings.t&quot;<br/> echo &quot;&quot;<br/> echo &quot;# fails all tests (system() fails to return a good value)&quot;<br/> echo &quot;:perl -I::lib :op:die_exit.t&quot;<br/> echo &quot;&quot;<br/>-echo &quot;# fails tests 129, 130, 142, 161 (known problem in sfio)&quot;<br/>+echo &quot;# fails tests 131, 132, 148, 167 (known problem in sfio)&quot;<br/> echo &quot;:perl -I::lib :op:sprintf.t&quot;<br/> echo &quot;&quot;<br/>-echo &quot;# fails tests 158 164 170 (O_RDWR)&quot;<br/>+echo &quot;# fails tests 158 164 170 (O_RDWR issues)&quot;<br/> echo &quot;:perl -I::lib -T :op:taint.t&quot;<br/>+echo &quot;&quot;<br/>+echo &quot;# fails tests 47 and 48 (no idea why)&quot;<br/>+echo &quot;:perl -I::lib :x2p:s2p.t&quot;<br/>+echo &quot;&quot;<br/> <br/> # see how we did<br/> :perl -I::lib ::macos:MacPerlTests.plx ::macos:MacPerlTests.out &gt;&gt; ::macos:MacPerlTests.out<br/><br/>==== //depot/maint-5.8/macperl/macos/Makefile.mk#2 (text) ====<br/>Index: macperl/macos/Makefile.mk<br/>--- macperl/macos/Makefile.mk#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/Makefile.mk Tue Mar 11 19:19:52 2003<br/>@@ -124,6 +124,9 @@<br/> <br/> public = perl translators sitelib_install <br/> Dynamic_Ext_Mac = Mac<br/>+<br/>+# Encode is huge, and didn&#39;t statically link properly, so we dynamically link it<br/>+# XS::APITest is not part of the distribution, but used only for testing<br/> Dynamic_Ext_Std = \<br/> Encode:Encode Encode:Byte:Byte Encode:CN:CN \<br/> Encode:EBCDIC:EBCDIC Encode:JP:JP Encode:KR:KR \<br/>@@ -225,22 +228,23 @@<br/> addedbyconf = UU $(plextract) pstruct<br/> <br/> h1 = EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h dosish.h<br/>-h2 = embed.h form.h gv.h handy.h hv.h keywords.h mg.h op.h<br/>-h3 = opcode.h patchlevel.h perl.h perly.h pp.h proto.h regcomp.h<br/>-h4 = regexp.h scope.h sv.h unixish.h util.h<br/>-h = $(h1) $(h2) $(h3) $(h4)<br/>-<br/>-c1 = $(mallocsrc) av.c scope.c op.c doop.c doio.c dump.c hv.c mg.c perlapi.c<br/>-c2 = perl.c perly.c pp.c pp_hot.c pp_ctl.c pp_sys.c regcomp.c regexec.c xsutils.c<br/>-c3 = gv.c sv.c taint.c toke.c util.c deb.c run.c globals.c perlio.c utf8.c universal.c \<br/>- numeric.c locale.c pp_pack.c pp_sort.c reentr.c<br/>+h2 = embed.h form.h gv.h handy.h hv.h keywords.h mg.h op.h opcode.h<br/>+h3 = pad.h patchlevel.h perl.h perlapi.h perly.h pp.h proto.h regcomp.h<br/>+h4 = regexp.h scope.h sv.h unixish.h util.h iperlsys.h thread.h<br/>+h5 = utf8.h warnings.h<br/>+h = $(h1) $(h2) $(h3) $(h4) $(h5)<br/>+<br/>+c1 = $(mallocsrc) av.c scope.c op.c doop.c doio.c dump.c hv.c mg.c reentr.c<br/>+c2 = perl.c perly.c pp.c pp_hot.c pp_ctl.c pp_sys.c regcomp.c regexec.c utf8.c<br/>+c3 = gv.c sv.c taint.c toke.c util.c deb.c run.c universal.c xsutils.c pad.c<br/>+c4 = globals.c perlio.c perlapi.c numeric.c locale.c pp_pack.c pp_sort.c<br/> <br/> cm = SubLaunch.c crypt.c<br/> # HandleSocket.cp <br/> mf = DirectoryCopy.c FileCopy.c FSpCompat.c FullPath.c IterateDirectory.c MoreDesktopMgr.c \<br/> MoreFiles.c MoreFilesExtras.c Search.c<br/> <br/>-c = $(c1) $(c2) $(c3) $(cm)<br/>+c = $(c1) $(c2) $(c3) $(c4) $(cm)<br/> cp= $(cpm)<br/> libc = macish.c icemalloc.c PerlGUSIConfig.cp $(mf)<br/> <br/><br/>==== //depot/maint-5.8/macperl/macos/macperl.sym#2 (text) ====<br/>Index: macperl/macos/macperl.sym<br/>--- macperl/macos/macperl.sym#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/macperl.sym Tue Mar 11 19:19:52 2003<br/>@@ -271,3 +271,5 @@<br/> printf<br/> scanf<br/> fscanf<br/>+# another for sfio Tue, Mar 11, 2003 21:15:11<br/>+_Sfstdout<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg296.html Tue, 11 Mar 2003 20:59:49 +0000 Change 18936: Integrate from maint-5.8/perl by Chris Nandor Change 18936 by pudge@pudge-mobile on 2003/03/12 03:02:22<br/><br/> Integrate from maint-5.8/perl<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/t/op/recurse.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/sprintf.t#4 integrate<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/t/op/recurse.t#3 (xtext) ====<br/>Index: macperl/t/op/recurse.t<br/>--- macperl/t/op/recurse.t#2~18199~ Wed Nov 27 21:20:16 2002<br/>+++ macperl/t/op/recurse.t Tue Mar 11 19:02:22 2003<br/>@@ -113,8 +113,19 @@<br/> }<br/> <br/> # check ok for recursion depth &gt; 65536<br/>-is(runperl(<br/>- nolib =&gt; 1,<br/>- prog =&gt; q{$d=0; $e=1; sub c { ++$d; if ($d &gt; 66000) { $e=0 } else { c(); c() unless $d % 32768 } --$d } c(); exit $e},<br/>-), &#39;&#39;, &quot;64K deep recursion - no output expected&quot;);<br/>-is($?, 0, &quot;64K deep recursion - no coredump expected&quot;);<br/>+{<br/>+ my $r;<br/>+ eval { <br/>+ $r = runperl(<br/>+ nolib =&gt; 1,<br/>+ stderr =&gt; 1,<br/>+ prog =&gt; q{$d=0; $e=1; sub c { ++$d; if ($d &gt; 66000) { $e=0 } else { c(); c() unless $d % 32768 } --$d } c(); exit $e});<br/>+ };<br/>+ SKIP: {<br/>+ skip(&quot;Out of memory -- increase your data/heap?&quot;, 2)<br/>+ if $r =~ /Out of memory/i;<br/>+ is($r, &#39;&#39;, &quot;64K deep recursion - no output expected&quot;);<br/>+ is($?, 0, &quot;64K deep recursion - no coredump expected&quot;);<br/>+ }<br/>+}<br/>+<br/><br/>==== //depot/maint-5.8/macperl/t/op/sprintf.t#4 (xtext) ====<br/>Index: macperl/t/op/sprintf.t<br/>--- macperl/t/op/sprintf.t#3~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/t/op/sprintf.t Tue Mar 11 19:02:22 2003<br/>@@ -104,7 +104,7 @@<br/> }<br/> }<br/> <br/>-# In each of the the following lines, there are three required fields:<br/>+# In each of the following lines, there are three required fields:<br/> # printf template, data to be formatted (as a Perl expression), and<br/> # expected result of formatting. An optional fourth field can contain<br/> # a comment. Each field is delimited by a starting &#39;&gt;&#39; and a<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg295.html Tue, 11 Mar 2003 20:55:07 +0000 Change 18937: Various MacOS portability fixes for tests by Chris Nandor Change 18937 by pudge@pudge-mobile on 2003/03/12 03:14:23<br/><br/> Various MacOS portability fixes for tests<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/ext/Digest/MD5/t/files.t#3 edit<br/>... //depot/maint-5.8/macperl/ext/Filter/t/call.t#3 edit<br/>... //depot/maint-5.8/macperl/ext/POSIX/t/taint.t#2 edit<br/>... //depot/maint-5.8/macperl/lib/Unicode/Collate/t/index.t#2 edit<br/>... //depot/maint-5.8/macperl/lib/Unicode/Collate/t/test.t#3 edit<br/>... //depot/maint-5.8/macperl/lib/charnames.t#4 edit<br/>... //depot/maint-5.8/macperl/t/io/crlf.t#4 edit<br/>... //depot/maint-5.8/macperl/t/op/method.t#4 edit<br/>... //depot/maint-5.8/macperl/t/op/mkdir.t#3 edit<br/>... //depot/maint-5.8/macperl/t/op/recurse.t#4 edit<br/>... //depot/maint-5.8/macperl/t/op/sprintf.t#5 edit<br/>... //depot/maint-5.8/macperl/t/op/stat.t#2 edit<br/>... //depot/maint-5.8/macperl/t/op/taint.t#4 edit<br/>... //depot/maint-5.8/macperl/t/pod/testp2pt.pl#3 edit<br/>... //depot/maint-5.8/macperl/t/run/switchI.t#3 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/ext/Digest/MD5/t/files.t#3 (text) ====<br/>Index: macperl/ext/Digest/MD5/t/files.t<br/>--- macperl/ext/Digest/MD5/t/files.t#2~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/ext/Digest/MD5/t/files.t Tue Mar 11 19:14:23 2003<br/>@@ -28,10 +28,10 @@<br/> EOT<br/> } elsif (&quot;\n&quot; eq &quot;\015&quot;) { # MacOS<br/> $EXPECT = &lt;&lt;EOT;<br/>-d286d6c6a61e44e88d1deba9954ce37a Changes<br/>-6c950a0211a5a28f023bb482037698cd README<br/>-d31c9aefa1a9e40beda9fff1e1d9c02d MD5.pm<br/>-df178436ead9d354d63089fa0e01af27 MD5.xs<br/>+48ce3d9c310bd3173f6fe0a336f349cf Changes<br/>+53a0461b093f6c9d3e03d31f7133e62c README<br/>+7dcff59ab5cb7ad4998fb518047b2e59 MD5.pm<br/>+10542966f7609cb13816dc6a18527775 MD5.xs<br/> 754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt<br/> EOT<br/> } else {<br/><br/>==== //depot/maint-5.8/macperl/ext/Filter/t/call.t#3 (text) ====<br/>Index: macperl/ext/Filter/t/call.t<br/>--- macperl/ext/Filter/t/call.t#2~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/ext/Filter/t/call.t Tue Mar 11 19:14:23 2003<br/>@@ -804,7 +804,8 @@<br/> print &quot;ok&quot;;<br/> EOM<br/> <br/>-my $a = `$Perl &quot;-I.&quot; $Inc -e &quot;no ${module6}; print q{ok}&quot;`;<br/>+my $str = $^O eq &#39;MacOS&#39; ? &quot;&#39;ok&#39;&quot; : &quot;q{ok}&quot;;<br/>+my $a = `$Perl &quot;-I.&quot; $Inc -e &quot;no ${module6}; print $str&quot;`;<br/> ok(29, ($? &gt;&gt;8) == 0);<br/> chomp( $a ) if $^O eq &#39;VMS&#39;;<br/> ok(30, $a eq &#39;ok&#39;);<br/><br/>==== //depot/maint-5.8/macperl/ext/POSIX/t/taint.t#2 (text) ====<br/>Index: macperl/ext/POSIX/t/taint.t<br/>--- macperl/ext/POSIX/t/taint.t#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/ext/POSIX/t/taint.t Tue Mar 11 19:14:23 2003<br/>@@ -28,10 +28,7 @@<br/> <br/> my $TAINT = substr($^X, 0, 0);<br/> <br/>-# there is a bug in GUSI that causes problems trying to open<br/>-# files and directories ... it is being fixed, this is just<br/>-# a stopgap -- pudge<br/>-my $file = $^O eq &#39;MacOS&#39; ? &#39;TEST-OLD&#39; : &#39;TEST&#39;;<br/>+my $file = &#39;TEST&#39;;<br/> <br/> eval { mkfifo($TAINT. $file, 0) };<br/> like($@, qr/^Insecure dependency/, &#39;mkfifo with tainted data&#39;);<br/><br/>==== //depot/maint-5.8/macperl/lib/Unicode/Collate/t/index.t#2 (text) ====<br/>Index: macperl/lib/Unicode/Collate/t/index.t<br/>--- macperl/lib/Unicode/Collate/t/index.t#1~18199~ Wed Nov 27 21:20:16 2002<br/>+++ macperl/lib/Unicode/Collate/t/index.t Tue Mar 11 19:14:23 2003<br/>@@ -9,7 +9,7 @@<br/> BEGIN {<br/> if ($ENV{PERL_CORE}) {<br/> chdir(&#39;t&#39;) if -d &#39;t&#39;;<br/>- @INC = qw(../lib);<br/>+ @INC = $^O eq &#39;MacOS&#39; ? qw(::lib) : qw(../lib);<br/> }<br/> }<br/> <br/><br/>==== //depot/maint-5.8/macperl/lib/Unicode/Collate/t/test.t#3 (text) ====<br/>Index: macperl/lib/Unicode/Collate/t/test.t<br/>--- macperl/lib/Unicode/Collate/t/test.t#2~18199~ Wed Nov 27 21:20:16 2002<br/>+++ macperl/lib/Unicode/Collate/t/test.t Tue Mar 11 19:14:23 2003<br/>@@ -9,7 +9,7 @@<br/> BEGIN {<br/> if ($ENV{PERL_CORE}) {<br/> chdir(&#39;t&#39;) if -d &#39;t&#39;;<br/>- @INC = qw(../lib);<br/>+ @INC = $^O eq &#39;MacOS&#39; ? qw(::lib) : qw(../lib);<br/> }<br/> }<br/> <br/><br/>==== //depot/maint-5.8/macperl/lib/charnames.t#4 (text) ====<br/>Index: macperl/lib/charnames.t<br/>--- macperl/lib/charnames.t#3~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/lib/charnames.t Tue Mar 11 19:14:23 2003<br/>@@ -11,6 +11,8 @@<br/> $SIG{__WARN__} = sub { push @WARN, @_ };<br/> }<br/> <br/>+require File::Spec;<br/>+<br/> $| = 1;<br/> <br/> print &quot;1..73\n&quot;;<br/>@@ -270,7 +272,7 @@<br/> # ---- Alias extensions<br/> <br/> my $tmpfile = &quot;tmp0000&quot;;<br/>-my $alifile = &quot;../lib/unicore/xyzzy_alias.pl&quot;;<br/>+my $alifile = File::Spec-&gt;catfile(File::Spec-&gt;updir, qw(lib unicore xyzzy_alias.pl));<br/> my $i = 0;<br/> 1 while -e ++$tmpfile;<br/> END { if ($tmpfile) { 1 while unlink $tmpfile; } }<br/><br/>==== //depot/maint-5.8/macperl/t/io/crlf.t#4 (text) ====<br/>Index: macperl/t/io/crlf.t<br/>--- macperl/t/io/crlf.t#3~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/t/io/crlf.t Tue Mar 11 19:14:23 2003<br/>@@ -35,7 +35,7 @@<br/> eval &#39;use PerlIO::scalar&#39;;<br/> skip(q/miniperl cannnot load PerlIO::scalar/)<br/> if $@ =~ /dynamic loading not available/;<br/>- my $fcontents = join &quot;&quot;, map {&quot;$_\r\n&quot;} &quot;a&quot;..&quot;zzz&quot;;<br/>+ my $fcontents = join &quot;&quot;, map {&quot;$_\015\012&quot;} &quot;a&quot;..&quot;zzz&quot;;<br/> open my $fh, &quot;&lt;:crlf&quot;, \$fcontents;<br/> local $/ = &quot;xxx&quot;;<br/> local $_ = &lt;$fh&gt;;<br/><br/>==== //depot/maint-5.8/macperl/t/op/method.t#4 (xtext) ====<br/>Index: macperl/t/op/method.t<br/>--- macperl/t/op/method.t#3~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/t/op/method.t Tue Mar 11 19:14:23 2003<br/>@@ -284,6 +284,7 @@<br/> {<br/> fresh_perl_is(&lt;&lt;EOT,<br/> package UNIVERSAL; sub AUTOLOAD { my \$c = shift; print &quot;\$c \$AUTOLOAD\\n&quot; }<br/>+sub DESTROY {} # IO object destructor called in MacOS, because of Mac::err<br/> package Xyz;<br/> package main; Foo-&gt;$meth-&gt;[0]();<br/> EOT<br/><br/>==== //depot/maint-5.8/macperl/t/op/mkdir.t#3 (xtext) ====<br/>Index: macperl/t/op/mkdir.t<br/>--- macperl/t/op/mkdir.t#2~18199~ Wed Nov 27 21:20:16 2002<br/>+++ macperl/t/op/mkdir.t Tue Mar 11 19:14:23 2003<br/>@@ -24,7 +24,12 @@<br/> print (mkdir(&#39;blurfl&#39;) ? &quot;ok 8\n&quot; : &quot;not ok 8\n&quot;);<br/> print (rmdir(&#39;blurfl&#39;) ? &quot;ok 9\n&quot; : &quot;not ok 9\n&quot;);<br/> # trailing slashes will be removed before the system call to mkdir<br/>-print (mkdir(&#39;blurfl///&#39;) ? &quot;ok 10\n&quot; : &quot;not ok 10\n&quot;);<br/>-print (-d &#39;blurfl&#39; ? &quot;ok 11\n&quot; : &quot;not ok 11\n&quot;);<br/>-print (rmdir(&#39;blurfl///&#39;) ? &quot;ok 12\n&quot; : &quot;not ok 12\n&quot;);<br/>-print (!-d &#39;blurfl&#39; ? &quot;ok 13\n&quot; : &quot;not ok 13\n&quot;);<br/>+# but we don&#39;t care for MacOS ...<br/>+if ($^O eq &#39;MacOS&#39;) {<br/>+ print &quot;ok $_\n&quot; for 10..13;<br/>+} else {<br/>+ print (mkdir(&#39;blurfl///&#39;) ? &quot;ok 10\n&quot; : &quot;not ok 10\n&quot;);<br/>+ print (-d &#39;blurfl&#39; ? &quot;ok 11\n&quot; : &quot;not ok 11\n&quot;);<br/>+ print (rmdir(&#39;blurfl///&#39;) ? &quot;ok 12\n&quot; : &quot;not ok 12\n&quot;);<br/>+ print (!-d &#39;blurfl&#39; ? &quot;ok 13\n&quot; : &quot;not ok 13\n&quot;);<br/>+}<br/><br/>==== //depot/maint-5.8/macperl/t/op/recurse.t#4 (xtext) ====<br/>Index: macperl/t/op/recurse.t<br/>--- macperl/t/op/recurse.t#3~18936~ Tue Mar 11 19:02:22 2003<br/>+++ macperl/t/op/recurse.t Tue Mar 11 19:14:23 2003<br/>@@ -125,7 +125,13 @@<br/> skip(&quot;Out of memory -- increase your data/heap?&quot;, 2)<br/> if $r =~ /Out of memory/i;<br/> is($r, &#39;&#39;, &quot;64K deep recursion - no output expected&quot;);<br/>- is($?, 0, &quot;64K deep recursion - no coredump expected&quot;);<br/>+<br/>+ if ($^O eq &#39;MacOS&#39;) {<br/>+ ok(1, &quot;$^O: \$? is unreliable&quot;);<br/>+ } else {<br/>+ is($?, 0, &quot;64K deep recursion - no coredump expected&quot;);<br/>+ }<br/>+<br/> }<br/> }<br/> <br/><br/>==== //depot/maint-5.8/macperl/t/op/sprintf.t#5 (xtext) ====<br/>Index: macperl/t/op/sprintf.t<br/>--- macperl/t/op/sprintf.t#4~18936~ Tue Mar 11 19:02:22 2003<br/>+++ macperl/t/op/sprintf.t Tue Mar 11 19:14:23 2003<br/>@@ -374,7 +374,7 @@<br/> &gt;%vs,%d&lt; &gt;[1, 2, 3]&lt; &gt;1,2&lt;<br/> &gt;%v_&lt; &gt;&#39;&#39;&lt; &gt;%v_ INVALID&lt;<br/> &gt;%v#x&lt; &gt;&#39;&#39;&lt; &gt;%v#x INVALID&lt;<br/>-&gt;%v02x&lt; &gt;&quot;foo\n&quot;&lt; &gt;66.6f.6f.0a&lt;<br/>+&gt;%v02x&lt; &gt;&quot;foo\012&quot;&lt; &gt;66.6f.6f.0a&lt;<br/> &gt;%V-%s&lt; &gt;[&quot;Hello&quot;]&lt; &gt;%V-Hello INVALID&lt;<br/> &gt;%K %d %d&lt; &gt;[13, 29]&lt; &gt;%K 13 29 INVALID&lt;<br/> &gt;%*.*K %d&lt; &gt;[13, 29, 76]&lt; &gt;%*.*K 13 INVALID&lt;<br/><br/>==== //depot/maint-5.8/macperl/t/op/stat.t#2 (xtext) ====<br/>Index: macperl/t/op/stat.t<br/>--- macperl/t/op/stat.t#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/t/op/stat.t Tue Mar 11 19:14:23 2003<br/>@@ -55,7 +55,7 @@<br/> <br/> SKIP: {<br/> skip &quot;mtime and ctime not reliable&quot;, 2<br/>- if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos;<br/>+ if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos or $Is_MacOS;<br/> <br/> ok( $mtime, &#39;mtime&#39; );<br/> is( $mtime, $ctime, &#39;mtime == ctime&#39; );<br/><br/>==== //depot/maint-5.8/macperl/t/op/taint.t#4 (xtext) ====<br/>Index: macperl/t/op/taint.t<br/>--- macperl/t/op/taint.t#3~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/t/op/taint.t Tue Mar 11 19:14:23 2003<br/>@@ -966,8 +966,12 @@<br/> <br/> eval { system(&quot;lskdfj does not exist&quot;,&quot;with&quot;,&quot;args&quot;); };<br/> test 204, $@ eq &#39;&#39;;<br/>- eval { exec(&quot;lskdfj does not exist&quot;,&quot;with&quot;,&quot;args&quot;); };<br/>- test 205, $@ eq &#39;&#39;;<br/>+ if ($Is_MacOS) {<br/>+ print &quot;ok 205 # no exec()\n&quot;;<br/>+ } else {<br/>+ eval { exec(&quot;lskdfj does not exist&quot;,&quot;with&quot;,&quot;args&quot;); };<br/>+ test 205, $@ eq &#39;&#39;;<br/>+ }<br/> <br/> # If you add tests here update also the above skip block for VMS.<br/> }<br/><br/>==== //depot/maint-5.8/macperl/t/pod/testp2pt.pl#3 (text) ====<br/>Index: macperl/t/pod/testp2pt.pl<br/>--- macperl/t/pod/testp2pt.pl#2~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/t/pod/testp2pt.pl Tue Mar 11 19:14:23 2003<br/>@@ -38,7 +38,9 @@<br/> my $INSTDIR = abs_path(dirname $0);<br/> $INSTDIR = VMS::Filespec::unixpath($INSTDIR) if $^O eq &#39;VMS&#39;;<br/> $INSTDIR =~ s#/$## if $^O eq &#39;VMS&#39;;<br/>+$INSTDIR =~ s#:$## if $^O eq &#39;MacOS&#39;;<br/> $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq &#39;pod&#39;);<br/>+$INSTDIR =~ s#:$## if $^O eq &#39;MacOS&#39;;<br/> $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq &#39;t&#39;);<br/> my @PODINCDIRS = ( catfile($INSTDIR, &#39;lib&#39;, &#39;Pod&#39;),<br/> catfile($INSTDIR, &#39;scripts&#39;),<br/><br/>==== //depot/maint-5.8/macperl/t/run/switchI.t#3 (text) ====<br/>Index: macperl/t/run/switchI.t<br/>--- macperl/t/run/switchI.t#2~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/t/run/switchI.t Tue Mar 11 19:14:23 2003<br/>@@ -10,16 +10,24 @@<br/> plan(4);<br/> }<br/> <br/>-ok(grep { $_ eq &#39;Bla&#39; } @INC);<br/>+my $Is_MacOS = $^O eq &#39;MacOS&#39;;<br/>+my $Is_VMS = $^O eq &#39;VMS&#39;;<br/>+my $lib;<br/>+<br/>+$lib = $Is_MacOS ? &#39;:Bla:&#39; : &#39;Bla&#39;;<br/>+ok(grep { $_ eq $lib } @INC);<br/> SKIP: {<br/>- skip &#39;Double colons not allowed in dir spec&#39;, 1 if $^O eq &#39;VMS&#39;;<br/>- ok(grep { $_ eq &#39;Foo::Bar&#39; } @INC);<br/>+ skip &#39;Double colons not allowed in dir spec&#39;, 1 if $Is_VMS;<br/>+ $lib = $Is_MacOS ? &#39;Foo::Bar:&#39; : &#39;Foo::Bar&#39;;<br/>+ ok(grep { $_ eq $lib } @INC);<br/> }<br/> <br/>-fresh_perl_is(&#39;print grep { $_ eq &quot;Bla2&quot; } @INC&#39;, &#39;Bla2&#39;,<br/>+$lib = $Is_MacOS ? &#39;:Bla2:&#39; : &#39;Bla2&#39;;<br/>+fresh_perl_is(&quot;print grep { \$_ eq &#39;$lib&#39; } \@INC&quot;, $lib,<br/> { switches =&gt; [&#39;-IBla2&#39;] }, &#39;-I&#39;);<br/> SKIP: {<br/>- skip &#39;Double colons not allowed in dir spec&#39;, 1 if $^O eq &#39;VMS&#39;;<br/>- fresh_perl_is(&#39;print grep { $_ eq &quot;Foo::Bar2&quot; } @INC&#39;, &#39;Foo::Bar2&#39;,<br/>+ skip &#39;Double colons not allowed in dir spec&#39;, 1 if $Is_VMS;<br/>+ $lib = $Is_MacOS ? &#39;Foo::Bar2:&#39; : &#39;Foo::Bar2&#39;;<br/>+ fresh_perl_is(&quot;print grep { \$_ eq &#39;$lib&#39; } \@INC&quot;, $lib,<br/> { switches =&gt; [&#39;-IFoo::Bar2&#39;] }, &#39;-I with colons&#39;);<br/> }<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg294.html Tue, 11 Mar 2003 20:54:57 +0000 Change 18938: File::Spec::Unix method should be called on $self by Chris Nandor Change 18938 by pudge@pudge-mobile on 2003/03/12 03:15:26<br/><br/> File::Spec::Unix method should be called on $self<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/lib/File/Spec/Unix.pm#4 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/lib/File/Spec/Unix.pm#4 (text) ====<br/>Index: macperl/lib/File/Spec/Unix.pm<br/>--- macperl/lib/File/Spec/Unix.pm#3~18901~ Mon Mar 10 20:00:40 2003<br/>+++ macperl/lib/File/Spec/Unix.pm Tue Mar 11 19:15:26 2003<br/>@@ -88,7 +88,7 @@<br/> <br/> sub catfile {<br/> my $self = shift;<br/>- my $file = File::Spec-&gt;canonpath(pop @_);<br/>+ my $file = $self-&gt;canonpath(pop @_);<br/> return $file unless @_;<br/> my $dir = $self-&gt;catdir(@_);<br/> $dir .= &quot;/&quot; unless substr($dir,-1) eq &quot;/&quot;;<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg293.html Tue, 11 Mar 2003 20:54:56 +0000 Change 18939: lib.pm:_get_dirs() should use $_[0], not $_ by Chris Nandor Change 18939 by pudge@pudge-mobile on 2003/03/12 03:17:22<br/><br/> lib.pm:_get_dirs() should use $_[0], not $_<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/lib/lib_pm.PL#3 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/lib/lib_pm.PL#3 (text) ====<br/>Index: macperl/lib/lib_pm.PL<br/>--- macperl/lib/lib_pm.PL#2~18199~ Wed Nov 27 21:20:16 2002<br/>+++ macperl/lib/lib_pm.PL Tue Mar 11 19:17:22 2003<br/>@@ -112,11 +112,11 @@<br/> <br/> my %names;<br/> foreach (@_) {<br/>- local $_ = _nativize($_);<br/>+ my $path = _nativize($_);<br/> <br/> my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)<br/>- = _get_dirs($_);<br/>- ++$names{$_};<br/>+ = _get_dirs($path);<br/>+ ++$names{$path};<br/> ++$names{$arch_dir} if -d $arch_auto_dir;<br/> ++$names{$version_dir} if -d $version_dir;<br/> ++$names{$version_arch_dir} if -d $version_arch_dir;<br/>@@ -134,15 +134,15 @@<br/> # we could use this for all platforms in the future, but leave it<br/> # Mac-only for now, until there is more time for testing it.<br/> if ($Is_MacOS) {<br/>- $arch_auto_dir = File::Spec-&gt;catdir( $_, $archname, &#39;auto&#39; );<br/>- $arch_dir = File::Spec-&gt;catdir( $_, $archname, );<br/>- $version_dir = File::Spec-&gt;catdir( $_, $version );<br/>- $version_arch_dir = File::Spec-&gt;catdir( $_, $version, $archname );<br/>+ $arch_auto_dir = File::Spec-&gt;catdir( $dir, $archname, &#39;auto&#39; );<br/>+ $arch_dir = File::Spec-&gt;catdir( $dir, $archname, );<br/>+ $version_dir = File::Spec-&gt;catdir( $dir, $version );<br/>+ $version_arch_dir = File::Spec-&gt;catdir( $dir, $version, $archname );<br/> } else {<br/>- $arch_auto_dir = &quot;$_/$archname/auto&quot;;<br/>- $arch_dir = &quot;$_/$archname&quot;;<br/>- $version_dir = &quot;$_/$version&quot;;<br/>- $version_arch_dir = &quot;$_/$version/$archname&quot;;<br/>+ $arch_auto_dir = &quot;$dir/$archname/auto&quot;;<br/>+ $arch_dir = &quot;$dir/$archname&quot;;<br/>+ $version_dir = &quot;$dir/$version&quot;;<br/>+ $version_arch_dir = &quot;$dir/$version/$archname&quot;;<br/> }<br/> return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);<br/> }<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg292.html Tue, 11 Mar 2003 20:54:52 +0000 Change 18940: Update MacOS for new configpm by Chris Nandor Change 18940 by pudge@pudge-mobile on 2003/03/12 03:18:38<br/><br/> Update MacOS for new configpm<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/macos/configpm#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/macos/configpm#2 (text) ====<br/>Index: macperl/macos/configpm<br/>--- macperl/macos/configpm#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/configpm Tue Mar 11 19:18:38 2003<br/>@@ -1,68 +1,172 @@<br/> #!./miniperl -w<br/> <br/>-my $config_pm = $ARGV[0] || ($^O eq &#39;MacOS&#39; ? &#39;:lib:Config.pm&#39; : &#39;lib/Config.pm&#39;);<br/>-my $glossary = $ARGV[1] || ($^O eq &#39;MacOS&#39; ? &#39;::Porting:Glossary&#39; : &#39;Porting/Glossary&#39;);<br/>-@ARGV = $^O eq &#39;MacOS&#39; ? &quot;:config.sh&quot; : &quot;./config.sh&quot;;<br/>-<br/>-# list names to put first (and hence lookup fastest)<br/>-@fast = qw(archname osname osvers prefix libs libpth<br/>- dynamic_ext static_ext extensions dlsrc so<br/>- sig_name sig_num cc ccflags cppflags<br/>- privlibexp archlibexp installprivlib installarchlib<br/>- sharpbang startsh shsharp<br/>-);<br/>+# commonly used names to put first (and hence lookup fastest)<br/>+my %Common = map {($_,$_)}<br/>+ qw(archname osname osvers prefix libs libpth<br/>+ dynamic_ext static_ext dlsrc so<br/>+ cc ccflags cppflags<br/>+ privlibexp archlibexp installprivlib installarchlib<br/>+ sharpbang startsh shsharp<br/>+ );<br/> <br/> # names of things which may need to have slashes changed to double-colons<br/>-@extensions = qw(dynamic_ext static_ext extensions known_extensions);<br/>+my %Extensions = map {($_,$_)}<br/>+ qw(dynamic_ext static_ext extensions known_extensions);<br/>+<br/>+# allowed opts as well as specifies default and initial values<br/>+my %Allowed_Opts = (<br/>+ &#39;cross&#39; =&gt; &#39;&#39;, # --cross=PALTFORM - crosscompiling for PLATFORM<br/>+ &#39;glossary&#39; =&gt; 1, # --no-glossary - no glossary file inclusion, <br/>+ # for compactness<br/>+);<br/>+<br/>+sub opts {<br/>+ # user specified options<br/>+ my %given_opts = (<br/>+ # --opt=smth<br/>+ (map {/^--([\-_\w]+)=(.*)$/} @ARGV),<br/>+ # --opt --no-opt --noopt<br/>+ (map {/^no-?(.*)$/i?($1=&gt;0):($_=&gt;1)} map {/^--([\-_\w]+)$/} @ARGV),<br/>+ );<br/>+<br/>+ my %opts = (%Allowed_Opts, %given_opts);<br/>+<br/>+ for my $opt (grep {!exists $Allowed_Opts{$_}} keys %given_opts) {<br/>+ die &quot;option &#39;$opt&#39; is not recognized&quot;;<br/>+ }<br/>+ @ARGV = grep {!/^--/} @ARGV;<br/>+<br/>+ return %opts;<br/>+}<br/>+<br/>+<br/>+my %Opts = opts();<br/>+<br/>+my $Config_PM;<br/>+my $Glossary = $ARGV[1] || ($^O eq &#39;MacOS&#39; ? &#39;::Porting:Glossary&#39; : &#39;Porting/Glossary&#39;);<br/>+<br/>+if ($Opts{cross}) {<br/>+ # creating cross-platform config file<br/>+ mkdir &quot;xlib&quot;;<br/>+ mkdir &quot;xlib/$Opts{cross}&quot;;<br/>+ $Config_PM = $ARGV[0] || &quot;xlib/$Opts{cross}/Config.pm&quot;;<br/>+}<br/>+else {<br/>+ $Config_PM = $ARGV[0] || ($^O eq &#39;MacOS&#39; ? &#39;:lib:Config.pm&#39; : &#39;lib/Config.pm&#39;);<br/>+}<br/> <br/> <br/>-open CONFIG, &quot;&gt;$config_pm&quot; or die &quot;Can&#39;t open $config_pm: $!\n&quot;;<br/>-$myver = sprintf &quot;v%vd&quot;, $^V;<br/>+open CONFIG, &quot;&gt;$Config_PM&quot; or die &quot;Can&#39;t open $Config_PM: $!\n&quot;;<br/>+<br/>+my $myver = sprintf &quot;v%vd&quot;, $^V;<br/>+<br/>+printf CONFIG &lt;&lt;&#39;ENDOFBEG&#39;, ($myver) x 3;<br/>+# This file was created by configpm when Perl was built. Any changes<br/>+# made to this file will be lost the next time perl is built.<br/> <br/>-print CONFIG &lt;&lt;&#39;ENDOFBEG_NOQ&#39;, &lt;&lt;&quot;ENDOFBEG&quot;;<br/> package Config;<br/>-use Exporter ();<br/>-@EXPORT = qw(%Config);<br/>-@EXPORT_OK = qw(myconfig config_sh config_vars);<br/>+@EXPORT = qw(%%Config);<br/>+@EXPORT_OK = qw(myconfig config_sh config_vars config_re);<br/>+<br/>+my %%Export_Cache = map {($_ =&gt; 1)} (@EXPORT, @EXPORT_OK);<br/> <br/> # Define our own import method to avoid pulling in the full Exporter:<br/> sub import {<br/>- my $pkg = shift;<br/>- @_ = @EXPORT unless @_;<br/>- my @func = grep {$_ ne &#39;%Config&#39;} @_;<br/>- local $Exporter::ExportLevel = 1;<br/>- Exporter::import(&#39;Config&#39;, @func) if @func;<br/>- return if @func == @_;<br/>- my $callpkg = caller(0);<br/>- *{&quot;$callpkg\::Config&quot;} = \%Config;<br/>-}<br/>-<br/>-ENDOFBEG_NOQ<br/>-die &quot;Perl lib version ($myver) doesn&#39;t match executable version (\$])&quot;<br/>- unless \$^V;<br/>-<br/>-\$^V eq $myver<br/>- or die &quot;Perl lib version ($myver) doesn&#39;t match executable version (&quot; .<br/>- (sprintf &quot;v%vd&quot;,\$^V) . &quot;)&quot;;<br/>+ my $pkg = shift;<br/>+ @_ = @EXPORT unless @_;<br/> <br/>-# This file was created by configpm when Perl was built. Any changes<br/>-# made to this file will be lost the next time perl is built.<br/>+ my @funcs = grep $_ ne &#39;%%Config&#39;, @_;<br/>+ my $export_Config = @funcs &lt; @_ ? 1 : 0;<br/>+<br/>+ my $callpkg = caller(0);<br/>+ foreach my $func (@funcs) {<br/>+ die sprintf qq{&quot;%%s&quot; is not exported by the %%s module\n},<br/>+ $func, __PACKAGE__ unless $Export_Cache{$func};<br/>+ *{$callpkg.&#39;::&#39;.$func} = \&amp;{$func};<br/>+ }<br/>+<br/>+ *{&quot;$callpkg\::Config&quot;} = \%%Config if $export_Config;<br/>+ return;<br/>+}<br/>+<br/>+die &quot;Perl lib version (%s) doesn&#39;t match executable version ($])&quot;<br/>+ unless $^V;<br/>+<br/>+$^V eq %s<br/>+ or die &quot;Perl lib version (%s) doesn&#39;t match executable version (&quot; .<br/>+ sprintf(&quot;v%%vd&quot;,$^V) . &quot;)&quot;;<br/> <br/> ENDOFBEG<br/> <br/> <br/>-@fast{@fast} = @fast;<br/>-@extensions{@extensions} = @extensions;<br/>-@non_v=();<br/>-@v_fast=();<br/>-@v_others=();<br/>-$in_v = 0;<br/>+my @non_v = ();<br/>+my @v_fast = ();<br/>+my %v_fast = ();<br/>+my @v_others = ();<br/>+my $in_v = 0;<br/>+my %Data = ();<br/>+<br/>+# This is somewhat grim, but I want the code for parsing config.sh here and<br/>+# now so that I can expand $Config{ivsize} and $Config{ivtype}<br/>+<br/>+my $fetch_string = &lt;&lt;&#39;EOT&#39;;<br/>+<br/>+# Search for it in the big string <br/>+sub fetch_string {<br/>+ my($self, $key) = @_;<br/>+<br/>+ my $quote_type = &quot;&#39;&quot;;<br/>+ my $marker = &quot;$key=&quot;;<br/>+<br/>+ # Check for the common case, &#39; delimited<br/>+ my $start = index($Config_SH, &quot;\n$marker$quote_type&quot;);<br/>+ # If that failed, check for &quot; delimited<br/>+ if ($start == -1) {<br/>+ $quote_type = &#39;&quot;&#39;;<br/>+ $start = index($Config_SH, &quot;\n$marker$quote_type&quot;);<br/>+ }<br/>+ return undef if ( ($start == -1) &amp;&amp; # in case it&#39;s first <br/>+ (substr($Config_SH, 0, length($marker)) ne $marker) );<br/>+ if ($start == -1) { <br/>+ # It&#39;s the very first thing we found. Skip $start forward<br/>+ # and figure out the quote mark after the =.<br/>+ $start = length($marker) + 1;<br/>+ $quote_type = substr($Config_SH, $start - 1, 1);<br/>+ } <br/>+ else { <br/>+ $start += length($marker) + 2;<br/>+ }<br/>+<br/>+ my $value = substr($Config_SH, $start, <br/>+ index($Config_SH, &quot;$quote_type\n&quot;, $start) - $start);<br/>+<br/>+ # If we had a double-quote, we&#39;d better eval it so escape<br/>+ # sequences and such can be interpolated. Since the incoming<br/>+ # value is supposed to follow shell rules and not perl rules,<br/>+ # we escape any perl variable markers<br/>+ if ($quote_type eq &#39;&quot;&#39;) {<br/>+ $value =~ s/\$/\\\$/g;<br/>+ $value =~ s/\@/\\\@/g;<br/>+ eval &quot;\$value = \&quot;$value\&quot;&quot;;<br/>+ }<br/>+<br/>+ # So we can say &quot;if $Config{&#39;foo&#39;}&quot;.<br/>+ $value = undef if $value eq &#39;undef&#39;;<br/>+ $self-&gt;{$key} = $value; # cache it<br/>+}<br/>+EOT<br/> <br/>-while (&lt;&gt;) {<br/>+eval $fetch_string;<br/>+die if $@;<br/>+<br/>+open(CONFIG_SH, &#39;config.sh&#39;) || die &quot;Can&#39;t open config.sh: $!&quot;;<br/>+while (&lt;CONFIG_SH&gt;) {<br/> next if m:^#!/bin/sh:;<br/>+<br/> # Catch PERL_CONFIG_SH=true and PERL_VERSION=n line from Configure.<br/>- s/^(\w+)=(true|\d+)\s*$/$1=&#39;$2&#39;\n/;<br/>- my ($k,$v) = ($1,$2);<br/>+ s/^(\w+)=(true|\d+)\s*$/$1=&#39;$2&#39;\n/ or m/^(\w+)=&#39;(.*)&#39;$/;<br/>+ my($k, $v) = ($1, $2);<br/>+<br/> # grandfather PATCHLEVEL and SUBVERSION and CONFIG<br/> if ($k) {<br/> if ($k eq &#39;PERL_VERSION&#39;) {<br/>@@ -75,30 +179,40 @@<br/> push @v_others, &quot;CONFIG=&#39;$v&#39;\n&quot;;<br/> }<br/> }<br/>+<br/> # We can delimit things in config.sh with either &#39; or &quot;. <br/> unless ($in_v or m/^(\w+)=([&#39;&quot;])(.*\n)/){<br/> push(@non_v, &quot;#$_&quot;); # not a name=&#39;value&#39; line<br/> next;<br/> }<br/> $quote = $2;<br/>- if ($in_v) { $val .= $_; }<br/>- else { ($name,$val) = ($1,$3); }<br/>+ if ($in_v) { <br/>+ $val .= $_;<br/>+ }<br/>+ else { <br/>+ ($name,$val) = ($1,$3); <br/>+ }<br/> $in_v = $val !~ /$quote\n/;<br/> next if $in_v;<br/>- if ($extensions{$name}) { s,/,::,g }<br/>- if (!$fast{$name}){ push(@v_others, &quot;$name=$quote$val&quot;); next; }<br/>- push(@v_fast,&quot;$name=$quote$val&quot;);<br/>-}<br/> <br/>-foreach(@non_v){ print CONFIG $_ }<br/>+ s,/,::,g if $Extensions{$name};<br/> <br/>-print CONFIG &quot;\n&quot;,<br/>- &quot;my \$config_sh = &lt;&lt;&#39;!END!&#39;;\n&quot;,<br/>- join(&quot;&quot;, @v_fast, sort @v_others),<br/>- &quot;!END!\n\n&quot;;<br/>+ $val =~ s/$quote\n?\z//;<br/> <br/>-# copy config summary format from the myconfig.SH script<br/>+ my $line = &quot;$name=$quote$val$quote\n&quot;;<br/>+ if (!$Common{$name}){<br/>+ push(@v_others, $line);<br/>+ }<br/>+ else {<br/>+ push(@v_fast, $line);<br/>+ $v_fast{$name} = &quot;&#39;$name&#39; =&gt; $quote$val$quote&quot;;<br/>+ }<br/>+}<br/>+close CONFIG_SH;<br/>+<br/>+print CONFIG @non_v, &quot;\n&quot;;<br/> <br/>+# copy config summary format from the myconfig.SH script<br/> print CONFIG &quot;my \$summary = &lt;&lt;&#39;!END!&#39;;\n&quot;;<br/> <br/> open(MYCONFIG, ($^O eq &#39;MacOS&#39; ? &quot;&lt;::myconfig.SH&quot; : &quot;&lt;myconfig.SH&quot;))<br/>@@ -111,182 +225,149 @@<br/> my $summary_expanded = 0;<br/> <br/> sub myconfig {<br/>- return $summary if $summary_expanded;<br/>- $summary =~ s{\$(\w+)}<br/>- { my $c = $Config{$1}; defined($c) ? $c : &#39;undef&#39; }ge;<br/>- $summary_expanded = 1;<br/>- $summary;<br/>+ return $summary if $summary_expanded;<br/>+ $summary =~ s{\$(\w+)}<br/>+ { my $c = $Config{$1}; defined($c) ? $c : &#39;undef&#39; }ge;<br/>+ $summary_expanded = 1;<br/>+ $summary;<br/> }<br/>+<br/>+our $Config_SH : unique = &lt;&lt;&#39;!END!&#39;;<br/> EOT<br/> <br/>-# ----<br/>+print CONFIG join(&quot;&quot;, @v_fast, sort @v_others);<br/>+<br/>+print CONFIG &quot;!END!\n&quot;, $fetch_string;<br/> <br/> print CONFIG &lt;&lt;&#39;ENDOFEND&#39;;<br/> <br/>-sub FETCH { <br/>- # check for cached value (which may be undef so we use exists not defined)<br/>- return $_[0]-&gt;{$_[1]} if (exists $_[0]-&gt;{$_[1]});<br/>+sub fetch_virtual {<br/>+ my($self, $key) = @_;<br/> <br/>- # Search for it in the big string <br/>- my($value, $start, $marker, $quote_type);<br/>+ my $value;<br/> <br/>- $quote_type = &quot;&#39;&quot;;<br/>- # Virtual entries.<br/>- if ($_[1] eq &#39;byteorder&#39;) {<br/>- # byteorder does exist on its own but we overlay a virtual<br/>- # dynamically recomputed value. <br/>- my $t = $Config{ivtype};<br/>- my $s = $Config{ivsize};<br/>- my $f = $t eq &#39;long&#39; ? &#39;L!&#39; : $s == 8 ? &#39;Q&#39;: &#39;I&#39;;<br/>- if ($s == 4 || $s == 8) {<br/>- my $i = 0;<br/>- foreach my $c (reverse(2..$s)) { $i |= ord($c); $i &lt;&lt;= 8 }<br/>- $i |= ord(1);<br/>- $value = join(&#39;&#39;, unpack(&#39;a&#39;x$s, pack($f, $i)));<br/>- } else {<br/>- $value = &#39;?&#39;x$s;<br/>- }<br/>- } elsif ($_[1] =~ /^((?:cc|ld)flags|libs(?:wanted)?)_nolargefiles/) {<br/>+ if ($key =~ /^((?:cc|ld)flags|libs(?:wanted)?)_nolargefiles/) {<br/> # These are purely virtual, they do not exist, but need to<br/> # be computed on demand for largefile-incapable extensions.<br/>- my $key = &quot;${1}_uselargefiles&quot;;<br/>+ my $new_key = &quot;${1}_uselargefiles&quot;;<br/> $value = $Config{$1};<br/>- my $withlargefiles = $Config{$key};<br/>- if ($key =~ /^(?:cc|ld)flags_/) {<br/>+ my $withlargefiles = $Config{$new_key};<br/>+ if ($new_key =~ /^(?:cc|ld)flags_/) {<br/> $value =~ s/\Q$withlargefiles\E\b//;<br/>- } elsif ($key =~ /^libs/) {<br/>+ } elsif ($new_key =~ /^libs/) {<br/> my @lflibswanted = split(&#39; &#39;, $Config{libswanted_uselargefiles});<br/> if (@lflibswanted) {<br/> my %lflibswanted;<br/> @lflibswanted{@lflibswanted} = ();<br/>- if ($key =~ /^libs_/) {<br/>+ if ($new_key =~ /^libs_/) {<br/> my @libs = grep { /^-l(.+)/ &amp;&amp;<br/> not exists $lflibswanted{$1} }<br/> split(&#39; &#39;, $Config{libs});<br/> $Config{libs} = join(&#39; &#39;, @libs);<br/>- } elsif ($key =~ /^libswanted_/) {<br/>+ } elsif ($new_key =~ /^libswanted_/) {<br/> my @libswanted = grep { not exists $lflibswanted{$_} }<br/> split(&#39; &#39;, $Config{libswanted});<br/> $Config{libswanted} = join(&#39; &#39;, @libswanted);<br/> }<br/> }<br/> }<br/>- } else {<br/>- $marker = &quot;$_[1]=&quot;;<br/>- # return undef unless (($value) = $config_sh =~ m/^$_[1]=&#39;(.*)&#39;\s*$/m);<br/>- # Check for the common case, &#39; delimeted<br/>- $start = index($config_sh, &quot;\n$marker$quote_type&quot;);<br/>- # If that failed, check for &quot; delimited<br/>- if ($start == -1) {<br/>- $quote_type = &#39;&quot;&#39;;<br/>- $start = index($config_sh, &quot;\n$marker$quote_type&quot;);<br/>- }<br/>- return undef if ( ($start == -1) &amp;&amp; # in case it&#39;s first <br/>- (substr($config_sh, 0, length($marker)) ne $marker) );<br/>- if ($start == -1) { <br/>- # It&#39;s the very first thing we found. Skip $start forward<br/>- # and figure out the quote mark after the =.<br/>- $start = length($marker) + 1;<br/>- $quote_type = substr($config_sh, $start - 1, 1);<br/>- } <br/>- else { <br/>- $start += length($marker) + 2;<br/>- }<br/>- $value = substr($config_sh, $start, <br/>- index($config_sh, &quot;$quote_type\n&quot;, $start) - $start);<br/> }<br/>- # If we had a double-quote, we&#39;d better eval it so escape<br/>- # sequences and such can be interpolated. Since the incoming<br/>- # value is supposed to follow shell rules and not perl rules,<br/>- # we escape any perl variable markers<br/>- if ($quote_type eq &#39;&quot;&#39;) {<br/>- $value =~ s/\$/\\\$/g;<br/>- $value =~ s/\@/\\\@/g;<br/>- eval &quot;\$value = \&quot;$value\&quot;&quot;;<br/>- }<br/>- #$value = sprintf($value) if $quote_type eq &#39;&quot;&#39;;<br/>- # So we can say &quot;if $Config{&#39;foo&#39;}&quot;.<br/>- $value = undef if $value eq &#39;undef&#39;;<br/>- $_[0]-&gt;{$_[1]} = $value; # cache it<br/>- return $value;<br/>+<br/>+ $self-&gt;{$key} = $value;<br/>+}<br/>+<br/>+sub FETCH { <br/>+ my($self, $key) = @_;<br/>+<br/>+ # check for cached value (which may be undef so we use exists not defined)<br/>+ return $self-&gt;{$key} if exists $self-&gt;{$key};<br/>+<br/>+ $self-&gt;fetch_string($key);<br/>+ return $self-&gt;{$key} if exists $self-&gt;{$key};<br/>+ $self-&gt;fetch_virtual($key);<br/>+<br/>+ # Might not exist, in which undef is correct.<br/>+ return $self-&gt;{$key};<br/> }<br/> <br/> my $prevpos = 0;<br/> <br/> sub FIRSTKEY {<br/> $prevpos = 0;<br/>- # my($key) = $config_sh =~ m/^(.*?)=/;<br/>- substr($config_sh, 0, index($config_sh, &#39;=&#39;) );<br/>- # $key;<br/>+ substr($Config_SH, 0, index($Config_SH, &#39;=&#39;) );<br/> }<br/> <br/> sub NEXTKEY {<br/> # Find out how the current key&#39;s quoted so we can skip to its end.<br/>- my $quote = substr($config_sh, index($config_sh, &quot;=&quot;, $prevpos)+1, 1);<br/>- my $pos = index($config_sh, qq($quote\n), $prevpos) + 2;<br/>- my $len = index($config_sh, &quot;=&quot;, $pos) - $pos;<br/>+ my $quote = substr($Config_SH, index($Config_SH, &quot;=&quot;, $prevpos)+1, 1);<br/>+ my $pos = index($Config_SH, qq($quote\n), $prevpos) + 2;<br/>+ my $len = index($Config_SH, &quot;=&quot;, $pos) - $pos;<br/> $prevpos = $pos;<br/>- $len &gt; 0 ? substr($config_sh, $pos, $len) : undef;<br/>+ $len &gt; 0 ? substr($Config_SH, $pos, $len) : undef;<br/> }<br/> <br/> sub EXISTS { <br/>- # exists($_[0]-&gt;{$_[1]}) or $config_sh =~ m/^$_[1]=/m;<br/>- exists($_[0]-&gt;{$_[1]}) or<br/>- index($config_sh, &quot;\n$_[1]=&#39;&quot;) != -1 or<br/>- substr($config_sh, 0, length($_[1])+2) eq &quot;$_[1]=&#39;&quot; or<br/>- index($config_sh, &quot;\n$_[1]=\&quot;&quot;) != -1 or<br/>- substr($config_sh, 0, length($_[1])+2) eq &quot;$_[1]=\&quot;&quot; or<br/>- $_[1] =~ /^(?:(?:cc|ld)flags|libs(?:wanted)?)_nolargefiles$/;<br/>+ return 1 if exists($_[0]-&gt;{$_[1]});<br/>+<br/>+ return(index($Config_SH, &quot;\n$_[1]=&#39;&quot;) != -1 or<br/>+ substr($Config_SH, 0, length($_[1])+2) eq &quot;$_[1]=&#39;&quot; or<br/>+ index($Config_SH, &quot;\n$_[1]=\&quot;&quot;) != -1 or<br/>+ substr($Config_SH, 0, length($_[1])+2) eq &quot;$_[1]=\&quot;&quot; or<br/>+ $_[1] =~ /^(?:(?:cc|ld)flags|libs(?:wanted)?)_nolargefiles$/<br/>+ );<br/> }<br/> <br/> sub STORE { die &quot;\%Config::Config is read-only\n&quot; }<br/>-sub DELETE { &amp;STORE }<br/>-sub CLEAR { &amp;STORE }<br/>+*DELETE = \&amp;STORE;<br/>+*CLEAR = \&amp;STORE;<br/> <br/> <br/> sub config_sh {<br/>- $config_sh<br/>+ $Config_SH<br/> }<br/> <br/> sub config_re {<br/> my $re = shift;<br/>- my @matches = grep /^$re=/, split /^/, $config_sh;<br/>- @matches ? (print @matches) : print &quot;$re: not found\n&quot;;<br/>+ return map { chomp; $_ } grep /^$re=/, split /^/, $Config_SH;<br/> }<br/> <br/> sub config_vars {<br/>- foreach(@_){<br/>- config_re($_), next if /\W/;<br/>- my $v=(exists $Config{$_}) ? $Config{$_} : &#39;UNKNOWN&#39;;<br/>- $v=&#39;undef&#39; unless defined $v;<br/>- print &quot;$_=&#39;$v&#39;;\n&quot;;<br/>+ foreach (@_) {<br/>+ if (/\W/) {<br/>+ my @matches = config_re($_);<br/>+ print map &quot;$_\n&quot;, @matches ? @matches : &quot;$_: not found&quot;;<br/>+ } else {<br/>+ my $v = (exists $Config{$_}) ? $Config{$_} : &#39;UNKNOWN&#39;;<br/>+ $v = &#39;undef&#39; unless defined $v;<br/>+ print &quot;$_=&#39;$v&#39;;\n&quot;;<br/>+ }<br/> }<br/> }<br/> <br/> ENDOFEND<br/> <br/> if ($^O eq &#39;os2&#39;) {<br/>- print CONFIG &lt;&lt;&#39;ENDOFSET&#39;;<br/>+ print CONFIG &lt;&lt;&#39;ENDOFSET&#39;;<br/> my %preconfig;<br/> if ($OS2::is_aout) {<br/>- my ($value, $v) = $config_sh =~ m/^used_aout=&#39;(.*)&#39;\s*$/m;<br/>+ my ($value, $v) = $Config_SH =~ m/^used_aout=&#39;(.*)&#39;\s*$/m;<br/> for (split &#39; &#39;, $value) {<br/>- ($v) = $config_sh =~ m/^aout_$_=&#39;(.*)&#39;\s*$/m;<br/>+ ($v) = $Config_SH =~ m/^aout_$_=&#39;(.*)&#39;\s*$/m;<br/> $preconfig{$_} = $v eq &#39;undef&#39; ? undef : $v;<br/> }<br/> }<br/> $preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can&#39;t<br/> sub TIEHASH { bless {%preconfig} }<br/> ENDOFSET<br/>- # Extract the name of the DLL from the makefile to avoid duplication<br/>- my ($f) = grep -r, qw(GNUMakefile Makefile);<br/>- my $dll;<br/>- if (open my $fh, &#39;&lt;&#39;, $f) {<br/>- while (&lt;$fh&gt;) {<br/>- $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;<br/>+ # Extract the name of the DLL from the makefile to avoid duplication<br/>+ my ($f) = grep -r, qw(GNUMakefile Makefile);<br/>+ my $dll;<br/>+ if (open my $fh, &#39;&lt;&#39;, $f) {<br/>+ while (&lt;$fh&gt;) {<br/>+ $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;<br/>+ }<br/> }<br/>- }<br/>- print CONFIG &lt;&lt;ENDOFSET if $dll;<br/>+ print CONFIG &lt;&lt;ENDOFSET if $dll;<br/> \$preconfig{dll_name} = &#39;$dll&#39;;<br/> ENDOFSET<br/> } elsif ($^O eq &#39;MacOS&#39;) {<br/>@@ -310,21 +391,63 @@<br/> sub TIEHASH { bless { %preconfig } }<br/> ENDOFSET<br/> } else {<br/>- print CONFIG &lt;&lt;&#39;ENDOFSET&#39;;<br/>-sub TIEHASH { bless {} }<br/>+ print CONFIG &lt;&lt;&#39;ENDOFSET&#39;;<br/>+sub TIEHASH {<br/>+ bless $_[1], $_[0];<br/>+}<br/> ENDOFSET<br/> }<br/> <br/>-print CONFIG &lt;&lt;&#39;ENDOFTAIL&#39;;<br/>+<br/>+# Calculation for the keys for byteorder<br/>+# This is somewhat grim, but I need to run fetch_string here.<br/>+our $Config_SH = join &quot;\n&quot;, @v_fast, @v_others;<br/>+<br/>+my $t = fetch_string ({}, &#39;ivtype&#39;);<br/>+my $s = fetch_string ({}, &#39;ivsize&#39;);<br/>+<br/>+# byteorder does exist on its own but we overlay a virtual<br/>+# dynamically recomputed value.<br/>+<br/>+# However, ivtype and ivsize will not vary for sane fat binaries<br/>+<br/>+my $f = $t eq &#39;long&#39; ? &#39;L!&#39; : $s == 8 ? &#39;Q&#39;: &#39;I&#39;;<br/>+<br/>+my $byteorder_code;<br/>+if ($s == 4 || $s == 8) {<br/>+ my $list = join &#39;,&#39;, reverse(2..$s);<br/>+ my $format = &#39;a&#39;x$s;<br/>+ $byteorder_code = &lt;&lt;&quot;EOT&quot;;<br/>+my \$i = 0;<br/>+foreach my \$c ($list) { \$i |= ord(\$c); \$i &lt;&lt;= 8 }<br/>+\$i |= ord(1);<br/>+my \$value = join(&#39;&#39;, unpack(&#39;$format&#39;, pack(&#39;$f&#39;, \$i)));<br/>+EOT<br/>+} else {<br/>+ $byteorder_code = &quot;\$value = &#39;?&#39;x$s;\n&quot;;<br/>+}<br/>+<br/>+my $fast_config = join &#39;&#39;, map { &quot; $_,\n&quot; }<br/>+ values (%v_fast), &#39;byteorder =&gt; $value&#39; ;<br/>+<br/>+print CONFIG sprintf &lt;&lt;&#39;ENDOFTIE&#39;, $byteorder_code, $fast_config;<br/> <br/> # avoid Config..Exporter..UNIVERSAL search for DESTROY then AUTOLOAD<br/> sub DESTROY { }<br/> <br/>-tie %Config, &#39;Config&#39;;<br/>+%s<br/>+<br/>+tie %%Config, &#39;Config&#39;, {<br/>+%s<br/>+};<br/> <br/> 1;<br/>-__END__<br/>+ENDOFTIE<br/> <br/>+<br/>+my $podfile = $^O eq &#39;MacOS&#39; ? &#39;::lib:Config.pod&#39; : &#39;lib/Config.pod&#39;;<br/>+open(CONFIG_POD, &quot;&gt;$podfile&quot;) or die &quot;Can&#39;t open $podfile: $!&quot;;<br/>+print CONFIG_POD &lt;&lt;&#39;ENDOFTAIL&#39;;<br/> =head1 NAME<br/> <br/> Config - access Perl configuration information<br/>@@ -336,12 +459,14 @@<br/> print &quot;built by gcc\n&quot;;<br/> } <br/> <br/>- use Config qw(myconfig config_sh config_vars);<br/>+ use Config qw(myconfig config_sh config_vars config_re);<br/> <br/> print myconfig();<br/> <br/> print config_sh();<br/> <br/>+ print config_re();<br/>+<br/> config_vars(qw(osname archname));<br/> <br/> <br/>@@ -369,6 +494,11 @@<br/> Returns the entire perl configuration information in the form of the<br/> original config.sh shell variable assignment script.<br/> <br/>+=item config_re($regex)<br/>+<br/>+Like config_sh() but returns, as a list, only the config entries who&#39;s<br/>+names match the $regex.<br/>+<br/> =item config_vars(@names)<br/> <br/> Prints to STDOUT the values of the named configuration variable. Each is<br/>@@ -435,7 +565,9 @@<br/> <br/> ENDOFTAIL<br/> <br/>-open(GLOS, &quot;&lt;$glossary&quot;) or die &quot;Can&#39;t open $glossary: $!&quot;;<br/>+if ($Opts{glossary}) {<br/>+ open(GLOS, &quot;&lt;$Glossary&quot;) or die &quot;Can&#39;t open $Glossary: $!&quot;;<br/>+}<br/> %seen = ();<br/> $text = 0;<br/> $/ = &#39;&#39;;<br/>@@ -444,11 +576,11 @@<br/> if (s/\A(\w*)\s+\(([\w.]+)\):\s*\n(\t?)/=item C&lt;$1&gt;\n\nFrom F&lt;$2&gt;:\n\n/m) {<br/> my $c = substr $1, 0, 1;<br/> unless ($seen{$c}++) {<br/>- print CONFIG &lt;&lt;EOF if $text;<br/>+ print CONFIG_POD &lt;&lt;EOF if $text;<br/> =back<br/> <br/> EOF<br/>- print CONFIG &lt;&lt;EOF;<br/>+ print CONFIG_POD &lt;&lt;EOF;<br/> =head2 $c<br/> <br/> =over 4<br/>@@ -462,7 +594,7 @@<br/> ($text ? &quot; or another paragraph of description&quot; : () );<br/> }<br/> s/n&#39;t/n\00t/g; # leave can&#39;t, won&#39;t etc untouched<br/>- s/^\t\s+(.*)/\n\t$1\n/gm; # Indented lines ===&gt; paragraphs<br/>+ s/^\t\s+(.*)/\n$1/gm; # Indented lines ===&gt; new paragraph<br/> s/^(?&lt;!\n\n)\t(.*)/$1/gm; # Not indented lines ===&gt; text<br/> s{([\&#39;\&quot;])(?=[^\&#39;\&quot;\s]*[./][^\&#39;\&quot;\s]*\1)([^\&#39;\&quot;\s]+)\1}(F&lt;$2&gt;)g; # &#39;.o&#39;<br/> s{([\&#39;\&quot;])([^\&#39;\&quot;\s]+)\1}(C&lt;$2&gt;)g; # &quot;date&quot; command<br/>@@ -489,13 +621,16 @@<br/> s/n[\0]t/n&#39;t/g; # undo can&#39;t, won&#39;t damage<br/> }<br/> <br/>-&lt;GLOS&gt;; # Skip the preamble<br/>-while (&lt;GLOS&gt;) {<br/>- process;<br/>- print CONFIG;<br/>+if ($Opts{glossary}) {<br/>+ &lt;GLOS&gt;; # Skip the &quot;DO NOT EDIT&quot;<br/>+ &lt;GLOS&gt;; # Skip the preamble<br/>+ while (&lt;GLOS&gt;) {<br/>+ process;<br/>+ print CONFIG_POD;<br/>+ }<br/> }<br/> <br/>-print CONFIG &lt;&lt;&#39;ENDOFTAIL&#39;;<br/>+print CONFIG_POD &lt;&lt;&#39;ENDOFTAIL&#39;;<br/> <br/> =back<br/> <br/>@@ -511,21 +646,49 @@<br/> <br/> close(CONFIG);<br/> close(GLOS);<br/>+close(CONFIG_POD);<br/>+<br/>+# Now create Cross.pm if needed<br/>+if ($Opts{cross}) {<br/>+ open CROSS, &quot;&gt;lib/Cross.pm&quot; or die &quot;Can not open &gt;lib/Cross.pm: $!&quot;;<br/>+ my $cross = &lt;&lt;&#39;EOS&#39;;<br/>+# typical invocation:<br/>+# perl -MCross Makefile.PL<br/>+# perl -MCross=wince -V:cc<br/>+package Cross;<br/>+<br/>+sub import {<br/>+ my ($package,$platform) = @_;<br/>+ unless (defined $platform) {<br/>+ # if $platform is not specified, then use last one when<br/>+ # &#39;configpm; was invoked with --cross option<br/>+ $platform = &#39;***replace-marker***&#39;;<br/>+ }<br/>+ @INC = map {/\blib\b/?(do{local $_=$_;s/\blib\b/xlib\/$platform/;$_},$_):($_)} @INC;<br/>+ $::Cross::platform = $platform;<br/>+}<br/>+<br/>+1;<br/>+EOS<br/>+ $cross =~ s/\*\*\*replace-marker\*\*\*/$Opts{cross}/g;<br/>+ print CROSS $cross;<br/>+ close CROSS;<br/>+}<br/> <br/> # Now do some simple tests on the Config.pm file we have created<br/> unshift(@INC,&#39;lib&#39;);<br/>-require $config_pm;<br/>+require $Config_PM;<br/> import Config;<br/> <br/>-die &quot;$0: $config_pm not valid&quot;<br/>+die &quot;$0: $Config_PM not valid&quot;<br/> unless $Config{&#39;PERL_CONFIG_SH&#39;} eq &#39;true&#39;;<br/> <br/>-die &quot;$0: error processing $config_pm&quot;<br/>+die &quot;$0: error processing $Config_PM&quot;<br/> if defined($Config{&#39;an impossible name&#39;})<br/> or $Config{&#39;PERL_CONFIG_SH&#39;} ne &#39;true&#39; # test cache<br/> ;<br/> <br/>-die &quot;$0: error processing $config_pm&quot;<br/>+die &quot;$0: error processing $Config_PM&quot;<br/> if eval &#39;$Config{&quot;cc&quot;} = 1&#39;<br/> or eval &#39;delete $Config{&quot;cc&quot;}&#39;<br/> ;<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg291.html Tue, 11 Mar 2003 20:54:48 +0000 Change 18942: Integrate from maint-5.8/perl by Chris Nandor Change 18942 by pudge@pudge-mobile on 2003/03/12 03:31:48<br/><br/> Integrate from maint-5.8/perl<br/><br/>Affected files ...<br/><br/>... //depot/maint-5.8/macperl/Configure#4 integrate<br/>... //depot/maint-5.8/macperl/README.qnx#2 integrate<br/>... //depot/maint-5.8/macperl/emacs/cperl-mode.el#2 integrate<br/>... //depot/maint-5.8/macperl/ext/B/B/Concise.pm#4 integrate<br/>... //depot/maint-5.8/macperl/ext/DB_File/DB_File.pm#4 integrate<br/>... //depot/maint-5.8/macperl/ext/DB_File/DB_File.xs#3 integrate<br/>... //depot/maint-5.8/macperl/ext/Devel/PPPort/PPPort.pm#4 integrate<br/>... //depot/maint-5.8/macperl/ext/IO/lib/IO/Socket.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/IO/lib/IO/t/io_sock.t#3 integrate<br/>... //depot/maint-5.8/macperl/ext/PerlIO/encoding/encoding.xs#2 integrate<br/>... //depot/maint-5.8/macperl/ext/PerlIO/via/via.pm#2 integrate<br/>... //depot/maint-5.8/macperl/ext/Storable/Storable.xs#4 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/Changes#4 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/HiRes.pm#4 integrate<br/>... //depot/maint-5.8/macperl/ext/Time/HiRes/Makefile.PL#4 integrate<br/>... //depot/maint-5.8/macperl/ext/threads/shared/t/cond.t#2 integrate<br/>... //depot/maint-5.8/macperl/intrpvar.h#4 integrate<br/>... //depot/maint-5.8/macperl/lib/Config.t#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/FTP.pm#3 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/NNTP.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping.pm#4 integrate<br/>... //depot/maint-5.8/macperl/lib/Net/Ping/t/190_alarm.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Pod/Perldoc.pm#2 integrate<br/>... //depot/maint-5.8/macperl/lib/Tie/File/t/05_size.t#2 integrate<br/>... //depot/maint-5.8/macperl/lib/charnames.pm#4 integrate<br/>... //depot/maint-5.8/macperl/lib/ftp.pl#2 integrate<br/>... //depot/maint-5.8/macperl/lib/utf8.t#4 integrate<br/>... //depot/maint-5.8/macperl/mg.c#4 integrate<br/>... //depot/maint-5.8/macperl/pad.c#2 integrate<br/>... //depot/maint-5.8/macperl/perl.c#5 integrate<br/>... //depot/maint-5.8/macperl/perl.h#4 integrate<br/>... //depot/maint-5.8/macperl/pod/perldiag.pod#4 integrate<br/>... //depot/maint-5.8/macperl/pod/perlfunc.pod#4 integrate<br/>... //depot/maint-5.8/macperl/pod/perlintern.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perlthrtut.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/perltooc.pod#3 integrate<br/>... //depot/maint-5.8/macperl/pod/pod2latex.PL#2 integrate<br/>... //depot/maint-5.8/macperl/reentr.c#4 integrate<br/>... //depot/maint-5.8/macperl/reentr.pl#4 integrate<br/>... //depot/maint-5.8/macperl/regcomp.c#4 integrate<br/>... //depot/maint-5.8/macperl/sv.c#4 integrate<br/>... //depot/maint-5.8/macperl/sv.h#4 integrate<br/>... //depot/maint-5.8/macperl/t/io/utf8.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/op/magic.t#4 integrate<br/>... //depot/maint-5.8/macperl/t/op/tie.t#3 integrate<br/>... //depot/maint-5.8/macperl/t/run/switchC.t#2 integrate<br/>... //depot/maint-5.8/macperl/utils/libnetcfg.PL#3 integrate<br/>... //depot/maint-5.8/macperl/vms/perlvms.pod#2 integrate<br/>... //depot/maint-5.8/macperl/vms/vms.c#3 integrate<br/>... //depot/maint-5.8/macperl/win32/vmem.h#2 integrate<br/><br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2003/03/msg290.html Tue, 11 Mar 2003 20:54:44 +0000 Change 18246: Update Changes, Makefile.mk by Chris Nandor Change 18246 by pudge@pudge-mobile on 2002/12/04 12:51:38<br/><br/> Update Changes, Makefile.mk<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/Changes#10 edit<br/>.... //depot/maint-5.6/macperl/macos/Makefile.mk#13 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/Changes#10 (text) ====<br/>Index: macperl/macos/Changes<br/>--- macperl/macos/Changes#9~18201~ Wed Nov 27 22:01:31 2002<br/>+++ macperl/macos/Changes Wed Dec 4 04:51:38 2002<br/>@@ -29,6 +29,24 @@<br/> ----------------<br/> <br/> ____________________________________________________________________________<br/>+[ 18238] By: pudge on 2002/12/03 03:32:47<br/>+ Log: Provide workaround for MacPerl bug #494368,<br/>+ a stack overflow problem in Text::ParseWords with<br/>+ very long lines. Better to have the old version<br/>+ of the module available just in case.<br/>+ Branch: maint-5.6/macperl<br/>+ + macos/lib/Text/ParseWords/Old.pm<br/>+____________________________________________________________________________<br/>+[ 18237] By: pudge on 2002/12/03 03:31:20<br/>+ Log: Fix (already in 5.8) for not modifying @INC<br/>+ Branch: maint-5.6/macperl<br/>+ ! ext/DynaLoader/DynaLoader_pm.PL<br/>+____________________________________________________________________________<br/>+[ 18201] By: pudge on 2002/11/28 06:01:31<br/>+ Log: Bump version, update Changes/resources<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/Changes macos/MPVersion.r macos/macperl/MacPerl.rsrc<br/>+____________________________________________________________________________<br/> [ 18200] By: pudge on 2002/11/28 05:29:12<br/> Log: Yet another approach to signal handling (Matthias)<br/> Branch: macperl<br/>@@ -261,6 +279,57 @@<br/> Branch: maint-5.6/macperl<br/> ! lib/File/Copy.pm lib/File/Spec/Mac.pm macos/MacPerlTests.plx<br/> ! macos/configpm macos/macish.c macos/macish.h pp_ctl.c<br/>+____________________________________________________________________________<br/>+[ 16472] By: pudge on 2002/05/08 03:51:06<br/>+ Log: Add MacPerl.pm to Help menu, MacPerl Bug #533331<br/>+ Branch: macperl<br/>+ ! macos/macperl/MacPerl.podhelp<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/MacPerl.podhelp<br/>+____________________________________________________________________________<br/>+[ 16471] By: pudge on 2002/05/08 03:50:25<br/>+ Log: Reset Mac::err flag in app, MacPerl Bug #546065<br/>+ Branch: macperl<br/>+ ! macos/macperl/MPScript.c<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/MPScript.c<br/>+____________________________________________________________________________<br/>+[ 16470] By: pudge on 2002/05/08 03:49:32<br/>+ Log: Fix for some module install paths, MacPerl Bug #549611<br/>+ Branch: macperl<br/>+ ! macos/macperl/Droplets/installme.plx<br/>+ ! macos/macperl/Droplets/untarzipme.plx<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/Droplets/installme.plx<br/>+ ! macos/macperl/Droplets/untarzipme.plx<br/>+____________________________________________________________________________<br/>+[ 16469] By: pudge on 2002/05/08 03:48:53<br/>+ Log: Stupid Mac::OSA::Simple bugs<br/>+ Branch: macperl<br/>+ ! macos/lib/Mac/OSA/Simple.pm macos/macperl/Droplets/p2as.plx<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/OSA/Simple.pm macos/macperl/Droplets/p2as.plx<br/>+____________________________________________________________________________<br/>+[ 16468] By: pudge on 2002/05/08 03:48:15<br/>+ Log: Various BuildTools fixes, MacPerl Bug #545341<br/>+ Branch: macperl<br/>+ ! macos/lib/Mac/BuildTools.pm<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/BuildTools.pm<br/>+____________________________________________________________________________<br/>+[ 16465] By: pudge on 2002/05/08 03:45:47<br/>+ Log: Allow focus of first item, MacPerl Bug #529102<br/>+ Branch: macperl<br/>+ ! macos/ext/Mac/Windows/Windows.pm<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/ext/Mac/Windows/Windows.pm<br/>+____________________________________________________________________________<br/>+[ 16464] By: pudge on 2002/05/08 03:43:39<br/>+ Log: Don&#39;t open dirs in Mac::Glue, MacPerl Bug #529108<br/>+ Branch: macperl<br/>+ ! macos/lib/Mac/Glue.pm<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/Glue.pm<br/> <br/> ----------------<br/> Version v5.6.1r1<br/>@@ -275,22 +344,22 @@<br/> [ 15099] By: pudge on 2002/03/08 03:20:06<br/> Log: Replace macperlbundled with macperldelta<br/> Branch: maint-5.6/macperl<br/>- ! macos/macperl/MacPerl.podhelp<br/>+ ! macos/macperl/MacPerl.podhelp<br/> ____________________________________________________________________________<br/> [ 15098] By: pudge on 2002/03/08 03:19:44<br/> Log: Comsetic fixes (Thomas Wegner)<br/> Branch: maint-5.6/macperl<br/>- ! macos/macperl/MPBalloons.ball macos/macperl/MacPerl.r<br/>+ ! macos/macperl/MPBalloons.ball macos/macperl/MacPerl.r<br/> ____________________________________________________________________________<br/> [ 15097] By: pudge on 2002/03/08 03:19:08<br/> Log: Bump OS version<br/> Branch: maint-5.6/macperl<br/>- ! macos/config.sh<br/>+ ! macos/config.sh<br/> ____________________________________________________________________________<br/> [ 15090] By: pudge on 2002/03/08 02:15:01<br/> Log: Integrate recent perlport changes<br/> Branch: maint-5.6/macperl<br/>- !&gt; pod/perlport.pod<br/>+ !&gt; pod/perlport.pod<br/> ____________________________________________________________________________<br/> [ 14936] By: pudge on 2002/03/01 18:02:45<br/> Log: Update Changes<br/>@@ -337,11 +406,6 @@<br/> Log: Redo CopFILE / MacPerl_MPWFIleName patch<br/> Branch: maint-5.6/macperl<br/> ! cop.h deb.c pp_ctl.c toke.c util.c<br/>-____________________________________________________________________________<br/>-[ 14590] By: pudge on 2002/02/07 19:29:03<br/>- Log: Update Changes<br/>- Branch: maint-5.6/macperl<br/>- ! macos/Changes<br/> <br/> ----------------<br/> Version v5.6.1b4<br/>@@ -753,201 +817,201 @@<br/> [ 13156] By: pudge on 2001/11/21 03:19:09<br/> Log: Slight doc changes.<br/> Branch: maint-5.6/macperl<br/>- ! macos/macperl/MacPerl.podhelp<br/>+ ! macos/macperl/MacPerl.podhelp<br/> ____________________________________________________________________________<br/> [ 13155] By: pudge on 2001/11/21 03:18:48<br/> Log: Add UTF-16 coercion.<br/> Branch: maint-5.6/macperl<br/>- ! macos/lib/Mac/AppleEvents/Simple.pm<br/>+ ! macos/lib/Mac/AppleEvents/Simple.pm<br/> ____________________________________________________________________________<br/> [ 13154] By: pudge on 2001/11/21 03:16:55<br/> Log: Remove comments.<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Spec/Mac.pm<br/>+ ! lib/File/Spec/Mac.pm<br/> ____________________________________________________________________________<br/> [ 13153] By: pudge on 2001/11/21 03:16:00<br/> Log: Fix FSpGetCatInfo (and other functions) corrupting<br/> memory with bad filespecs (bug #471867)<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/Mac/Files/typemap macos/ext/Mac/typemap<br/>+ ! macos/ext/Mac/Files/typemap macos/ext/Mac/typemap<br/> ____________________________________________________________________________<br/> [ 13126] By: pudge on 2001/11/20 03:28:51<br/> Log: Make configpm work with extra keys<br/> Branch: maint-5.6/macperl<br/>- ! macos/configpm<br/>+ ! macos/configpm<br/> ____________________________________________________________________________<br/> [ 13125] By: pudge on 2001/11/20 03:28:09<br/> Log: Version and doc updates<br/> Branch: maint-5.6/macperl<br/>- ! macos/MPVersion.r macos/macperl/MacPerl.podhelp<br/>+ ! macos/MPVersion.r macos/macperl/MacPerl.podhelp<br/> ____________________________________________________________________________<br/> [ 13124] By: pudge on 2001/11/20 03:27:44<br/> Log: More fixes for error message parsing (bug #470316)<br/> Branch: maint-5.6/macperl<br/>- ! macos/macish.c<br/>+ ! macos/macish.c<br/> ____________________________________________________________________________<br/> [ 13123] By: pudge on 2001/11/20 03:26:32<br/> Log: Fix ctrl-D handling (bug #471436), more exit fixes (bug #467732),<br/> remove obsolete function (bug #465225)<br/> Branch: maint-5.6/macperl<br/>- ! macos/macperl/MPConsole.cp macos/macperl/MPMain.c<br/>- ! macos/macperl/MPScript.c<br/>+ ! macos/macperl/MPConsole.cp macos/macperl/MPMain.c<br/>+ ! macos/macperl/MPScript.c<br/> ____________________________________________________________________________<br/> [ 13122] By: pudge on 2001/11/20 03:20:17<br/> Log: Add p2as droplet to distribution.<br/> Branch: maint-5.6/macperl<br/>- + macos/macperl/Droplets/p2as.plx<br/>+ + macos/macperl/Droplets/p2as.plx<br/> ____________________________________________________________________________<br/> [ 13121] By: pudge on 2001/11/20 03:10:36<br/> Log: Bundle File::Sort.<br/> Branch: maint-5.6/macperl<br/>- + macos/bundled_lib/blib/lib/File/Sort.pm<br/>+ + macos/bundled_lib/blib/lib/File/Sort.pm<br/> ____________________________________________________________________________<br/> [ 13120] By: pudge on 2001/11/20 03:09:21<br/> Log: Various bundled module fixes.<br/> Branch: maint-5.6/macperl<br/>- ! macos/bundled_ext/Compress/Zlib/Makefile.mk<br/>- ! macos/bundled_ext/Digest/MD5/t/files.t<br/>- ! macos/bundled_ext/Filter/t/filter-util.pl<br/>- ! macos/bundled_lib/blib/lib/Net/Config.pm<br/>- ! macos/bundled_lib/t/libwww-perl/live/jigsaw-chunk.t<br/>+ ! macos/bundled_ext/Compress/Zlib/Makefile.mk<br/>+ ! macos/bundled_ext/Digest/MD5/t/files.t<br/>+ ! macos/bundled_ext/Filter/t/filter-util.pl<br/>+ ! macos/bundled_lib/blib/lib/Net/Config.pm<br/>+ ! macos/bundled_lib/t/libwww-perl/live/jigsaw-chunk.t<br/> ____________________________________________________________________________<br/> [ 13119] By: pudge on 2001/11/20 03:08:27<br/> Log: Portability fix for Pod::Html.<br/> Branch: maint-5.6/macperl<br/>- ! lib/Pod/Html.pm<br/>+ ! lib/Pod/Html.pm<br/> ____________________________________________________________________________<br/> [ 13116] By: pudge on 2001/11/20 02:47:23<br/> Log: Integrate with maint-5.6/perl.<br/> Branch: maint-5.6/macperl<br/>- !&gt; win32/win32.c<br/>+ !&gt; win32/win32.c<br/> ____________________________________________________________________________<br/> [ 12967] By: pudge on 2001/11/13 05:44:13<br/> Log: Docs for Mac::err.<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/Mac/err/err.pm<br/>+ ! macos/ext/Mac/err/err.pm<br/> ____________________________________________________________________________<br/> [ 12966] By: pudge on 2001/11/13 05:43:58<br/> Log: Some cleanup; change some globals to references for<br/> possible persistence later.<br/> Branch: maint-5.6/macperl<br/>- ! macos/lib/Mac/Glue.pm<br/>+ ! macos/lib/Mac/Glue.pm<br/> ____________________________________________________________________________<br/> [ 12965] By: pudge on 2001/11/13 05:42:59<br/> Log: Add in a bunch of Mac OS 9 constants for Mac::Files.<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/Mac/Files/Files.pm<br/>+ ! macos/ext/Mac/Files/Files.pm<br/> ____________________________________________________________________________<br/> [ 12964] By: pudge on 2001/11/13 05:42:35<br/> Log: Get Mac::Navigation to compile (bug #464684).<br/> Branch: maint-5.6/macperl<br/>- ! macos/Makefile.mk macos/ext/Mac/Makefile.mk<br/>- ! macos/ext/Mac/Navigation/Makefile.PL<br/>- ! macos/ext/Mac/Navigation/Navigation.xs<br/>- ! macos/macperl/Makefile.mk<br/>+ ! macos/Makefile.mk macos/ext/Mac/Makefile.mk<br/>+ ! macos/ext/Mac/Navigation/Makefile.PL<br/>+ ! macos/ext/Mac/Navigation/Navigation.xs<br/>+ ! macos/macperl/Makefile.mk<br/> ____________________________________________________________________________<br/> [ 12963] By: pudge on 2001/11/13 05:41:12<br/> Log: Add in modules and POD to help menu.<br/> Branch: maint-5.6/macperl<br/>- ! macos/macperl/MacPerl.podhelp<br/>+ ! macos/macperl/MacPerl.podhelp<br/> ____________________________________________________________________________<br/> [ 12962] By: pudge on 2001/11/13 05:28:18<br/> Log: Update bundled modules.<br/> Branch: maint-5.6/macperl<br/>- + macos/bundled_ext/Filter/t/FilterTest.pm<br/>- + macos/bundled_ext/List/Util/t/shuffle.t<br/>- + macos/bundled_ext/Storable/t/compat06.t<br/>- + macos/bundled_ext/Storable/t/st-dump.pl<br/>- + macos/bundled_ext/Time/HiRes/hints/dynixptx.pl<br/>- + macos/bundled_lib/blib/lib/LWP/ConnCache.pm<br/>- + macos/bundled_lib/blib/lib/LWP/Protocol/http10.pm<br/>- + macos/bundled_lib/blib/lib/LWP/Protocol/https10.pm<br/>- + macos/bundled_lib/blib/lib/LWP/Protocol/nogo.pm<br/>- + macos/bundled_lib/blib/lib/Net/HTTP/NB.pm<br/>- + macos/bundled_lib/blib/lib/lwpcook.pod<br/>- + macos/bundled_lib/t/Filter/Simple/filter.t<br/>- + macos/bundled_lib/t/Switch/t/given.t<br/>- + macos/bundled_lib/t/Switch/t/nested.t<br/>- + macos/bundled_lib/t/Switch/t/switch.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/extbrk.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/extcbk.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/extdel.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/extmul.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/extqlk.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/exttag.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/extvar.t<br/>- + macos/bundled_lib/t/Text/Balanced/t/gentag.t<br/>- + macos/bundled_lib/t/URI/rfc2732.t<br/>- + macos/bundled_lib/t/libnet/config.t<br/>- + macos/bundled_lib/t/libnet/libnet_t.pl<br/>- + macos/bundled_lib/t/libwww-perl/live/google.t<br/>- + macos/bundled_lib/t/libwww-perl/live/jigsaw-auth-b.t<br/>- + macos/bundled_lib/t/libwww-perl/live/jigsaw-auth-d.t<br/>- + macos/bundled_lib/t/libwww-perl/live/jigsaw-chunk.t<br/>- + macos/bundled_lib/t/libwww-perl/live/jigsaw-md5.t<br/>- + macos/bundled_lib/t/libwww-perl/live/jigsaw-neg.t<br/>- + macos/bundled_lib/t/libwww-perl/live/jigsaw-te.t<br/>- + macos/bundled_lib/t/libwww-perl/live/validator.t<br/>- - macos/bundled_ext/Filter/t/MyFilter.pm<br/>- - macos/bundled_ext/Storable/t/compat-0.6.t<br/>- - macos/bundled_ext/Storable/t/dump.pl<br/>- - macos/bundled_ext/Time/Piece/Makefile.PL<br/>- - macos/bundled_ext/Time/Piece/Piece.pm<br/>- - macos/bundled_ext/Time/Piece/Piece.t<br/>- - macos/bundled_ext/Time/Piece/Piece.xs<br/>- - macos/bundled_ext/Time/Piece/README<br/>- - macos/bundled_ext/Time/Piece/Seconds.pm<br/>- - macos/bundled_lib/blib/lib/LWP/Protocol/http11.pm<br/>- - macos/bundled_lib/blib/lib/Net/DummyInetd.pm<br/>- - macos/bundled_lib/blib/lib/Net/PH.pm<br/>- - macos/bundled_lib/blib/lib/Net/SNPP.pm<br/>- - macos/bundled_lib/blib/lib/Text/Balanced.pod<br/>- - macos/bundled_lib/t/Filter/Simple/test.pl<br/>- - macos/bundled_lib/t/Switch/test.pl<br/>- - macos/bundled_lib/t/Text/Balanced/t/genxt.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xbrak.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xcode.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xdeli.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xmult.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xquot.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xtagg.t<br/>- - macos/bundled_lib/t/Text/Balanced/t/xvari.t<br/>- - macos/bundled_lib/t/libnet/ph.t<br/>- ! (edit 125 files)<br/>+ + macos/bundled_ext/Filter/t/FilterTest.pm<br/>+ + macos/bundled_ext/List/Util/t/shuffle.t<br/>+ + macos/bundled_ext/Storable/t/compat06.t<br/>+ + macos/bundled_ext/Storable/t/st-dump.pl<br/>+ + macos/bundled_ext/Time/HiRes/hints/dynixptx.pl<br/>+ + macos/bundled_lib/blib/lib/LWP/ConnCache.pm<br/>+ + macos/bundled_lib/blib/lib/LWP/Protocol/http10.pm<br/>+ + macos/bundled_lib/blib/lib/LWP/Protocol/https10.pm<br/>+ + macos/bundled_lib/blib/lib/LWP/Protocol/nogo.pm<br/>+ + macos/bundled_lib/blib/lib/Net/HTTP/NB.pm<br/>+ + macos/bundled_lib/blib/lib/lwpcook.pod<br/>+ + macos/bundled_lib/t/Filter/Simple/filter.t<br/>+ + macos/bundled_lib/t/Switch/t/given.t<br/>+ + macos/bundled_lib/t/Switch/t/nested.t<br/>+ + macos/bundled_lib/t/Switch/t/switch.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/extbrk.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/extcbk.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/extdel.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/extmul.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/extqlk.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/exttag.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/extvar.t<br/>+ + macos/bundled_lib/t/Text/Balanced/t/gentag.t<br/>+ + macos/bundled_lib/t/URI/rfc2732.t<br/>+ + macos/bundled_lib/t/libnet/config.t<br/>+ + macos/bundled_lib/t/libnet/libnet_t.pl<br/>+ + macos/bundled_lib/t/libwww-perl/live/google.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/jigsaw-auth-b.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/jigsaw-auth-d.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/jigsaw-chunk.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/jigsaw-md5.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/jigsaw-neg.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/jigsaw-te.t<br/>+ + macos/bundled_lib/t/libwww-perl/live/validator.t<br/>+ - macos/bundled_ext/Filter/t/MyFilter.pm<br/>+ - macos/bundled_ext/Storable/t/compat-0.6.t<br/>+ - macos/bundled_ext/Storable/t/dump.pl<br/>+ - macos/bundled_ext/Time/Piece/Makefile.PL<br/>+ - macos/bundled_ext/Time/Piece/Piece.pm<br/>+ - macos/bundled_ext/Time/Piece/Piece.t<br/>+ - macos/bundled_ext/Time/Piece/Piece.xs<br/>+ - macos/bundled_ext/Time/Piece/README<br/>+ - macos/bundled_ext/Time/Piece/Seconds.pm<br/>+ - macos/bundled_lib/blib/lib/LWP/Protocol/http11.pm<br/>+ - macos/bundled_lib/blib/lib/Net/DummyInetd.pm<br/>+ - macos/bundled_lib/blib/lib/Net/PH.pm<br/>+ - macos/bundled_lib/blib/lib/Net/SNPP.pm<br/>+ - macos/bundled_lib/blib/lib/Text/Balanced.pod<br/>+ - macos/bundled_lib/t/Filter/Simple/test.pl<br/>+ - macos/bundled_lib/t/Switch/test.pl<br/>+ - macos/bundled_lib/t/Text/Balanced/t/genxt.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xbrak.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xcode.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xdeli.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xmult.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xquot.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xtagg.t<br/>+ - macos/bundled_lib/t/Text/Balanced/t/xvari.t<br/>+ - macos/bundled_lib/t/libnet/ph.t<br/>+ ! (edit 125 files)<br/> ____________________________________________________________________________<br/> [ 12822] By: pudge on 2001/11/02 21:38:22<br/> Log: Several fixes for various exit problems and clearing out<br/> task queue, as well as another (incomplete) go at<br/> fixing error message handling<br/> Branch: maint-5.6/macperl<br/>- ! macos/macish.c macos/macish.h macos/macperl/MPConsole.cp<br/>+ ! macos/macish.c macos/macish.h macos/macperl/MPConsole.cp<br/> ____________________________________________________________________________<br/> [ 12821] By: pudge on 2001/11/02 21:36:26<br/> Log: Add source files for bleadperl builds<br/> Branch: maint-5.6/macperl<br/>- ! macos/Makefile.mk<br/>+ ! macos/Makefile.mk<br/> ____________________________________________________________________________<br/> [ 12820] By: pudge on 2001/11/02 21:35:15<br/> Log: Fix up to work properly with multiplicity<br/> Branch: maint-5.6/macperl<br/>- ! ext/DynaLoader/dl_mac.xs<br/>+ ! ext/DynaLoader/dl_mac.xs<br/> ____________________________________________________________________________<br/> [ 12819] By: pudge on 2001/11/02 21:21:56<br/> Log: Integrate with maintperl.<br/> Branch: maint-5.6/macperl<br/>- +&gt; t/op/system.t t/op/system_tests<br/>- !&gt; MANIFEST Todo-5.6 ext/ODBM_File/ODBM_File.xs perl.h<br/>- !&gt; pod/perltodo.pod util.c win32/win32.c<br/>+ +&gt; t/op/system.t t/op/system_tests<br/>+ !&gt; MANIFEST Todo-5.6 ext/ODBM_File/ODBM_File.xs perl.h<br/>+ !&gt; pod/perltodo.pod util.c win32/win32.c<br/> ____________________________________________________________________________<br/> [ 12699] By: pudge on 2001/10/26 20:49:00<br/> Log: Integrate a buncha things from maintperl.<br/> Branch: maint-5.6/macperl<br/>- !&gt; (integrate 32 files)<br/>+ !&gt; (integrate 32 files)<br/> ____________________________________________________________________________<br/> [ 12586] By: pudge on 2001/10/22 19:42:04<br/> Log: Integrate with maintperl.<br/> Branch: maint-5.6/macperl<br/>- !&gt; win32/bin/pl2bat.pl win32/win32.c<br/>+ !&gt; win32/bin/pl2bat.pl win32/win32.c<br/> ____________________________________________________________________________<br/> [ 12585] By: pudge on 2001/10/22 19:32:02<br/> Log: Oops, forgot to include Win32 ... just as well, since it<br/>@@ -955,77 +1019,77 @@<br/> (adding C:\temp). Re-added. Rip it back out if it<br/> doesn&#39;t belong. :-)<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Spec/Win32.pm<br/>+ ! lib/File/Spec/Win32.pm<br/> ____________________________________________________________________________<br/> [ 12583] By: pudge on 2001/10/22 19:26:00<br/> Log: Add in lots of File::Spec changes, from Thomas Wegner,<br/> and sync with changes from bleadperl.<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Spec.pm lib/File/Spec/Epoc.pm<br/>- ! lib/File/Spec/Functions.pm lib/File/Spec/Mac.pm<br/>- ! lib/File/Spec/Unix.pm lib/File/Spec/VMS.pm<br/>- ! lib/File/Spec/Win32.pm t/lib/filespec.t<br/>+ ! lib/File/Spec.pm lib/File/Spec/Epoc.pm<br/>+ ! lib/File/Spec/Functions.pm lib/File/Spec/Mac.pm<br/>+ ! lib/File/Spec/Unix.pm lib/File/Spec/VMS.pm<br/>+ ! lib/File/Spec/Win32.pm t/lib/filespec.t<br/> ____________________________________________________________________________<br/> [ 12582] By: pudge on 2001/10/22 19:23:28<br/> Log: Sync with latest File::Find and tests from bleadperl.<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Find.pm t/lib/filefind-taint.t t/lib/filefind.t<br/>+ ! lib/File/Find.pm t/lib/filefind-taint.t t/lib/filefind.t<br/> ____________________________________________________________________________<br/> [ 12581] By: pudge on 2001/10/22 19:22:12<br/> Log: Nit.<br/> Branch: maint-5.6/macperl<br/>- ! perl.c<br/>+ ! perl.c<br/> ____________________________________________________________________________<br/> [ 12580] By: pudge on 2001/10/22 19:21:37<br/> Log: Fix path construction.<br/> Branch: maint-5.6/macperl<br/>- ! ext/DynaLoader/DynaLoader_pm.PL<br/>+ ! ext/DynaLoader/DynaLoader_pm.PL<br/> ____________________________________________________________________________<br/> [ 12578] By: pudge on 2001/10/22 19:02:34<br/> Log: Fix up exported symbols, move relevant docs<br/> over from macperl.pod.<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/MacPerl/MacPerl.pm<br/>+ ! macos/ext/MacPerl/MacPerl.pm<br/> ____________________________________________________________________________<br/> [ 12577] By: pudge on 2001/10/22 19:01:38<br/> Log: Make ADDRESS called optionally as a method.<br/> Branch: maint-5.6/macperl<br/>- ! macos/lib/Mac/Glue.pm<br/>+ ! macos/lib/Mac/Glue.pm<br/> ____________________________________________________________________________<br/> [ 12576] By: pudge on 2001/10/22 18:58:22<br/> Log: Fix exit code (MacPerl bug #422129) and add Stop Script<br/> Apple event.<br/> Branch: maint-5.6/macperl<br/>- ! macos/macish.c macos/macish.h macos/macperl/MPAppleEvents.c<br/>- ! macos/macperl/MPConsole.cp macos/macperl/MPMain.c<br/>- ! macos/macperl/MPTerminology.aete<br/>+ ! macos/macish.c macos/macish.h macos/macperl/MPAppleEvents.c<br/>+ ! macos/macperl/MPConsole.cp macos/macperl/MPMain.c<br/>+ ! macos/macperl/MPTerminology.aete<br/> ____________________________________________________________________________<br/> [ 12575] By: pudge on 2001/10/22 18:56:34<br/> Log: Clean up some build utilities. Change Entab to Duplicate;<br/> fix docs and error reporting; improve macify() of paths;<br/> remove requirement for Exporter.pm presence.<br/> Branch: maint-5.6/macperl<br/>- ! macos/InstallBLIB macos/MacPerlTests.cmd<br/>- ! macos/lib/ExtUtils/MM_MacOS.pm macos/lib/Mac/BuildTools.pm<br/>+ ! macos/InstallBLIB macos/MacPerlTests.cmd<br/>+ ! macos/lib/ExtUtils/MM_MacOS.pm macos/lib/Mac/BuildTools.pm<br/> ____________________________________________________________________________<br/> [ 12574] By: pudge on 2001/10/22 18:53:28<br/> Log: Sync Time::HiRes with bleadperl<br/> Branch: maint-5.6/macperl<br/>- ! macos/bundled_ext/Time/HiRes/HiRes.pm<br/>- ! macos/bundled_ext/Time/HiRes/HiRes.t<br/>- ! macos/bundled_ext/Time/HiRes/HiRes.xs<br/>+ ! macos/bundled_ext/Time/HiRes/HiRes.pm<br/>+ ! macos/bundled_ext/Time/HiRes/HiRes.t<br/>+ ! macos/bundled_ext/Time/HiRes/HiRes.xs<br/> ____________________________________________________________________________<br/> [ 12573] By: pudge on 2001/10/22 18:52:58<br/> Log: Fix up Changes<br/> Branch: maint-5.6/macperl<br/>- ! macos/Changes<br/>+ ! macos/Changes<br/> ____________________________________________________________________________<br/> [ 12553] By: pudge on 2001/10/21 21:51:34<br/> Log: Integrate from maintperl<br/> (Changes 12350, 12496, 12548, 12549, 12550)<br/> Branch: maint-5.6/macperl<br/>- !&gt; ext/IO/lib/IO/Seekable.pm lib/Carp/Heavy.pm t/base/rs.t<br/>- !&gt; t/lib/filefind-taint.t t/pragma/strict-vars toke.c<br/>+ !&gt; ext/IO/lib/IO/Seekable.pm lib/Carp/Heavy.pm t/base/rs.t<br/>+ !&gt; t/lib/filefind-taint.t t/pragma/strict-vars toke.c<br/> <br/> ----------------<br/> Version v5.6.1b1<br/>@@ -1036,145 +1100,145 @@<br/> Log: Update various resources for credits,<br/> minor icons fixes, and versions.<br/> Branch: maint-5.6/macperl<br/>- ! macos/MPVersion.r macos/Perl.r macos/macperl/MPDroplet.r<br/>- ! macos/macperl/MPExtension.rsrc macos/macperl/MPSave.c<br/>- ! macos/macperl/MacPerl.r macos/macperl/MacPerl.rsrc<br/>+ ! macos/MPVersion.r macos/Perl.r macos/macperl/MPDroplet.r<br/>+ ! macos/macperl/MPExtension.rsrc macos/macperl/MPSave.c<br/>+ ! macos/macperl/MacPerl.r macos/macperl/MacPerl.rsrc<br/> ____________________________________________________________________________<br/> [ 12330] By: pudge on 2001/10/03 19:17:25<br/> Log: Quiet the warnings about using undef value<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Temp.pm<br/>+ ! lib/File/Temp.pm<br/> ____________________________________________________________________________<br/> [ 12329] By: pudge on 2001/10/03 19:14:59<br/> Log: Fix up Ballon Help and Help menu docs (first pass);<br/> remove balloon rez file, and autogenerate with<br/> Balloon2Rez instead.<br/> Branch: maint-5.6/macperl<br/>- + macos/macperl/macscripts/Balloon2Rez<br/>- - macos/macperl/MPBalloons.r<br/>- ! macos/macperl/MPBalloons.ball macos/macperl/MacPerl.podhelp<br/>+ + macos/macperl/macscripts/Balloon2Rez<br/>+ - macos/macperl/MPBalloons.r<br/>+ ! macos/macperl/MPBalloons.ball macos/macperl/MacPerl.podhelp<br/> ____________________________________________________________________________<br/> [ 12328] By: pudge on 2001/10/03 19:11:15<br/> Log: Allow overriding of defaults, for change #12327.<br/> Branch: maint-5.6/macperl<br/>- ! perl.h<br/>+ ! perl.h<br/> ____________________________________________________________________________<br/> [ 12327] By: pudge on 2001/10/03 19:10:26<br/> Log: Override PerlProc_exit.<br/> Branch: maint-5.6/macperl<br/>- ! macos/macish.h<br/>+ ! macos/macish.h<br/> ____________________________________________________________________________<br/> [ 12326] By: pudge on 2001/10/03 19:08:28<br/> Log: Add in new macos/ modules, fix up BuildTools and Makefile.<br/> Branch: maint-5.6/macperl<br/>- + macos/bundled_lib/blib/lib/MD5.pm<br/>- + macos/bundled_lib/t/MD5/md5.t macos/lib/Mac/AETE/App.pm<br/>- + macos/lib/Mac/AETE/Dialect.pm<br/>- + macos/lib/Mac/AETE/Format/Converter.pm<br/>- + macos/lib/Mac/AETE/Format/Dictionary.pm<br/>- + macos/lib/Mac/AETE/Format/Glue.pm macos/lib/Mac/AETE/Parser.pm<br/>- + macos/lib/Mac/Glue.pm macos/lib/Mac/OSA/Simple.pm<br/>- + macos/lib/Mac/Toolbox.pod<br/>- ! macos/Makefile.mk macos/lib/Mac/BuildTools.pm<br/>+ + macos/bundled_lib/blib/lib/MD5.pm<br/>+ + macos/bundled_lib/t/MD5/md5.t macos/lib/Mac/AETE/App.pm<br/>+ + macos/lib/Mac/AETE/Dialect.pm<br/>+ + macos/lib/Mac/AETE/Format/Converter.pm<br/>+ + macos/lib/Mac/AETE/Format/Dictionary.pm<br/>+ + macos/lib/Mac/AETE/Format/Glue.pm macos/lib/Mac/AETE/Parser.pm<br/>+ + macos/lib/Mac/Glue.pm macos/lib/Mac/OSA/Simple.pm<br/>+ + macos/lib/Mac/Toolbox.pod<br/>+ ! macos/Makefile.mk macos/lib/Mac/BuildTools.pm<br/> ____________________________________________________________________________<br/> [ 12325] By: pudge on 2001/10/03 18:51:28<br/> Log: Sync up silly CVS headers ... I should commit CVS<br/> first to avoid this ...<br/> Branch: maint-5.6/macperl<br/>- ! macos/config.h macos/ext/Mac/ExtUtils/MakeToolboxModule<br/>- ! macos/ext/Mac/Fonts/Fonts.xs macos/ext/MacPerl/MacPerl.xs<br/>- ! macos/macperl/MPEditor.c macos/macperl/MPGlobals.h<br/>- ! macos/macperl/MPScript.c macos/macperl/MPUtils.c<br/>+ ! macos/config.h macos/ext/Mac/ExtUtils/MakeToolboxModule<br/>+ ! macos/ext/Mac/Fonts/Fonts.xs macos/ext/MacPerl/MacPerl.xs<br/>+ ! macos/macperl/MPEditor.c macos/macperl/MPGlobals.h<br/>+ ! macos/macperl/MPScript.c macos/macperl/MPUtils.c<br/> ____________________________________________________________________________<br/> [ 12324] By: pudge on 2001/10/03 18:44:09<br/> Log: Fix Matthias&#39; address, and attributions.<br/> Branch: maint-5.6/macperl<br/>- ! AUTHORS README.macos ext/DynaLoader/dl_mac.xs perl.c<br/>- ! pod/perlport.pod<br/>+ ! AUTHORS README.macos ext/DynaLoader/dl_mac.xs perl.c<br/>+ ! pod/perlport.pod<br/> ____________________________________________________________________________<br/> [ 12323] By: pudge on 2001/10/03 18:42:37<br/> Log: Fix Matthias&#39; address, and attributions.<br/> Branch: maint-5.6/macperl<br/>- ! macos/config.h macos/ext/Mac/AppleEvents/AppleEvents.pm<br/>- ! macos/ext/Mac/Components/Components.pm<br/>- ! macos/ext/Mac/Controls/Controls.pm macos/ext/Mac/DCon/DCon.pm<br/>- ! macos/ext/Mac/Dialogs/Dialogs.pm<br/>- ! macos/ext/Mac/Events/Events.pm<br/>- ! macos/ext/Mac/ExtUtils/MakeToolboxModule<br/>- ! macos/ext/Mac/Files/Files.pm macos/ext/Mac/Fonts/Fonts.pm<br/>- ! macos/ext/Mac/Gestalt/Gestalt.pm<br/>- ! macos/ext/Mac/ImageCompression/ImageCompression.pm<br/>- ! macos/ext/Mac/Lists/Lists.pm macos/ext/Mac/Memory/Memory.pm<br/>- ! macos/ext/Mac/Menus/Menus.pm<br/>- ! macos/ext/Mac/MoreFiles/MoreFiles.pm<br/>- ! macos/ext/Mac/Movies/Movies.pm<br/>- ! macos/ext/Mac/Navigation/Navigation.pm<br/>- ! macos/ext/Mac/Notification/Notification.pm<br/>- ! macos/ext/Mac/OSA/OSA.pm macos/ext/Mac/Processes/Processes.pm<br/>- ! macos/ext/Mac/QDOffscreen/QDOffscreen.pm<br/>- ! macos/ext/Mac/QuickDraw/QuickDraw.pm<br/>- ! macos/ext/Mac/QuickTimeVR/QuickTimeVR.pm<br/>- ! macos/ext/Mac/Resources/Resources.pm macos/ext/Mac/SAT/SAT.pm<br/>- ! macos/ext/Mac/Sound/Sound.pm macos/ext/Mac/Speech/Speech.pm<br/>- ! macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm<br/>- ! macos/ext/Mac/StandardFile/StandardFile.pm<br/>- ! macos/ext/Mac/TextEdit/TextEdit.pm<br/>- ! macos/ext/Mac/Types/Types.pm macos/ext/Mac/Windows/Windows.pm<br/>- ! macos/fcntl.h macos/lib/ExtUtils/MM_MacOS.pm<br/>- ! macos/lib/Mac/LowMem.pm<br/>+ ! macos/config.h macos/ext/Mac/AppleEvents/AppleEvents.pm<br/>+ ! macos/ext/Mac/Components/Components.pm<br/>+ ! macos/ext/Mac/Controls/Controls.pm macos/ext/Mac/DCon/DCon.pm<br/>+ ! macos/ext/Mac/Dialogs/Dialogs.pm<br/>+ ! macos/ext/Mac/Events/Events.pm<br/>+ ! macos/ext/Mac/ExtUtils/MakeToolboxModule<br/>+ ! macos/ext/Mac/Files/Files.pm macos/ext/Mac/Fonts/Fonts.pm<br/>+ ! macos/ext/Mac/Gestalt/Gestalt.pm<br/>+ ! macos/ext/Mac/ImageCompression/ImageCompression.pm<br/>+ ! macos/ext/Mac/Lists/Lists.pm macos/ext/Mac/Memory/Memory.pm<br/>+ ! macos/ext/Mac/Menus/Menus.pm<br/>+ ! macos/ext/Mac/MoreFiles/MoreFiles.pm<br/>+ ! macos/ext/Mac/Movies/Movies.pm<br/>+ ! macos/ext/Mac/Navigation/Navigation.pm<br/>+ ! macos/ext/Mac/Notification/Notification.pm<br/>+ ! macos/ext/Mac/OSA/OSA.pm macos/ext/Mac/Processes/Processes.pm<br/>+ ! macos/ext/Mac/QDOffscreen/QDOffscreen.pm<br/>+ ! macos/ext/Mac/QuickDraw/QuickDraw.pm<br/>+ ! macos/ext/Mac/QuickTimeVR/QuickTimeVR.pm<br/>+ ! macos/ext/Mac/Resources/Resources.pm macos/ext/Mac/SAT/SAT.pm<br/>+ ! macos/ext/Mac/Sound/Sound.pm macos/ext/Mac/Speech/Speech.pm<br/>+ ! macos/ext/Mac/SpeechRecognition/SpeechRecognition.pm<br/>+ ! macos/ext/Mac/StandardFile/StandardFile.pm<br/>+ ! macos/ext/Mac/TextEdit/TextEdit.pm<br/>+ ! macos/ext/Mac/Types/Types.pm macos/ext/Mac/Windows/Windows.pm<br/>+ ! macos/fcntl.h macos/lib/ExtUtils/MM_MacOS.pm<br/>+ ! macos/lib/Mac/LowMem.pm<br/> ____________________________________________________________________________<br/> [ 12242] By: pudge on 2001/09/26 20:41:35<br/> Log: Note (get|set)sockopt are available.<br/> Branch: maint-5.6/macperl<br/>- ! pod/perlport.pod<br/>+ ! pod/perlport.pod<br/> ____________________________________________________________________________<br/> [ 12241] By: pudge on 2001/09/26 20:28:49<br/> Log: Remove unneeded disabling of umask() calls<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Temp.pm<br/>+ ! lib/File/Temp.pm<br/> ____________________________________________________________________________<br/> [ 12219] By: pudge on 2001/09/26 00:19:35<br/> Log: Fix just a few of the bugs in Mac::InternetConfig (Bug #462999, Axel Rose);<br/> fix doc in Mac::Fonts (Patch #447221, Andreas Marcel Riechert).<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/Mac/Fonts/Fonts.xs<br/>- ! macos/ext/Mac/InternetConfig/InternetConfig.pm<br/>+ ! macos/ext/Mac/Fonts/Fonts.xs<br/>+ ! macos/ext/Mac/InternetConfig/InternetConfig.pm<br/> ____________________________________________________________________________<br/> [ 12214] By: pudge on 2001/09/25 21:11:21<br/> Log: Integrate changes from bleadperl.<br/> Branch: maint-5.6/macperl<br/>- !&gt; pod/perlport.pod<br/>+ !&gt; pod/perlport.pod<br/> ____________________________________________________________________________<br/> [ 12212] By: pudge on 2001/09/25 20:21:06<br/> Log: Integrate change #12200 from maintperl.<br/> Branch: maint-5.6/macperl<br/>- !&gt; win32/perlhost.h<br/>+ !&gt; win32/perlhost.h<br/> ____________________________________________________________________________<br/> [ 12211] By: pudge on 2001/09/25 20:11:56<br/> Log: Fix file types to &quot;apple&quot;<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/Mac/Menus/t/MenuBar.rsrc<br/>- ! macos/ext/Mac/SAT/t/Collision.rsrc<br/>+ ! macos/ext/Mac/Menus/t/MenuBar.rsrc<br/>+ ! macos/ext/Mac/SAT/t/Collision.rsrc<br/> ____________________________________________________________________________<br/> [ 12210] By: pudge on 2001/09/25 19:28:20<br/> Log: Fix rsrc file as snd file; fix path in t file.<br/> Branch: maint-5.6/macperl<br/>- ! macos/ext/Mac/Notification/t/Notification.rsrc<br/>- ! macos/ext/Mac/Notification/t/Notification.t<br/>+ ! macos/ext/Mac/Notification/t/Notification.rsrc<br/>+ ! macos/ext/Mac/Notification/t/Notification.t<br/> ____________________________________________________________________________<br/> [ 12209] By: pudge on 2001/09/25 19:15:57<br/> Log: Sync up with File::Find from bleadperl.<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Find.pm t/lib/filefind-taint.t<br/>+ ! lib/File/Find.pm t/lib/filefind-taint.t<br/> ____________________________________________________________________________<br/> [ 12208] By: pudge on 2001/09/25 19:06:48<br/> Log: Ignore SIGPIPE being set to IGNORE. Temporary fix until we upgrade<br/> to new version of libnet. (Axel Rose, Paul Schinder, and a cast<br/> of hundreds)<br/> Branch: maint-5.6/macperl<br/>- ! macos/bundled_lib/blib/lib/Net/Cmd.pm<br/>- ! macos/bundled_lib/blib/lib/Net/FTP/A.pm<br/>- ! macos/bundled_lib/blib/lib/Net/FTP/I.pm<br/>+ ! macos/bundled_lib/blib/lib/Net/Cmd.pm<br/>+ ! macos/bundled_lib/blib/lib/Net/FTP/A.pm<br/>+ ! macos/bundled_lib/blib/lib/Net/FTP/I.pm<br/> ____________________________________________________________________________<br/> [ 12193] By: pudge on 2001/09/25 02:53:42<br/> Log: Fixes for multiline error parsing (Bug #459263); cmd-.<br/>@@ -1183,57 +1247,57 @@<br/> &quot;Cancel&quot; in Save dialog box (Bug #446960); Runtimes not<br/> executing on launch (Bug #464441).<br/> Branch: maint-5.6/macperl<br/>- ! macos/macish.c macos/macish.h macos/macperl/MPEditor.c<br/>- ! macos/macperl/MPGlobals.h macos/macperl/MPScript.c<br/>- ! macos/macperl/MacPerl.r<br/>+ ! macos/macish.c macos/macish.h macos/macperl/MPEditor.c<br/>+ ! macos/macperl/MPGlobals.h macos/macperl/MPScript.c<br/>+ ! macos/macperl/MacPerl.r<br/> ____________________________________________________________________________<br/> [ 12192] By: pudge on 2001/09/25 02:42:49<br/> Log: Update CPAN.pm to work with new Mac::BuildTools instead<br/> of ExtUtils::MM_MacOS &quot;orphan&quot; functions<br/> Branch: maint-5.6/macperl<br/>- ! lib/CPAN.pm<br/>+ ! lib/CPAN.pm<br/> ____________________________________________________________________________<br/> [ 12191] By: pudge on 2001/09/25 02:37:58<br/> Log: Fix up another xsubpp problem (Matthias Neeracher)<br/> Branch: maint-5.6/macperl<br/>- ! macos/xsubpp<br/>+ ! macos/xsubpp<br/> ____________________________________________________________________________<br/> [ 12190] By: pudge on 2001/09/25 02:37:38<br/> Log: Remove literal tabs from source in MM_MacOS.pm (Thomas Wegner)<br/> Branch: maint-5.6/macperl<br/>- ! macos/lib/ExtUtils/MM_MacOS.pm<br/>+ ! macos/lib/ExtUtils/MM_MacOS.pm<br/> ____________________________________________________________________________<br/> [ 12189] By: pudge on 2001/09/25 02:37:08<br/> Log: Fix up Makefiles for more Mac:: modules (and prepare for<br/> static build ...?)<br/> Branch: maint-5.6/macperl<br/>- ! macos/Makefile.mk macos/ext/Mac/Makefile.mk<br/>- ! macos/macperl/Makefile.mk<br/>+ ! macos/Makefile.mk macos/ext/Mac/Makefile.mk<br/>+ ! macos/macperl/Makefile.mk<br/> ____________________________________________________________________________<br/> [ 12188] By: pudge on 2001/09/25 02:36:19<br/> Log: Fix up tests<br/> Branch: maint-5.6/macperl<br/>- ! macos/MacPerlTests.cmd macos/MacPerlTests.plx<br/>+ ! macos/MacPerlTests.cmd macos/MacPerlTests.plx<br/> ____________________________________________________________________________<br/> [ 12187] By: pudge on 2001/09/25 02:11:13<br/> Log: Make malloc smarter, fix bugs. (Bug #404030)<br/> Branch: maint-5.6/macperl<br/>- ! macos/icemalloc.c macos/icemalloc.h<br/>+ ! macos/icemalloc.c macos/icemalloc.h<br/> ____________________________________________________________________________<br/> [ 12173] By: pudge on 2001/09/24 12:56:13<br/> Log: Integrate maint-5.6/perl changes 12024, 12026, 12145, 12146.<br/> Branch: maint-5.6/macperl<br/>- !&gt; (integrate 33 files)<br/>+ !&gt; (integrate 33 files)<br/> ____________________________________________________________________________<br/> [ 11904] By: pudge on 2001/09/06 00:28:01<br/> Log: Integrate File::Find changes from bleadperl<br/> Branch: maint-5.6/macperl<br/>- ! lib/File/Find.pm t/lib/filefind-taint.t<br/>+ ! lib/File/Find.pm t/lib/filefind-taint.t<br/> ____________________________________________________________________________<br/> [ 11903] By: pudge on 2001/09/06 00:22:29<br/> Log: Integrate 11847 from maint-5.6/perl<br/> Branch: maint-5.6/macperl<br/>- !&gt; sv.c<br/>+ !&gt; sv.c<br/> <br/> ----------------<br/> Version v5.6.1a5<br/><br/>==== //depot/maint-5.6/macperl/macos/Makefile.mk#13 (text) ====<br/>Index: macperl/macos/Makefile.mk<br/>--- macperl/macos/Makefile.mk#12~14589~ Thu Feb 7 11:26:55 2002<br/>+++ macperl/macos/Makefile.mk Wed Dec 4 04:51:38 2002<br/>@@ -128,13 +128,13 @@<br/> Dynamic_Ext_Xtr =<br/> # this should be rewritten some, eh?<br/> Static_Lib_Mac = \<br/>- ExtUtils:MM_MacOS ExtUtils:Miniperl Config Errno \<br/>- Mac:Hooks Mac:Pane Mac:LowMem \<br/>- Mac:AppleEvents:Simple Mac:OSA:Simple \<br/>- Mac:BuildTools Mac:Apps:Launch Mac:Toolbox \<br/>- Mac:AETE:App Mac:AETE:Dialect Mac:AETE:Parser \<br/>+ Config Errno ExtUtils:Miniperl ExtUtils:MM_MacOS \<br/>+ Mac:AETE:App Mac:AETE:Dialect \<br/> Mac:AETE:Format:Converter Mac:AETE:Format:Dictionary \<br/>- Mac:AETE:Format:Glue Mac:Glue<br/>+ Mac:AETE:Format:Glue Mac:AETE:Parser \<br/>+ Mac:AppleEvents:Simple Mac:Apps:Launch Mac:BuildTools \<br/>+ Mac:Glue Mac:Hooks Mac:LowMem Mac:OSA:Simple Mac:Pane \<br/>+ Mac:Toolbox Text:ParseWords:Old<br/> <br/> ########<br/> # sync all extensions with both config.sh and macperl/Makefile.mk!<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/12/msg289.html Wed, 04 Dec 2002 07:54:58 +0000 Change 18238: Provide workaround for MacPerl bug #494368, by Chris Nandor Change 18238 by pudge@pudge-mobile on 2002/12/03 03:32:47<br/><br/> Provide workaround for MacPerl bug #494368,<br/> a stack overflow problem in Text::ParseWords with<br/> very long lines. Better to have the old version<br/> of the module available just in case.<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/lib/Text/ParseWords/Old.pm#1 add<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/lib/Text/ParseWords/Old.pm#1 (text) ====<br/>Index: macperl/macos/lib/Text/ParseWords/Old.pm<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/lib/Text/ParseWords/Old.pm Mon Dec 2 19:32:47 2002<br/>@@ -0,0 +1,187 @@<br/>+package Text::ParseWords::Old;<br/>+<br/>+require 5.000;<br/>+use Carp;<br/>+<br/>+require AutoLoader;<br/>+*AUTOLOAD = \&amp;AutoLoader::AUTOLOAD;<br/>+<br/>+require Exporter;<br/>+@ISA = qw(Exporter);<br/>+@EXPORT = qw(shellwords quotewords);<br/>+@EXPORT_OK = qw(old_shellwords);<br/>+<br/>+=head1 NAME<br/>+<br/>+Text::ParseWords::Old - parse text into an array of tokens<br/>+<br/>+=head1 SYNOPSIS<br/>+<br/>+ use Text::ParseWords::Old;<br/>+ @words = &amp;quotewords($delim, $keep, @lines);<br/>+ @words = &amp;shellwords(@lines);<br/>+ @words = &amp;old_shellwords(@lines);<br/>+<br/>+=head1 DESCRIPTION<br/>+<br/>+B&lt;NOTE&gt;: This is an old version of L&lt;Text::ParseWords&gt;, provided only<br/>+because the new version, on some very long lines of text, will hit a<br/>+stack overflow. This older version doesn&#39;t have that problem. Only<br/>+use this version if the current version crashes. This module is not<br/>+supplied with any other version of perl, so do not count on it for<br/>+purpose of portability.<br/>+<br/>+&amp;quotewords() accepts a delimiter (which can be a regular expression)<br/>+and a list of lines and then breaks those lines up into a list of<br/>+words ignoring delimiters that appear inside quotes.<br/>+<br/>+The $keep argument is a boolean flag. If true, the quotes are kept<br/>+with each word, otherwise quotes are stripped in the splitting process.<br/>+$keep also defines whether unprotected backslashes are retained.<br/>+<br/>+A &amp;shellwords() replacement is included to demonstrate the new package.<br/>+This version differs from the original in that it will _NOT_ default<br/>+to using $_ if no arguments are given. I personally find the old behavior<br/>+to be a mis-feature.<br/>+<br/>+&amp;quotewords() works by simply jamming all of @lines into a single<br/>+string in $_ and then pulling off words a bit at a time until $_<br/>+is exhausted.<br/>+<br/>+=head1 AUTHORS<br/>+<br/>+Hal Pomeranz (pomeranz@netcom.com), 23 March 1994<br/>+<br/>+Basically an update and generalization of the old shellwords.pl.<br/>+Much code shamelessly stolen from the old version (author unknown).<br/>+<br/>+=cut<br/>+<br/>+1;<br/>+__END__<br/>+<br/>+sub shellwords {<br/>+ local(@lines) = @_;<br/>+ $lines[$#lines] =~ s/\s+$//;<br/>+ &amp;quotewords(&#39;\s+&#39;, 0, @lines);<br/>+}<br/>+<br/>+<br/>+<br/>+sub quotewords {<br/>+<br/>+# The inner &quot;for&quot; loop builds up each word (or $field) one $snippet<br/>+# at a time. A $snippet is a quoted string, a backslashed character,<br/>+# or an unquoted string. We fall out of the &quot;for&quot; loop when we reach<br/>+# the end of $_ or when we hit a delimiter. Falling out of the &quot;for&quot;<br/>+# loop, we push the $field we&#39;ve been building up onto the list of<br/>+# @words we&#39;ll be returning, and then loop back and pull another word<br/>+# off of $_.<br/>+#<br/>+# The first two cases inside the &quot;for&quot; loop deal with quoted strings.<br/>+# The first case matches a double quoted string, removes it from $_,<br/>+# and assigns the double quoted string to $snippet in the body of the<br/>+# conditional. The second case handles single quoted strings. In<br/>+# the third case we&#39;ve found a quote at the current beginning of $_,<br/>+# but it didn&#39;t match the quoted string regexps in the first two cases,<br/>+# so it must be an unbalanced quote and we croak with an error (which can<br/>+# be caught by eval()).<br/>+#<br/>+# The next case handles backslashed characters, and the next case is the<br/>+# exit case on reaching the end of the string or finding a delimiter.<br/>+#<br/>+# Otherwise, we&#39;ve found an unquoted thing and we pull of characters one<br/>+# at a time until we reach something that could start another $snippet--<br/>+# a quote of some sort, a backslash, or the delimiter. This one character<br/>+# at a time behavior was necessary if the delimiter was going to be a<br/>+# regexp (love to hear it if you can figure out a better way).<br/>+<br/>+ my ($delim, $keep, @lines) = @_;<br/>+ my (@words, $snippet, $field);<br/>+<br/>+ local $_ = join (&#39;&#39;, @lines);<br/>+<br/>+ while (length) {<br/>+ $field = &#39;&#39;;<br/>+<br/>+ for (;;) {<br/>+ $snippet = &#39;&#39;;<br/>+<br/>+ if (s/^&quot;([^&quot;\\]*(\\.[^&quot;\\]*)*)&quot;//) {<br/>+ $snippet = $1;<br/>+ $snippet = qq|&quot;$snippet&quot;| if $keep;<br/>+ }<br/>+ elsif (s/^&#39;([^&#39;\\]*(\\.[^&#39;\\]*)*)&#39;//) {<br/>+ $snippet = $1;<br/>+ $snippet = &quot;&#39;$snippet&#39;&quot; if $keep;<br/>+ }<br/>+ elsif (/^[&quot;&#39;]/) {<br/>+ croak &#39;Unmatched quote&#39;;<br/>+ }<br/>+ elsif (s/^\\(.)//) {<br/>+ $snippet = $1;<br/>+ $snippet = &quot;\\$snippet&quot; if $keep;<br/>+ }<br/>+ elsif (!length || s/^$delim//) {<br/>+ last;<br/>+ }<br/>+ else {<br/>+ while (length &amp;&amp; !(/^$delim/ || /^[&#39;&quot;\\]/)) {<br/>+ $snippet .= substr ($_, 0, 1);<br/>+ substr($_, 0, 1) = &#39;&#39;;<br/>+ }<br/>+ }<br/>+<br/>+ $field .= $snippet;<br/>+ }<br/>+<br/>+ push @words, $field;<br/>+ }<br/>+<br/>+ return @words;<br/>+}<br/>+<br/>+<br/>+sub old_shellwords {<br/>+<br/>+ # Usage:<br/>+ # use ParseWords;<br/>+ # @words = old_shellwords($line);<br/>+ # or<br/>+ # @words = old_shellwords(@lines);<br/>+<br/>+ local($_) = join(&#39;&#39;, @_);<br/>+ my(@words,$snippet,$field);<br/>+<br/>+ s/^\s+//;<br/>+ while ($_ ne &#39;&#39;) {<br/>+ $field = &#39;&#39;;<br/>+ for (;;) {<br/>+ if (s/^&quot;(([^&quot;\\]|\\.)*)&quot;//) {<br/>+ ($snippet = $1) =~ s#\\(.)#$1#g;<br/>+ }<br/>+ elsif (/^&quot;/) {<br/>+ croak &quot;Unmatched double quote: $_&quot;;<br/>+ }<br/>+ elsif (s/^&#39;(([^&#39;\\]|\\.)*)&#39;//) {<br/>+ ($snippet = $1) =~ s#\\(.)#$1#g;<br/>+ }<br/>+ elsif (/^&#39;/) {<br/>+ croak &quot;Unmatched single quote: $_&quot;;<br/>+ }<br/>+ elsif (s/^\\(.)//) {<br/>+ $snippet = $1;<br/>+ }<br/>+ elsif (s/^([^\s\\&#39;&quot;]+)//) {<br/>+ $snippet = $1;<br/>+ }<br/>+ else {<br/>+ s/^\s+//;<br/>+ last;<br/>+ }<br/>+ $field .= $snippet;<br/>+ }<br/>+ push(@words, $field);<br/>+ }<br/>+ @words;<br/>+}<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/12/msg288.html Tue, 03 Dec 2002 05:05:56 +0000 Change 18237: Fix (already in 5.8) for not modifying @INC by Chris Nandor Change 18237 by pudge@pudge-mobile on 2002/12/03 03:31:20<br/><br/> Fix (already in 5.8) for not modifying @INC<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/ext/DynaLoader/DynaLoader_pm.PL#3 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/ext/DynaLoader/DynaLoader_pm.PL#3 (text) ====<br/>Index: macperl/ext/DynaLoader/DynaLoader_pm.PL<br/>--- macperl/ext/DynaLoader/DynaLoader_pm.PL#2~12580~ Mon Oct 22 12:21:37 2001<br/>+++ macperl/ext/DynaLoader/DynaLoader_pm.PL Mon Dec 2 19:31:20 2002<br/>@@ -244,8 +244,9 @@<br/> chop($_ = VMS::Filespec::unixpath($_)) if $Is_VMS;<br/> my $dir;<br/> if ($Is_MacOS) {<br/>- $_ .= &quot;:&quot; unless /:$/;<br/>- $dir = &quot;${_}auto:$modpname&quot;;<br/>+ my $path = $_;<br/>+ $path .= &quot;:&quot; unless /:$/;<br/>+ $dir = &quot;${path}auto:$modpname&quot;;<br/> } else {<br/> $dir = &quot;$_/auto/$modpname&quot;;<br/> }<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/12/msg287.html Tue, 03 Dec 2002 05:05:56 +0000 Change 18193: Add first phase of Carbon support to macperl/ext/. by Chris Nandor Change 18193 by pudge@pudge-mobile on 2002/11/28 03:20:15<br/><br/> Add first phase of Carbon support to macperl/ext/.<br/> Covers Components, Files, Gestalt, Memory, MoreFiles, Notification,<br/> Processes, Resources, Sound, Speech, Types, and the MacPerl module.<br/> Support functions and docs in Carbon/. Added MoreFiles source.<br/> Moved around and began to rewrite some test files.<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/Carbon.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/Carbon.pm#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/MANIFEST#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/MANIFEST.SKIP#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/Makefile.PL#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/README#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/t/Carbon.t#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/typemap#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/xsubpps/xsubpp-5.6.1#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/xsubpps/xsubpp-5.8.0#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Components/Components.pm#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Components/Components.xs#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Components/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Components/eg/ListComponents.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Components/t/Components.t#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Components/t/ListComponents.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Files/Files.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Files/Files.xs#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Files/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Files/t/Files.t#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Gestalt.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Gestalt.xs#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/t/Gestalt.t#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.xs#5 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Memory/t/Memory.t#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MF.xs#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/DirectoryCopy.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/DirectoryCopy.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/FSpCompat.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/FSpCompat.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/FileCopy.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/FileCopy.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/FullPath.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/FullPath.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/IterateDirectory.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/IterateDirectory.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreDesktopMgr.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreDesktopMgr.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFiles.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFiles.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFilesExtras.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFilesExtras.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/Optimization.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/OptimizationEnd.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/Search.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFilesSrc/Search.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/eg/Application.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/eg/Iterate.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/t/Application.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/t/Iterate.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/t/MoreFiles.t#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Notification.pm#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Notification.xs#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Notification/t/Notification.t#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.xs#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/eg/Processes.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/t/Processes.t#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.xs#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Resources/t/Resources.t#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.xs#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/t/Scream.rsrc#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/t/Scream.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Sound/t/Sound.t#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Speech.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Speech.xs#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/Cellist.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/DumpVoices.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/JukeBox.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/Phonemes.plx#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/t/Cellist.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/t/DumpVoices.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/t/JukeBox.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/t/Phonemes.t#2 delete<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Speech/t/Speech.t#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Types/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Types/Types.pm#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Types/Types.xs#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Types/t/Types.t#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/MacPerl/MacPerl.pm#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/MacPerl/MacPerl.xs#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/MacPerl/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/MacPerl/OSA.xs#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/MacPerl/t/MacPerl.t#1 add<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/Carbon.h#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/Carbon.h<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/Carbon.h Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,277 @@<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Carbon/Carbon.h,v 1.2 2002/11/14 12:47:58 pudge Exp $<br/>+ *<br/>+ * Copyright (c) 2002 Matthias Neeracher, Chris Nandor<br/>+ *<br/>+ * You may distribute under the terms of the Perl Artistic License,<br/>+ * as specified in the README file.<br/>+ *<br/>+ * $Log: Carbon.h,v $<br/>+ * Revision 1.2 2002/11/14 12:47:58 pudge<br/>+ * Cast errno to short<br/>+ *<br/>+ * Revision 1.1 2002/11/13 02:04:50 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/>+ *<br/>+ */<br/>+<br/>+#ifndef _MAC_CARBON_H<br/>+#define _MAC_CARBON_H<br/>+<br/>+# ifndef MACOS_TRADITIONAL /* ignore for Mac OS ... Mac OS X only */<br/>+# ifdef MAC_CONTEXT<br/>+<br/>+/* Perl defines Move too */<br/>+#undef Move<br/>+#include &lt;Events.h&gt;<br/>+#include &lt;Dialogs.h&gt;<br/>+#include &lt;Files.h&gt;<br/>+#include &lt;Types.h&gt;<br/>+#include &lt;ConditionalMacros.h&gt;<br/>+<br/>+typedef OSErr MacOSRet;<br/>+typedef Handle HandleRet;<br/>+typedef Ptr RawPtr;<br/>+typedef Ptr PtrRet;<br/>+<br/>+# endif /* MAC_CONTEXT */<br/>+<br/>+#define XS_PUSH_SHORT(ARG) ++sp;\<br/>+ *sp = sv_newmortal();\<br/>+ sv_setiv(*sp, (IV)(ARG) )<br/>+<br/>+#define XS_PUSH_OSTYPE(ARG) ++sp;\<br/>+ *sp = sv_newmortal();\<br/>+ sv_setpvn(*sp, (char *) &amp;(ARG), 4)<br/>+<br/>+#define XS_PUSH_STR255(ARG) ++sp;\<br/>+ *sp = sv_newmortal();\<br/>+ sv_setpvn(*sp, ((char *) (ARG)) + 1, (ARG)[0])<br/>+<br/>+#include &lt;sys/types.h&gt;<br/>+#include &lt;stdlib.h&gt;<br/>+#include &lt;limits.h&gt;<br/>+#include &lt;errno.h&gt;<br/>+<br/>+/* $! and $^E will both be set together, which is fine (for now?) */<br/>+#define gMacPerl_OSErr (short)errno<br/>+<br/>+/* c string to pascal string */<br/>+static StringPtr MacPerl_CopyC2P(const char * c, StringPtr p)<br/>+{<br/>+ memcpy(p+1, c, *p = strlen(c));<br/>+ <br/>+ return p;<br/>+}<br/>+<br/>+/* used by GUSIPath2FSp to decode a GUSIFSp2Encoding-ized FSSpec */<br/>+static bool ReadHex(const char * path, int bytes, char * result) <br/>+{<br/>+ char hexbyte[3];<br/>+ hexbyte[2] = 0;<br/>+ while (bytes--) {<br/>+ hexbyte[0] = *path++; hexbyte[1] = *path++;<br/>+ if (isxdigit(hexbyte[0]) &amp;&amp; isxdigit(hexbyte[1])) {<br/>+ *result++ = (char) strtol(hexbyte, nil, 16);<br/>+ } else {<br/>+ return false;<br/>+ }<br/>+ }<br/>+ return true;<br/>+}<br/>+<br/>+<br/>+/* Mac OS and Unix have different epochs (see perlport).<br/>+ * Mac OS is seconds since midnight Jan 1 1904 local time,<br/>+ * Unix is seconds since midnight Jan 1 1970 UTC.<br/>+ *<br/>+ * These routines convert between the two, using Carbons<br/>+ * calls to convert between local time and UTC (taking<br/>+ * TZ and DST into account), and then adjusting with the<br/>+ * known offset constant.<br/>+ */<br/>+<br/>+#define MACOS_OFFSET 2082844800<br/>+<br/>+static UInt32 SecondsMac2Unix(UInt32 macseconds)<br/>+{<br/>+ UInt32 unixseconds;<br/>+<br/>+ ConvertLocalTimeToUTC(macseconds, &amp;unixseconds);<br/>+ unixseconds -= MACOS_OFFSET;<br/>+<br/>+ return unixseconds;<br/>+}<br/>+<br/>+<br/>+static UInt32 SecondsUnix2Mac(UInt32 unixseconds)<br/>+{<br/>+ UInt32 macseconds;<br/>+<br/>+ unixseconds += MACOS_OFFSET;<br/>+ ConvertUTCToLocalTime(unixseconds, &amp;macseconds);<br/>+<br/>+ return macseconds;<br/>+}<br/>+<br/>+<br/>+/* GUSI replacement routines. Currently, we use FS* functions<br/>+ * to convert FSRefs to and from paths and FSSpecs, which works<br/>+ * nicely, except that it only works for existing files.<br/>+ *<br/>+ * There is plenty of room for improvement:<br/>+ *<br/>+ * * Better error handling for odd cases<br/>+ * * Alias resolving? Is that even necessary?<br/>+ * * Using FSRef routines apparently means it is harder to allow<br/>+ * use of filenames that don&#39;t exist ... do we care? Maybe for FindFolder() ...<br/>+ * * Probably bugs to fix ...<br/>+ *<br/>+ */<br/>+<br/>+<br/>+/* Returns full POSIX-style path from FSSpec */<br/>+/* Returns empty string on failure, sets gMacPerl_OSErr to nonzero */<br/>+static char * GUSIFSp2FullPath(const FSSpec * spec)<br/>+{<br/>+ FSRef ref;<br/>+ UInt8 * path = NewPtr(2*PATH_MAX); // to be safe<br/>+ UInt32 pathSize = 2*PATH_MAX;<br/>+<br/>+ if ( (gMacPerl_OSErr = FSpMakeFSRef(spec, &amp;ref)) ) { // &amp;&amp; (gMacPerl_OSErr != fnfErr) )<br/>+ return &quot;&quot;;<br/>+ }<br/>+<br/>+ if (gMacPerl_OSErr = FSRefMakePath(&amp;ref, path, pathSize))<br/>+ return &quot;&quot;;<br/>+<br/>+ return path;<br/>+}<br/>+<br/>+/* Returns FSSpec from POSIX-style path, relative or absolute */<br/>+/* or from GUSI-style FSSpec encoding (see GUSIFSp2Encoding) */<br/>+static OSErr GUSIPath2FSp(const char * fileName, FSSpec * spec)<br/>+{<br/>+ FSRef ref;<br/>+<br/>+ // convert from GUSI-style FSSpec encoding (see GUSIFSp2Encoding)<br/>+ if (*fileName == &#39;\021&#39; &amp;&amp; fileName[13] == &#39;:&#39;) {<br/>+ spec-&gt;vRefNum = 0;<br/>+ spec-&gt;parID = 0;<br/>+<br/>+ if (<br/>+ !ReadHex(fileName+1, 2, (char *)&amp;spec-&gt;vRefNum) || !ReadHex(fileName+5, 4, (char *)&amp;spec-&gt;parID)<br/>+ ) {<br/>+ spec-&gt;vRefNum = 0;<br/>+ spec-&gt;parID = 0;<br/>+ } else {<br/>+ fileName += 13;<br/>+ }<br/>+<br/>+ Str255 path;<br/>+ MacPerl_CopyC2P(fileName, path);<br/>+<br/>+ switch (gMacPerl_OSErr = FSMakeFSSpec(spec-&gt;vRefNum, spec-&gt;parID, path, spec)) {<br/>+ case fnfErr: // It is OK if file does not exist<br/>+ gMacPerl_OSErr = noErr;<br/>+ return gMacPerl_OSErr;<br/>+ default:<br/>+ return gMacPerl_OSErr;<br/>+ }<br/>+ }<br/>+<br/>+ if (gMacPerl_OSErr = FSPathMakeRef((UInt8 *)fileName, &amp;ref, NULL))<br/>+ return gMacPerl_OSErr;<br/>+<br/>+ gMacPerl_OSErr = FSGetCatalogInfo(&amp;ref, kFSCatInfoNone, NULL, NULL, spec, NULL);<br/>+ return gMacPerl_OSErr;<br/>+}<br/>+<br/>+/* This returns the GUSI-specific text representation of an FSSpec */<br/>+static char * GUSIFSp2Encoding(const FSSpec * spec)<br/>+{<br/>+ char * realSpec = NewPtr(255);<br/>+ char fmt[32];<br/>+<br/>+ sprintf(fmt, &quot;\021%%04hX%%08X:%%%d.%ds&quot;, *spec-&gt;name, *spec-&gt;name);<br/>+ sprintf(realSpec, fmt, spec-&gt;vRefNum, spec-&gt;parID, spec-&gt;name+1);<br/>+<br/>+ return realSpec;<br/>+}<br/>+<br/>+/* This returns an FSSpec of the directory enclosing the given FSSpec */<br/>+static OSErr GUSIFSpUp(FSSpec * spec)<br/>+{<br/>+ if (spec-&gt;parID == fsRtParID) {<br/>+ spec-&gt;vRefNum = 666;<br/>+ spec-&gt;parID = 0;<br/>+ spec-&gt;name[0] = 0;<br/>+ } else {<br/>+ if (1) { // CatInfo(-1)<br/>+ gMacPerl_OSErr = FSMakeFSSpec(<br/>+ spec-&gt;vRefNum, spec-&gt;parID, NULL, spec<br/>+ );<br/>+ }<br/>+ }<br/>+<br/>+ return gMacPerl_OSErr;<br/>+}<br/>+<br/>+/* This returns an FSSpec of the named file in the directory in the given FSSpec */<br/>+/* untested!! */<br/>+static OSErr GUSIFSpDown(FSSpec * spec, ConstStr31Param name)<br/>+{<br/>+ gMacPerl_OSErr = FSMakeFSSpec(<br/>+ spec-&gt;vRefNum, spec-&gt;parID, name, spec<br/>+ );<br/>+<br/>+ return gMacPerl_OSErr;<br/>+}<br/>+<br/>+/* Finds special folders */<br/>+static OSErr GUSISpecial2FSp(OSType object, short vol, FSSpec * desc)<br/>+{<br/>+ if (gMacPerl_OSErr = FindFolder(vol, object, true, &amp;desc-&gt;vRefNum, &amp;desc-&gt;parID))<br/>+ return gMacPerl_OSErr;<br/>+<br/>+ return GUSIFSpUp(desc);<br/>+}<br/>+<br/>+<br/>+<br/>+static void fsetfileinfo(char * path, OSType creator, OSType type)<br/>+{<br/>+ FInfo info;<br/>+ FSSpec * spec = (FSSpec *)NewPtr(sizeof(FSSpec));<br/>+<br/>+ if ((gMacPerl_OSErr = GUSIPath2FSp(path, spec)) == 0) {<br/>+ if ((gMacPerl_OSErr = FSpGetFInfo(spec, &amp;info)) == 0) {<br/>+ info.fdType = type;<br/>+ info.fdCreator = creator;<br/>+ info.fdFlags &amp;= ~kHasBeenInited;<br/>+<br/>+ gMacPerl_OSErr = FSpSetFInfo(spec, &amp;info);<br/>+ }<br/>+ }<br/>+ DisposePtr((char *)spec);<br/>+}<br/>+<br/>+static void fgetfileinfo(char * path, OSType * creator, OSType * type)<br/>+{<br/>+ FInfo info;<br/>+ FSSpec * spec = (FSSpec *)NewPtr(sizeof(FSSpec));<br/>+<br/>+ if ((gMacPerl_OSErr = GUSIPath2FSp(path, spec)) == 0) {<br/>+ if ((gMacPerl_OSErr = FSpGetFInfo(spec, &amp;info)) == 0) {<br/>+ if (creator)<br/>+ *creator = info.fdCreator;<br/>+ if (type)<br/>+ *type = info.fdType;<br/>+ }<br/>+ }<br/>+ DisposePtr((char *)spec);<br/>+}<br/>+<br/>+# endif /* MACOS_TRADITIONAL */<br/>+<br/>+#endif /* _MAC_CARBON_H */<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/Carbon.pm#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/Carbon.pm<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/Carbon.pm Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,267 @@<br/>+=head1 NAME<br/>+<br/>+Mac::Carbon - Access to Mac OS Carbon API<br/>+<br/>+=head1 SYNOPSIS<br/>+<br/>+ use Mac::Carbon;<br/>+ use Mac::Carbon qw(:files :morefiles);<br/>+<br/>+<br/>+=head1 DESCRIPTION<br/>+<br/>+This module provides documentation of the Mac::Carbon modules, and<br/>+acts as a frontend to them.<br/>+<br/>+Mac::Carbon is a collection of perl modules for accessing the Carbon API<br/>+under Mac OS X. It is a port of the Toolbox modules written by Matthias<br/>+Neeracher for MacPerl.<br/>+<br/>+This module will load in all the Carbon modules, and export all of the<br/>+functions, constants, and other variables. An export tag is set up for<br/>+each module, so they may be selected individually.<br/>+<br/>+This module exists primarily because in Mac OS X, all the Carbon<br/>+functions are imported into a C program with a single header,<br/>+Carbon.h, so Mac OS X users may prefer to load in the entire Carbon<br/>+API with a single module.<br/>+<br/>+For detailed information on the Carbon API (highly recommended, as<br/>+a familiarity with Carbon is assumed in the POD), see apple.com.<br/>+<br/>+ http://developer.apple.com/techpubs/macosx/Carbon/<br/>+<br/>+The modules were written for Mac OS originally, and are in part being<br/>+ported to Carbon. You may also be interested in the original documentation.<br/>+<br/>+ http://developer.apple.com/techpubs/macos8/<br/>+<br/>+<br/>+=head1 TOOLBOX MAPPINGS<br/>+<br/>+Swiped from Mac/Toolbox.pod in the MacPerl distribution.<br/>+<br/>+The Macintosh Operating System provides a rich API with thousands of I&lt;toolbox&gt;<br/>+calls. The MacPerl toolbox modules aim to make as much as possible of this<br/>+functionality available to MacPerl programmers. The mapping of the toolbox <br/>+interfaces into MacPerl is intended to be<br/>+<br/>+=over 4<br/>+<br/>+=item 1.<br/>+<br/>+Convenient to use for Perl programmers.<br/>+<br/>+=item 2.<br/>+<br/>+As close as possible to the C interfaces.<br/>+<br/>+=back<br/>+<br/>+This translates into a mapping strategy which is discussed in the following <br/>+sections.<br/>+<br/>+<br/>+=head2 Function mappings<br/>+<br/>+MacPerl toolbox calls take their input arguments in the same order as the <br/>+corresponding toolbox functions. Output arguments are never passed by reference, <br/>+but returned from the calls. If there are several output arguments, a list is<br/>+returned. If an error occurs, the function returns C&lt;undef&gt; or C&lt;()&gt; and the <br/>+error code is available in the C&lt;$^E&gt; variable.<br/>+<br/>+ $port = GetPort();<br/>+ SetPort($port);<br/>+ $desc = AECreateDesc(&quot;TEXT&quot;, &quot;Hello, World&quot;) or die $^E;<br/>+<br/>+<br/>+=head2 Data structure mappings<br/>+<br/>+Complex data structures are mapped into blessed references. Data fields are <br/>+available through member functions which return the value of a field if called<br/>+without an argument and change the value if called with an argument.<br/>+<br/>+ $rect = Rect-&gt;new(10, 20, 110, 220);<br/>+ $rect-&gt;top;<br/>+ $rect-&gt;right(250);<br/>+<br/>+<br/>+<br/>+=head1 MAC OS X DIFFERENCES<br/>+<br/>+The modules follow the same API under Mac OS X as Mac OS, except that<br/>+the non-Carbon API is not supported (for example, C&lt;NewHandle&gt; is<br/>+supported, but C&lt;NewHandleSys&gt; is not). Calling a function not<br/>+supported by Carbon will generate an exception.<br/>+<br/>+The MacPerl package is automatically bootstrapped in MacPerl; it is<br/>+included here, though functions specific to the application and GUI<br/>+(Answer, Pick, Reply, Quit, etc.) are not supported, and the MacPerl<br/>+package must be loaded explicitly (e.g., C&lt;use MacPerl;&gt;).<br/>+<br/>+The Mac-specific error codes are put in C&lt;$^E&gt; as in MacPerl, but C&lt;$^E&gt;<br/>+does not automatically convert the numeric error into a string in string<br/>+context. See brian d foy&#39;s L&lt;Mac::Errors&gt; module on the CPAN for this:<br/>+<br/>+ use Mac::Errors &#39;$MacError&#39;;<br/>+ my $info1 = FSpGetCatInfo($file1) or die $^E + 0; # error number<br/>+ my $info2 = FSpGetCatInfo($file2) or die $MacError; # error string<br/>+<br/>+L&lt;Mac::Errors&gt; is not included with or required by Mac::Carbon, but it is<br/>+highly recommended.<br/>+<br/>+C&lt;$!&gt; is set at the same time C&lt;$^E&gt; is set. This is different behavior<br/>+from MacPerl, but similar to other platforms. On MacPerl, C&lt;$^E&gt; is<br/>+signed, and on Unix it is unsigned, so to get the numeric value from<br/>+C&lt;$^E&gt;, just add 0, as above. Could be worse.<br/>+<br/>+Files are passed back and forth using Unix/POSIX filespecs (if you care<br/>+about the gory details, a portion of the GUSI API has been reimplemented<br/>+here, and it handles the conversions). Similarly, times are converted<br/>+back and forth from the Mac OS epoch to the Unix epoch.<br/>+<br/>+The support functions are in F&lt;Carbon.h&gt;. See that file for descriptions<br/>+of the issues, including bugs and possibilities for bugs, involved.<br/>+<br/>+<br/>+=head1 KNOWN BUGS<br/>+<br/>+=over 4<br/>+<br/>+=item *<br/>+<br/>+Docs not updated for Carbon incompatibilities (including changes to<br/>+Processes fields). Generate list of all unsupported functions.<br/>+<br/>+=item *<br/>+<br/>+Deal with xsubpp issues (F&lt;README&gt;).<br/>+<br/>+=item *<br/>+<br/>+Related to xsubpp issues, embedded POD in .xs should somehow be moved<br/>+to .pm files (perhaps the new preprocessor could automatically dump<br/>+the POD into the corresponding .pm file). This currently causes an<br/>+error during the build, and results in man pages not being properly<br/>+created, with all the documentation.<br/>+<br/>+=item *<br/>+<br/>+Test suite needs a lot of work. There are surely bugs to be uncovered<br/>+in a test suite. All modules have been tested to some degree, but more<br/>+exhaustive testing needs to happen.<br/>+<br/>+=item *<br/>+<br/>+Not specific to the Carbon versions: the Mac:: modules define classes<br/>+such as C&lt;Handle&gt; which probably should be something else, like<br/>+C&lt;Mac::Handle&gt; or C&lt;Mac::Carbon::Handle&gt; or C&lt;Mac::Memory::Handle&gt;<br/>+(other examples include C&lt;AEDesc&gt;, C&lt;Point&gt;, C&lt;Rect&gt;). No one has really<br/>+complained before except on principle, but still ...<br/>+<br/>+=item *<br/>+<br/>+In Mac::Processes, there are some issues with unsupported fields in the<br/>+ProcessInfo struct.<br/>+<br/>+=item *<br/>+<br/>+In Mac::MoreFiles, FSpDTGetAPPL is very slow, as it has to fall back on<br/>+CatSearch(). And worse, it doesn&#39;t find applications that don&#39;t have the<br/>+creator/type in the application, but in the PkgInfo file. If this acceptable,<br/>+then the tied %Application hash should be implemented differently.<br/>+<br/>+=item *<br/>+<br/>+In MacPerl package, perhaps support Ask/Answer/Pick via DoAppleScript.<br/>+<br/>+=item *<br/>+<br/>+Can we support XCMDs etc. via XL? Do we want to?<br/>+<br/>+=back<br/>+<br/>+<br/>+<br/>+=head1 PACKAGES AND EXPORT TAGS<br/>+<br/>+See each individual module for more information on use. See F&lt;README&gt;<br/>+for more information about modules not included here.<br/>+<br/>+ Mac::Components components<br/>+ Mac::Files files<br/>+ Mac::Gestalt gestalt<br/>+ Mac::Memory memory<br/>+ Mac::MoreFiles morefiles<br/>+ Mac::Notification notification<br/>+ Mac::Processes processes<br/>+ Mac::Resources resources<br/>+ Mac::Sound sound<br/>+ Mac::Speech speech<br/>+ Mac::Types types<br/>+ MacPerl macperl<br/>+<br/>+=cut<br/>+<br/>+package Mac::Carbon;<br/>+<br/>+use strict;<br/>+use base &#39;Exporter&#39;;<br/>+use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);<br/>+<br/>+$VERSION = &#39;0.02&#39;;<br/>+<br/>+# we are just a frontend, so loop over the modules, and<br/>+# suck up everything in @EXPORT<br/>+BEGIN {<br/>+ my @modules = qw(<br/>+ Components<br/>+ Files<br/>+ Gestalt<br/>+ Memory<br/>+ MoreFiles<br/>+ Notification<br/>+ Processes<br/>+ Resources<br/>+ Sound<br/>+ Speech<br/>+ Types<br/>+ );<br/>+<br/>+ # oh oh, it&#39;s magic ...<br/>+ for (@modules) {<br/>+ no strict &#39;refs&#39;;<br/>+ eval &quot;use Mac::$_&quot;;<br/>+ die if $@;<br/>+ my @export = @{&#39;Mac::&#39; . $_ . &#39;::EXPORT&#39;};<br/>+ push @EXPORT, @export;<br/>+ $EXPORT_TAGS{ lc $_ } = \@export;<br/>+ }<br/>+<br/>+ # MacPerl is special, as almost everything is in EXPORT_OK<br/>+ use MacPerl &#39;:all&#39;;<br/>+ push @EXPORT, @MacPerl::EXPORT, @MacPerl::EXPORT_OK;<br/>+ $EXPORT_TAGS{ &#39;macperl&#39; } = [@MacPerl::EXPORT, @MacPerl::EXPORT_OK];<br/>+<br/>+ @EXPORT_OK = @EXPORT;<br/>+ $EXPORT_TAGS{ &#39;all&#39; } = \@EXPORT;<br/>+}<br/>+<br/>+1;<br/>+<br/>+__END__<br/>+<br/>+=head1 AUTHOR<br/>+<br/>+The Mac Toolbox modules were written by Matthias Neeracher<br/>+E&lt;lt&gt;neeracher@mac.comE&lt;gt&gt;. They are currently maintained by Chris<br/>+Nandor E&lt;lt&gt;pudge@pobox.comE&lt;gt&gt;.<br/>+<br/>+=head1 THANKS<br/>+<br/>+Michael Blakeley E&lt;lt&gt;mike@blakeley.comE&lt;gt&gt;,<br/>+Dan Sugalksi E&lt;lt&gt;dan@sidhe.orgE&lt;gt&gt;.<br/>+<br/>+=head1 SEE ALSO<br/>+<br/>+perl(1).<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/MANIFEST#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/MANIFEST<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/MANIFEST Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,109 @@<br/>+Carbon.h<br/>+Carbon.pm<br/>+Components/Components.c<br/>+Components/Components.pm<br/>+Components/Components.xs<br/>+Components/Makefile.PL<br/>+Components/eg/ListComponents.plx<br/>+Components/t/Components.t<br/>+Components/typemap<br/>+Files/Files.c<br/>+Files/Files.pm<br/>+Files/Files.xs<br/>+Files/Makefile.PL<br/>+Files/t/Files.t<br/>+Files/typemap<br/>+Gestalt/Gestalt.c<br/>+Gestalt/Gestalt.pm<br/>+Gestalt/Gestalt.xs<br/>+Gestalt/Makefile.PL<br/>+Gestalt/t/Gestalt.t<br/>+MANIFEST This list of files<br/>+MANIFEST.SKIP Files to skip<br/>+MacPerl/MacPerl.c<br/>+MacPerl/MacPerl.pm<br/>+MacPerl/MacPerl.xs<br/>+MacPerl/Makefile.PL<br/>+MacPerl/OSA.c<br/>+MacPerl/OSA.xs<br/>+MacPerl/t/MacPerl.t<br/>+Makefile.PL<br/>+Memory/Makefile.PL<br/>+Memory/Memory.c<br/>+Memory/Memory.pm<br/>+Memory/Memory.xs<br/>+Memory/t/Memory.t<br/>+MoreFiles/MF.c<br/>+MoreFiles/MF.xs<br/>+MoreFiles/Makefile.PL<br/>+MoreFiles/MoreFiles.pm<br/>+MoreFiles/MoreFilesSrc/DirectoryCopy.c<br/>+MoreFiles/MoreFilesSrc/DirectoryCopy.h<br/>+MoreFiles/MoreFilesSrc/FSpCompat.c<br/>+MoreFiles/MoreFilesSrc/FSpCompat.h<br/>+MoreFiles/MoreFilesSrc/FileCopy.c<br/>+MoreFiles/MoreFilesSrc/FileCopy.h<br/>+MoreFiles/MoreFilesSrc/FullPath.c<br/>+MoreFiles/MoreFilesSrc/FullPath.h<br/>+MoreFiles/MoreFilesSrc/IterateDirectory.c<br/>+MoreFiles/MoreFilesSrc/IterateDirectory.h<br/>+MoreFiles/MoreFilesSrc/MoreDesktopMgr.c<br/>+MoreFiles/MoreFilesSrc/MoreDesktopMgr.h<br/>+MoreFiles/MoreFilesSrc/MoreFiles.c<br/>+MoreFiles/MoreFilesSrc/MoreFiles.h<br/>+MoreFiles/MoreFilesSrc/MoreFilesExtras.c<br/>+MoreFiles/MoreFilesSrc/MoreFilesExtras.h<br/>+MoreFiles/MoreFilesSrc/Optimization.h<br/>+MoreFiles/MoreFilesSrc/OptimizationEnd.h<br/>+MoreFiles/MoreFilesSrc/Search.c<br/>+MoreFiles/MoreFilesSrc/Search.h<br/>+MoreFiles/eg/Application.plx<br/>+MoreFiles/eg/Iterate.plx<br/>+MoreFiles/t/MoreFiles.t<br/>+Notification/Makefile.PL<br/>+Notification/Notification.c<br/>+Notification/Notification.pm<br/>+Notification/Notification.xs<br/>+Notification/t/Notification.rsrc<br/>+Notification/t/Notification.t<br/>+Notification/typemap<br/>+Processes/Makefile.PL<br/>+Processes/Processes.c<br/>+Processes/Processes.pm<br/>+Processes/Processes.xs<br/>+Processes/eg/Processes.plx<br/>+Processes/t/Processes.t<br/>+Processes/typemap<br/>+QuickDraw/typemap<br/>+README<br/>+Resources/Makefile.PL<br/>+Resources/Resources.c<br/>+Resources/Resources.pm<br/>+Resources/Resources.xs<br/>+Resources/t/Resources.t<br/>+Sound/Makefile.PL<br/>+Sound/Sound.c<br/>+Sound/Sound.pm<br/>+Sound/Sound.xs<br/>+Sound/t/Scream.rsrc<br/>+Sound/t/Sound.t<br/>+Sound/typemap<br/>+Speech/Makefile.PL<br/>+Speech/Speech.c<br/>+Speech/Speech.pm<br/>+Speech/Speech.xs<br/>+Speech/eg/Cellist.plx<br/>+Speech/eg/DumpVoices.plx<br/>+Speech/eg/JukeBox.plx<br/>+Speech/eg/Phonemes.plx<br/>+Speech/t/Speech.t<br/>+Speech/typemap<br/>+Types/Makefile.PL<br/>+Types/Types.c<br/>+Types/Types.pm<br/>+Types/Types.xs<br/>+Types/t/Types.t<br/>+t/Carbon.t<br/>+typemap<br/>+xsubpps/xsubpp-5.6.1<br/>+xsubpps/xsubpp-5.8.0<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/MANIFEST.SKIP#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/MANIFEST.SKIP<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/MANIFEST.SKIP Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,4 @@<br/>+CVS<br/>+\.DS_Store<br/>+MacPerl/XL.xs<br/>+MacPerl/AutoInit.pl<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/Makefile.PL#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/Makefile.PL<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,12 @@<br/>+use ExtUtils::MakeMaker;<br/>+<br/>+WriteMakefile(<br/>+ &#39;NAME&#39; =&gt; &#39;Mac::Carbon&#39;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &#39;Carbon.pm&#39;,<br/>+ &#39;PREREQ_PM&#39; =&gt; {<br/>+ &#39;Test::More&#39; =&gt; 0,<br/>+ },<br/>+ &#39;test&#39; =&gt; {<br/>+ &#39;TESTS&#39; =&gt; &#39;t/*.t */t/*.t&#39;<br/>+ }<br/>+);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/README#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/README<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/README Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,156 @@<br/>+#!perl -w<br/>+# run this document through perl to check its syntax<br/>+use Pod::Checker;<br/>+podchecker(\*DATA);<br/>+__END__<br/>+<br/>+=head1 NAME<br/>+<br/>+README - Carbon API for perl on Mac OS X<br/>+<br/>+=head1 SYNOPSIS<br/>+<br/>+This is B&lt;not release-quality&gt; software. It is still in development, and<br/>+not recommend for use in a production environment.<br/>+<br/>+Mac::Carbon is a collection of perl modules for accessing the Carbon API<br/>+under Mac OS X. It is a port of the Toolbox modules written by Matthias<br/>+Neeracher for MacPerl.<br/>+<br/>+Part of the current strategy is to make Mac::Carbon the intersection of<br/>+the old and new Mac OS APIs. We will not be adding new functionality<br/>+from Carbon, except as needed, for now. This may change over time as<br/>+Mac::Carbon stabilizes.<br/>+<br/>+See the documentation in L&lt;Mac::Carbon&gt; for more implementation details,<br/>+bugs, etc.<br/>+<br/>+<br/>+=head1 HELP ME<br/>+<br/>+There are probably a lot of bugs, especially in F&lt;Carbon.h&gt;. Bugs are listed<br/>+in L&lt;Mac::Carbon/&quot;Known Bugs&quot;&gt;; please feel free to report them on the MacPerl bug<br/>+reporting page, in the &quot;Mac Toolbox&quot; category. Patches are welcome,<br/>+too, of course. For large patches, such as stuff for test suites and<br/>+building, please do coordinate with me before spending much time on it.<br/>+<br/>+ http://sf.net/projects/macperl/<br/>+<br/>+<br/>+=head1 REQUIREMENTS<br/>+<br/>+=head2 Mac OS<br/>+<br/>+These modules all build under Mac OS, but it is recommended you build them<br/>+as a part of MacPerl itself, or at least under the MacPerl source. See<br/>+http://dev.macperl.org/ for more information.<br/>+<br/>+Under Mac OS, the full Mac OS API is available, not just the Carbon-compatible<br/>+routines.<br/>+<br/>+=head2 Mac OS X<br/>+<br/>+To build these modules on Mac OS X, the Developer Tools are required.<br/>+<br/>+The Test::More module is required for running tests.<br/>+<br/>+The separate Mac::Errors module is not required, but is highly recommended.<br/>+<br/>+These modules have only been tested with perl 5.6.0 on Mac OS X. See<br/>+the note in L&lt;BUILDING&gt;.<br/>+<br/>+The modules will compile and test remotely (such as via ssh, instead of<br/>+via the Terminal), but some of the tests might not run properly, and<br/>+one of the tests (for Mac::Notification) wants user feedback (though will<br/>+work without it).<br/>+<br/>+<br/>+=head1 BUILDING<br/>+<br/>+Matthias added some extensions to XS for his Toolbox modules; they were<br/>+never fully embraced by p5p, and as a result, we have a separate xsubpp<br/>+for these additional XS macros. There is currently no resolution to this<br/>+problem. Either we write a pre-preprocessor that converts the .xs files<br/>+to be able to be handled by perl&#39;s xsubpp, or we modify the .xs so that<br/>+it can be handled by perl&#39;s xsubpp, or we distribute a separate xsubpp<br/>+(which is dangerous, as xsubpp changes with versions of perl).<br/>+<br/>+Currently, Mac::Carbon is distributed with the already-processed .c files.<br/>+If you really want to compile with the .xs files, you can use the xsubpp<br/>+programs (either the 5.6 or 5.8 versions) included in the distribution.<br/>+This is only temporary, until we have a permanent resolution to these<br/>+issues.<br/>+<br/>+You might want to run the test suite with C&lt;make test TEST_VERBOSE=1&gt;.<br/>+It&#39;s cool.<br/>+<br/>+<br/>+=head1 SUPPORTED MODULES<br/>+<br/>+Currently, only a subset of the modules are supported. The ported<br/>+modules are:<br/>+<br/>+ Mac::Components<br/>+ Mac::Files<br/>+ Mac::Gestalt<br/>+ Mac::Memory<br/>+ Mac::MoreFiles<br/>+ Mac::Notification<br/>+ Mac::Processes<br/>+ Mac::Resources<br/>+ Mac::Sound<br/>+ Mac::Speech<br/>+ Mac::Types<br/>+<br/>+Coming next, hopefully:<br/>+<br/>+ Mac::AppleEvents<br/>+ Mac::OSA<br/>+<br/>+Mac::AppleEvents is going to take more work than the others, as it<br/>+involves some significant API changes.<br/>+<br/>+Following those, the pure-perl modules, which should not take much<br/>+work, as long as the core XS modules they rely on are working:<br/>+<br/>+ Mac::AppleEvents::Simple<br/>+ Mac::OSA::Simple<br/>+ Mac::Glue<br/>+<br/>+And, possibly:<br/>+<br/>+ Mac::InternetConfig<br/>+ Mac::SpeechRecognition<br/>+<br/>+There are currently no plans for the other (GUI) modules, including:<br/>+<br/>+ Mac::Controls<br/>+ Mac::Dialogs<br/>+ Mac::Events<br/>+ Mac::Fonts<br/>+ Mac::Lists<br/>+ Mac::Menus<br/>+ Mac::Movies<br/>+ Mac::Navigation<br/>+ Mac::QDOffScreen<br/>+ Mac::QuickDraw<br/>+ Mac::QuickTimeVR<br/>+ Mac::TextEdit<br/>+ Mac::Windows<br/>+<br/>+We could do these eventually, if there is enough interest. They don&#39;t<br/>+port as easily as some of the others, for many reasons, not the least of<br/>+which is that we need a framework to handle events etc., which for<br/>+MacPerl is mostly implemented in F&lt;macish.c&gt; / F&lt;macish.h&gt;.<br/>+<br/>+<br/>+=head1 AUTHOR<br/>+<br/>+The Mac Toolbox modules were written by Matthias Neeracher<br/>+E&lt;lt&gt;neeracher@mac.comE&lt;gt&gt;. They are currently maintained by Chris<br/>+Nandor E&lt;lt&gt;pudge@pobox.comE&lt;gt&gt;.<br/>+<br/>+<br/>+=head1 VERSION<br/>+<br/>+$Id: README,v 1.1 2002/11/13 02:04:50 pudge Exp $<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/t/Carbon.t#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/t/Carbon.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/t/Carbon.t Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,17 @@<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 4 }<br/>+<br/>+use Mac::Carbon qw(:resources :files :macperl);<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Carbon&quot;, 4;<br/>+ ok(resChanged() == 2, &#39;resChanged() == 2&#39;);<br/>+ ok(defined &amp;FSpGetCatInfo, &#39;FSpGetCatInfo imported&#39;);<br/>+ ok(!defined &amp;RegisterComponentResource, &#39;RegisterComponentResource not imported&#39;);<br/>+ ok(DoAppleScript(&#39;get version&#39;), &#39;DoAppleScript() works&#39;);<br/>+}<br/>+<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Carbon/typemap#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Carbon/typemap<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Carbon/typemap Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,74 @@<br/>+TYPEMAP<br/>+ConnectionID T_IV<br/>+Str255 T_STR255<br/>+OSType T_OSTYPE<br/>+FSSpec T_FSSPEC<br/>+Handle T_PTROBJ<br/>+Ptr T_PTROBJ<br/>+RawPtr T_IV<br/>+OSErr T_IV<br/>+SInt8 T_IV<br/>+AEDesc T_RECORDOBJ<br/>+AEKeyDesc T_RECORDOBJ<br/>+AESubDesc T_RECORDOBJ<br/>+AEStream T_RECORDOBJ<br/>+MacOSRet T_MACOSRET<br/>+HandleRet T_HANDLERET<br/>+PtrRet T_PTRRET<br/>+NumVersion T_RECORDOBJ<br/>+Fixed T_FIXED<br/>+Boolean T_IV<br/>+time_t T_NV<br/>+INPUT<br/>+T_MACOSRET<br/>+ $var NOT IMPLEMENTED<br/>+T_HANDLERET<br/>+ $var NOT IMPLEMENTED<br/>+T_PTRRET<br/>+ $var NOT IMPLEMENTED<br/>+T_STR255<br/>+ MacPerl_CopyC2P(SvPV_nolen($arg), $var)<br/>+T_OSTYPE<br/>+ memcpy(&amp;$var, SvPV_nolen($arg), sizeof($ntype))<br/>+T_RECORDREF<br/>+ if (SvROK($arg))<br/>+ memcpy(&amp;$var, SvPV_nolen((SV*)SvRV($arg)), sizeof($ntype));<br/>+ else<br/>+ croak(\&quot;$var is not a reference\&quot;)<br/>+T_RECORDOBJ<br/>+ if (sv_isa($arg, \&quot;${ntype}\&quot;))<br/>+ memcpy(&amp;$var, SvPV_nolen((SV*)SvRV($arg)), sizeof($ntype));<br/>+ else<br/>+ croak(\&quot;$var is not of type ${ntype}\&quot;)<br/>+T_FSSPEC<br/>+ if (GUSIPath2FSp((char *) SvPV_nolen($arg), &amp;$var))<br/>+ croak(\&quot;$var is not a valid file specification\&quot;);<br/>+ else<br/>+ 0<br/>+T_FIXED<br/>+ $var = X2Fix(SvNV($arg))<br/>+OUTPUT<br/>+T_MACOSRET<br/>+ sv_setiv($arg, (IV)!(gMacPerl_OSErr = (short)($var)));<br/>+T_HANDLERET<br/>+ if ($var)<br/>+ sv_setref_pv($arg, \&quot;Handle\&quot;, (void*)$var);<br/>+ else<br/>+ gMacPerl_OSErr = MemError();<br/>+T_PTRRET<br/>+ if ($var)<br/>+ sv_setref_pv($arg, \&quot;Ptr\&quot;, (void*)$var);<br/>+ else<br/>+ gMacPerl_OSErr = MemError();<br/>+T_STR255<br/>+ sv_setpvn($arg, ((char *) $var) + 1, $var\[0\]);<br/>+T_OSTYPE<br/>+ sv_setpvn($arg, (char *) &amp;$var, 4);<br/>+T_RECORDREF<br/>+ sv_setref_pvn($arg, \&quot;${ntype}\&quot;, (void*)&amp;$var, sizeof($ntype));<br/>+T_RECORDOBJ<br/>+ sv_setref_pvn($arg, \&quot;${ntype}\&quot;, (void*)&amp;$var, sizeof($ntype));<br/>+T_FSSPEC<br/>+ sv_setpv($arg, GUSIFSp2FullPath(&amp;$var));<br/>+T_FIXED<br/>+ sv_setnv($arg, Fix2X($var));<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Components/Components.pm#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Components/Components.pm<br/>--- macperl/macos/ext/Mac/Components/Components.pm#2~12323~ Wed Oct 3 11:42:37 2001<br/>+++ macperl/macos/ext/Mac/Components/Components.pm Wed Nov 27 19:20:15 2002<br/>@@ -22,7 +22,7 @@<br/> use DynaLoader;<br/> <br/> use vars qw(@ISA @EXPORT $VERSION);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> RegisterComponentResource<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Components/Components.xs#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Components/Components.xs<br/>--- macperl/macos/ext/Mac/Components/Components.xs#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Components/Components.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Components/Components.xs,v 1.2 2000/09/09 22:18:26 neeri Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Components/Components.xs,v 1.3 2002/11/13 02:04:50 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Components.xs,v $<br/>+ * Revision 1.3 2002/11/13 02:04:50 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.2 2000/09/09 22:18:26 neeri<br/> * Dynamic libraries compile under 5.6<br/> *<br/>@@ -25,6 +28,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Memory.h&gt;<br/> #include &lt;Components.h&gt;<br/>@@ -168,15 +174,27 @@<br/> HLock(info);<br/> if (!gMacPerl_OSErr) <br/> if (GIMME != G_ARRAY) {<br/>- XS_XPUSH(Str255, (StringPtr)*name);<br/>+ if (*name == NULL) {<br/>+ XS_XPUSH(Str255, &quot;&quot;);<br/>+ } else {<br/>+ XS_XPUSH(Str255, (StringPtr)*name);<br/>+ }<br/> } else {<br/> XPUSHs(sv_2mortal(MakeOSSV(desc.componentType)));<br/> XPUSHs(sv_2mortal(MakeOSSV(desc.componentSubType)));<br/> XPUSHs(sv_2mortal(MakeOSSV(desc.componentManufacturer)));<br/> XPUSHs(sv_2mortal(newSViv(desc.componentFlags)));<br/> XPUSHs(sv_2mortal(newSViv(desc.componentFlagsMask)));<br/>- XS_XPUSH(Str255, (StringPtr)*name);<br/>- XS_XPUSH(Str255, (StringPtr)*info);<br/>+ if (*name == NULL) {<br/>+ XS_XPUSH(Str255, &quot;&quot;);<br/>+ } else {<br/>+ XS_XPUSH(Str255, (StringPtr)*name);<br/>+ }<br/>+ if (*info == NULL) {<br/>+ XS_XPUSH(Str255, &quot;&quot;);<br/>+ } else {<br/>+ XS_XPUSH(Str255, (StringPtr)*info);<br/>+ }<br/> }<br/> DisposeHandle(name);<br/> DisposeHandle(info);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Components/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Components/Makefile.PL<br/>--- macperl/macos/ext/Mac/Components/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Components/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,8 +1,22 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Components),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Components.pm&#39;,<br/>+my $mod = &#39;Components&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Components/eg/ListComponents.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Components/eg/ListComponents.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Components/eg/ListComponents.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,14 @@<br/>+Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+<br/>+#!perl<br/>+#<br/>+# ListComponents.t - Demonstrate how to list all components. To restrict the listing<br/>+# to one type, pass it on the command line as in <br/>+# ListComponents.t &quot;osa &quot;<br/>+#<br/>+<br/>+use Mac::Components;<br/>+<br/>+for ($comp = 0; $comp = FindNextComponent($comp, $ARGV[0]); ) {<br/>+ printf &quot;%08X: %4s %4s %4s %08X %08X %-25s %s\n&quot;, $comp, GetComponentInfo($comp);<br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Components/t/Components.t#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Components/t/Components.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Components/t/Components.t Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,21 @@<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 1 }<br/>+<br/>+use Mac::Components;<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Components&quot;, 1;<br/>+<br/>+# try to open components, get info from them<br/>+<br/>+ my $count = 0;<br/>+ for (my $comp = 0; $comp = FindNextComponent($comp, $ARGV[0]); ) {<br/>+ ++$count;<br/>+ }<br/>+ is($count, CountComponents(), &#39;count components&#39;);<br/>+}<br/>+<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Files/Files.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Files/Files.pm<br/>--- macperl/macos/ext/Mac/Files/Files.pm#3~12965~ Mon Nov 12 21:42:59 2001<br/>+++ macperl/macos/ext/Mac/Files/Files.pm Wed Nov 27 19:20:15 2002<br/>@@ -19,7 +19,7 @@<br/> <br/> use vars qw(@ISA @EXPORT $VERSION);<br/> <br/>- $VERSION = &#39;1.01&#39;;<br/>+ $VERSION = &#39;1.02&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> FSpGetCatInfo<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Files/Files.xs#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Files/Files.xs<br/>--- macperl/macos/ext/Mac/Files/Files.xs#3~14587~ Thu Feb 7 10:46:28 2002<br/>+++ macperl/macos/ext/Mac/Files/Files.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Files/Files.xs,v 1.5 2002/01/30 07:43:54 neeri Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Files/Files.xs,v 1.6 2002/11/13 02:04:51 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Files.xs,v $<br/>+ * Revision 1.6 2002/11/13 02:04:51 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.5 2002/01/30 07:43:54 neeri<br/> * Check ownership of CatInfos<br/> *<br/>@@ -44,9 +47,14 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Folders.h&gt;<br/> #include &lt;Files.h&gt;<br/>+#ifdef MACOS_TRADITIONAL<br/> #include &lt;GUSIFileSpec.h&gt;<br/>+#endif<br/> #include &lt;Script.h&gt;<br/> #include &lt;Errors.h&gt;<br/> #include &lt;Aliases.h&gt;<br/>@@ -252,13 +260,19 @@<br/> }<br/> RETVAL-&gt;hFileInfo.ioVRefNum = file.vRefNum;<br/> RETVAL-&gt;hFileInfo.ioDirID = file.parID;<br/>- RETVAL-&gt;hFileInfo.ioFDirIndex = index;<br/>+ RETVAL-&gt;hFileInfo.ioFDirIndex = index;<br/> if (!index)<br/> memcpy(RETVAL-&gt;hFileInfo.ioNamePtr, file.name, *file.name+1);<br/> if (gMacPerl_OSErr = PBGetCatInfoSync(RETVAL)) {<br/> free(RETVAL);<br/> XSRETURN_UNDEF;<br/> }<br/>+#ifndef MACOS_TRADITIONAL<br/>+ // takes care of Dr time fields too<br/>+ RETVAL-&gt;hFileInfo.ioFlCrDat = SecondsMac2Unix(RETVAL-&gt;hFileInfo.ioFlCrDat);<br/>+ RETVAL-&gt;hFileInfo.ioFlMdDat = SecondsMac2Unix(RETVAL-&gt;hFileInfo.ioFlMdDat);<br/>+ RETVAL-&gt;hFileInfo.ioFlBkDat = SecondsMac2Unix(RETVAL-&gt;hFileInfo.ioFlBkDat);<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/>@@ -274,6 +288,12 @@<br/> CODE:<br/> info-&gt;hFileInfo.ioVRefNum = file.vRefNum;<br/> info-&gt;hFileInfo.ioDirID = file.parID;<br/>+#ifndef MACOS_TRADITIONAL<br/>+ // takes care of Dr time fields too<br/>+ info-&gt;hFileInfo.ioFlCrDat = SecondsUnix2Mac(info-&gt;hFileInfo.ioFlCrDat);<br/>+ info-&gt;hFileInfo.ioFlMdDat = SecondsUnix2Mac(info-&gt;hFileInfo.ioFlMdDat);<br/>+ info-&gt;hFileInfo.ioFlBkDat = SecondsUnix2Mac(info-&gt;hFileInfo.ioFlBkDat);<br/>+#endif<br/> memcpy(info-&gt;hFileInfo.ioNamePtr, file.name, *file.name+1);<br/> RETVAL = PBSetCatInfoSync(info);<br/> OUTPUT:<br/>@@ -597,7 +617,11 @@<br/> Str255 volName<br/> short vRefNum<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Files::Eject unsupported in Carbon&quot;);<br/>+#else<br/> RETVAL = Eject(volName, vRefNum);<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Files/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Files/Makefile.PL<br/>--- macperl/macos/ext/Mac/Files/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Files/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,9 +1,30 @@<br/> use ExtUtils::MakeMaker;<br/>+use File::Spec::Functions;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Files),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Files.pm&#39;,<br/>+my $mod = &#39;Files&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- TYPEMAPS =&gt; &#39;::QuickDraw:typemap&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+<br/>+ &#39;TYPEMAPS&#39; =&gt; [<br/>+ catfile(updir(), &#39;QuickDraw&#39;, &#39;typemap&#39;),<br/>+ ],<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39; &amp;&amp; $] &lt; 5.8) { # old makemaker syntax?<br/>+ $args{&#39;TYPEMAPS&#39;} = join &#39; &#39;, @{$args{&#39;TYPEMAPS&#39;}};<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Files/t/Files.t#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Files/t/Files.t<br/>--- macperl/macos/ext/Mac/Files/t/Files.t#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Files/t/Files.t Wed Nov 27 19:20:15 2002<br/>@@ -1,11 +1,17 @@<br/>-Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/> <br/>-#!perl<br/>-#<br/>-# Files.t - Demonstrate a few file calls.<br/>-#<br/>+BEGIN { plan tests =&gt; 1 }<br/> <br/> use Mac::Files;<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Files&quot;, 1;<br/>+ ok(1);<br/>+}<br/>+<br/>+__END__<br/> <br/> print FindFolder(kOnSystemDisk, kSystemFolderType), &quot;\n&quot;;<br/> $info = FSpGetCatInfo(&quot;::Makefile.mk&quot;);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Gestalt.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Gestalt/Gestalt.pm<br/>--- macperl/macos/ext/Mac/Gestalt/Gestalt.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Gestalt/Gestalt.pm Wed Nov 27 19:20:15 2002<br/>@@ -29,7 +29,7 @@<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT %Gestalt);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> Gestalt<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Gestalt.xs#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Gestalt/Gestalt.xs<br/>--- macperl/macos/ext/Mac/Gestalt/Gestalt.xs#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Gestalt/Gestalt.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Gestalt/Gestalt.xs,v 1.2 2000/09/09 22:18:26 neeri Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Gestalt/Gestalt.xs,v 1.3 2002/11/13 02:04:51 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Gestalt.xs,v $<br/>+ * Revision 1.3 2002/11/13 02:04:51 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.2 2000/09/09 22:18:26 neeri<br/> * Dynamic libraries compile under 5.6<br/> *<br/>@@ -25,6 +28,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Gestalt.h&gt;<br/> <br/> MODULE = Mac::Gestalt PACKAGE = Mac::Gestalt<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Gestalt/Makefile.PL<br/>--- macperl/macos/ext/Mac/Gestalt/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Gestalt/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,8 +1,22 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Gestalt),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Gestalt.pm&#39;,<br/>+my $mod = &#39;Gestalt&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Gestalt/t/Gestalt.t#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Gestalt/t/Gestalt.t<br/>--- macperl/macos/ext/Mac/Gestalt/t/Gestalt.t#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Gestalt/t/Gestalt.t Wed Nov 27 19:20:15 2002<br/>@@ -1,14 +1,40 @@<br/>-Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/> <br/>-#!perl<br/>-#<br/>-# Gestalt.t - Demostrate the Gestalt call.<br/>-#<br/>+BEGIN { plan tests =&gt; 10 }<br/> <br/> use Mac::Gestalt;<br/> <br/>-print Gestalt(gestaltStandardFileAttr), &quot;\n&quot;;<br/>+SKIP: {<br/>+# skip &quot;Mac::Gestalt&quot;, 10;<br/> <br/>-if ($Gestalt{gestaltCloseViewAttr()} &amp; (1 &lt;&lt; gestaltCloseViewEnabled)) {<br/>- print &quot;Hello, fellow four-eye!\n&quot;;<br/>-}<br/>\ No newline at end of file<br/>+ my $sel;<br/>+<br/>+ $sel = $Gestalt{&#39;pclk&#39;};<br/>+ ok($sel, sprintf(&#39;%s MHz Clock Speed&#39;, $sel/1000000));<br/>+<br/>+ ok(gestaltPhysicalRAMSize() eq &#39;ram &#39;);<br/>+ $sel = $Gestalt{gestaltPhysicalRAMSize()};<br/>+ ok($sel, sprintf(&#39;%s MB Physical RAM&#39;, $sel/1048576));<br/>+<br/>+ ok(gestaltLogicalRAMSize() eq &#39;lram&#39;);<br/>+ $sel = $Gestalt{gestaltLogicalRAMSize()};<br/>+ ok($sel, sprintf(&#39;%s MB Logical RAM&#39;, $sel/1048576));<br/>+<br/>+ ok(gestaltSystemVersion() eq &#39;sysv&#39;);<br/>+ $sel = $Gestalt{gestaltSystemVersion()};<br/>+ my @vers = split //, sprintf &quot;%x&quot;, $sel;<br/>+ my $vers = sprintf &quot;%s.%s.&quot;, pop(@vers), pop(@vers);<br/>+ $vers = join(&#39;&#39;, @vers) . reverse $vers;<br/>+ ok($sel, &quot;OS v$vers&quot;);<br/>+<br/>+ ok(gestaltAUXVersion() eq &#39;a/ux&#39;);<br/>+ $sel = $Gestalt{gestaltAUXVersion()};<br/>+ ok(!$sel, &quot;Not running A/UX&quot;);<br/>+<br/>+ $sel = $Gestalt{gestaltAliasMgrAttr()};<br/>+ ok(($sel &amp; (1 &lt;&lt; gestaltAliasMgrPresent)) == 1, &quot;Alias manager present&quot;);<br/>+}<br/>+<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Memory/Makefile.PL<br/>--- macperl/macos/ext/Mac/Memory/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Memory/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,8 +1,22 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Memory),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Memory.pm&#39;,<br/>+my $mod = &#39;Memory&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Memory/Memory.pm<br/>--- macperl/macos/ext/Mac/Memory/Memory.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Memory/Memory.pm Wed Nov 27 19:20:15 2002<br/>@@ -1,6 +1,6 @@<br/> =head1 NAME<br/> <br/>-MacOS Memory Manager<br/>+Mac::Memory - MacOS Memory Manager<br/> <br/> Provide the MacPerl interface to the memory management routines in the MacOS.<br/> <br/>@@ -34,7 +34,7 @@<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT);<br/>- $VERSION = &#39;1.20&#39;;<br/>+ $VERSION = &#39;1.21&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> GetApplLimit<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Memory/Memory.xs#5 (text) ====<br/>Index: macperl/macos/ext/Mac/Memory/Memory.xs<br/>--- macperl/macos/ext/Mac/Memory/Memory.xs#4~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Memory/Memory.xs Wed Nov 27 19:20:15 2002<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Memory.xs,v $<br/>+ * Revision 1.8 2002/11/13 02:04:52 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.7 2002/01/23 20:24:58 pudge<br/> * Fix silly error<br/> *<br/>@@ -46,6 +49,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Memory.h&gt;<br/> #include &lt;TextUtils.h&gt;<br/>@@ -414,8 +420,20 @@<br/> <br/> <br/> =cut<br/>+<br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> RawPtr<br/> GetApplLimit()<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::GetApplLimit unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+RawPtr<br/>+GetApplLimit()<br/>+<br/>+#endif<br/> <br/> =item TopMem<br/> <br/>@@ -451,18 +469,42 @@<br/> NewHandle(byteCount)<br/> long byteCount<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+HandleRet<br/>+NewHandleSys(byteCount)<br/>+ long byteCount<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::NewHandleSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> HandleRet<br/> NewHandleSys(byteCount)<br/> long byteCount<br/> <br/>+#endif<br/>+<br/> HandleRet<br/> NewHandleClear(byteCount)<br/> long byteCount<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+HandleRet<br/>+NewHandleSysClear(byteCount)<br/>+ long byteCount<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::NewHandleSysClear unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> HandleRet<br/> NewHandleSysClear(byteCount)<br/> long byteCount<br/> <br/>+#endif<br/>+<br/> =item NewPtr BYTECOUNT<br/> <br/> =item NewPtrSys BYTECOUNT<br/>@@ -485,24 +527,48 @@<br/> CLEANUP:<br/> gMacPerl_OSErr = MemError();<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+PtrRet<br/>+NewPtrSys(byteCount)<br/>+ long byteCount<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::NewPtrSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> PtrRet<br/> NewPtrSys(byteCount)<br/> long byteCount<br/> CLEANUP:<br/> gMacPerl_OSErr = MemError();<br/> <br/>+#endif<br/>+<br/> PtrRet<br/> NewPtrClear(byteCount)<br/> long byteCount<br/> CLEANUP:<br/> gMacPerl_OSErr = MemError();<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+PtrRet<br/>+NewPtrSysClear(byteCount)<br/>+ long byteCount<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::NewPtrSysClear unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> PtrRet<br/> NewPtrSysClear(byteCount)<br/> long byteCount<br/> CLEANUP:<br/> gMacPerl_OSErr = MemError();<br/> <br/>+#endif<br/>+<br/> =item MaxBlock<br/> <br/> =item MaxBlockSys<br/>@@ -518,8 +584,19 @@<br/> long<br/> MaxBlock()<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> long<br/> MaxBlockSys()<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::MaxBlockSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+long<br/>+MaxBlockSys()<br/>+<br/>+#endif<br/> <br/> =item StackSpace<br/> <br/>@@ -548,8 +625,19 @@<br/> HandleRet<br/> NewEmptyHandle()<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> HandleRet<br/> NewEmptyHandleSys()<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::NewEmptyHandleSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+HandleRet<br/>+NewEmptyHandleSys()<br/>+<br/>+#endif<br/> <br/> =item HLock HANDLE<br/> <br/>@@ -630,7 +718,10 @@<br/> long logicalSize<br/> CODE:<br/> {<br/>- RETVAL = TempNewHandle(logicalSize, &amp;gMacPerl_OSErr);<br/>+ OSErr myErr;<br/>+<br/>+ RETVAL = TempNewHandle(logicalSize, &amp;myErr);<br/>+ gMacPerl_OSErr = myErr;<br/> if (gMacPerl_OSErr) {<br/> XSRETURN_UNDEF;<br/> }<br/>@@ -694,9 +785,21 @@<br/> CompactMem(cbNeeded)<br/> long cbNeeded<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> long<br/> CompactMemSys(cbNeeded)<br/> long cbNeeded<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::CompactMemSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+long<br/>+CompactMemSys(cbNeeded)<br/>+ long cbNeeded<br/>+<br/>+#endif<br/> <br/> =item PurgeMem BYTECOUNT<br/> <br/>@@ -721,9 +824,21 @@<br/> PurgeMem(cbNeeded)<br/> long cbNeeded<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> void<br/> PurgeMemSys(cbNeeded)<br/> long cbNeeded<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::PurgeMemSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+void<br/>+PurgeMemSys(cbNeeded)<br/>+ long cbNeeded<br/>+<br/>+#endif<br/> <br/> =item FreeMem<br/> <br/>@@ -740,8 +855,19 @@<br/> long<br/> FreeMem()<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> long<br/> FreeMemSys()<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::FreeMemSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+long<br/>+FreeMemSys()<br/>+<br/>+#endif<br/> <br/> =item ReserveMem BYTECOUNT<br/> <br/>@@ -761,10 +887,22 @@<br/> ReserveMem(cbNeeded)<br/> long cbNeeded<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+void<br/>+ReserveMemSys(cbNeeded)<br/>+ long cbNeeded<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Memory::ReserveMemSys unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> void<br/> ReserveMemSys(cbNeeded)<br/> long cbNeeded<br/> <br/>+#endif<br/>+<br/> =item MaxMem<br/> <br/> =item MaxMemSys<br/>@@ -796,12 +934,16 @@<br/> MaxMemSys()<br/> PPCODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Memory::MaxMemSys unsupported in Carbon&quot;);<br/>+#else<br/> long grow;<br/> <br/> XS_PUSH(long, MaxMemSys(&amp;grow));<br/> if (GIMME == G_ARRAY) {<br/> XS_PUSH(long, grow);<br/> }<br/>+#endif<br/> }<br/> <br/> =item MoveHHi HANDLE<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Memory/t/Memory.t#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Memory/t/Memory.t<br/>--- macperl/macos/ext/Mac/Memory/t/Memory.t#2~14076~ Fri Jan 4 12:44:23 2002<br/>+++ macperl/macos/ext/Mac/Memory/t/Memory.t Wed Nov 27 19:20:15 2002<br/>@@ -1,17 +1,37 @@<br/>-Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/> <br/>-#!perl<br/>-#<br/>-# Memory.t - List some statistics about the heap.<br/>-#<br/>+BEGIN { plan tests =&gt; 12 }<br/> <br/> use Mac::Memory;<br/> <br/>-print &lt;&lt;END;<br/>-Stack Space: @{[StackSpace]}<br/>-Free Memory: @{[FreeMem]}<br/>-Max Memory: @{[MaxMem]}<br/>-END<br/>+SKIP: {<br/>+# skip &quot;Mac::Memory&quot;, 12;<br/>+<br/>+# test any of the many other memory functions, seldom-used though they are?<br/>+<br/>+ ok(StackSpace(), &#39;StackSpace&#39;);<br/>+ ok(FreeMem(), &#39;FreeMem&#39;);<br/>+ ok(MaxMem(), &#39;MaxMem&#39;);<br/>+<br/>+ ok(my $h = Handle-&gt;new(&#39;xyzzy&#39;), &#39;new handle&#39;);<br/>+ is($h-&gt;get, &#39;xyzzy&#39;, &#39;get handle&#39;);<br/>+ is($h-&gt;size, 5, &#39;handle size&#39;);<br/>+ is($h-&gt;get(2, 2), &#39;zz&#39;, &#39;get handle portion&#39;);<br/>+<br/>+ ok($h-&gt;append(&#39; wokka wokka&#39;), &#39;append to handle&#39;);<br/>+ is($h-&gt;get, &#39;xyzzy wokka wokka&#39;, &#39;get handle&#39;);<br/>+ is($h-&gt;size, 17, &#39;handle size&#39;);<br/>+ is($h-&gt;get(2, 2), &#39;zz&#39;, &#39;get handle portion&#39;);<br/>+<br/>+ ok(!$h-&gt;dispose, &#39;dispose handle&#39;);<br/>+}<br/>+<br/>+<br/>+__END__<br/>+<br/>+Handle-&gt;open() doesn&#39;t work. Probably never will again.<br/> <br/> $h = new Handle(&quot;xyzzy&quot;);<br/> $r = $h-&gt;open(&quot;r&quot;);<br/>@@ -37,4 +57,3 @@<br/> truncate $r, 0;<br/> # should be &quot; (0)&quot;<br/> printf &quot;%s (%d)\n&quot;, $h-&gt;get, $h-&gt;size;<br/>-__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MF.xs#3 (text) ====<br/>Index: macperl/macos/ext/Mac/MoreFiles/MF.xs<br/>--- macperl/macos/ext/Mac/MoreFiles/MF.xs#2~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/MoreFiles/MF.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/MoreFiles/MF.xs,v 1.4 2002/01/23 05:44:42 pudge Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/MoreFiles/MF.xs,v 1.5 2002/11/13 02:04:52 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: MF.xs,v $<br/>+ * Revision 1.5 2002/11/13 02:04:52 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.4 2002/01/23 05:44:42 pudge<br/> * Update whitespace etc., from Thomas<br/> *<br/>@@ -32,10 +35,15 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Memory.h&gt;<br/> #include &lt;Files.h&gt;<br/>+#ifdef MACOS_TRADITIONAL<br/> #include &lt;GUSIFileSpec.h&gt;<br/>+#endif<br/> #include &quot;MoreFiles.h&quot;<br/> #include &quot;FileCopy.h&quot;<br/> #include &quot;IterateDirectory.h&quot;<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/MoreFiles/Makefile.PL<br/>--- macperl/macos/ext/Mac/MoreFiles/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/MoreFiles/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,10 +1,36 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::MoreFiles),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;MoreFiles.pm&#39;,<br/>- &#39;LINKTYPE&#39; =&gt; [&#39;static&#39;, &#39;dynamic&#39;],<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>- &#39;INC&#39; =&gt; &#39;-i &quot;$(PERL_SRC):MoreFiles:CHeaders:&quot;&#39;,<br/>- OBJECT =&gt; &#39;MF.c&#39;<br/>+my $mod = &#39;MoreFiles&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/>+ &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ my $src = &#39;MoreFilesSrc&#39;;<br/>+ # we only compile these separately for Mac OS X right now, so<br/>+ # we keep them in a separate directory and copy them in when needed<br/>+ require File::Copy;<br/>+ opendir my $dh, $src or die $!;<br/>+ File::Copy::copy($_, &#39;.&#39;) for map { &quot;$src/$_&quot; } grep { /\.c$/ } readdir($dh);<br/>+ # all our C_FILES are generated or copied into place<br/>+ $args{&#39;clean&#39;} = { FILES =&gt; &#39;$(C_FILES)&#39; };<br/>+<br/>+ $args{&#39;INC&#39;} = &quot;-I/Developer/Headers/FlatCarbon/ -I./$src&quot;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+ $args{&#39;OBJECT&#39;} = &#39;$(O_FILES)&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-i &quot;$(PERL_SRC):MoreFiles:CHeaders:&quot;&#39;;<br/>+ $args{&#39;OBJECT&#39;} = &#39;MF.c&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm<br/>--- macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/MoreFiles/MoreFiles.pm Wed Nov 27 19:20:15 2002<br/>@@ -17,11 +17,12 @@<br/> package Mac::MoreFiles;<br/> <br/> BEGIN {<br/>+ use MacPerl &#39;Volumes&#39;;<br/> use Exporter ();<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT %Application);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> FSpCreateMinimum<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/eg/Application.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/MoreFiles/eg/Application.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/MoreFiles/eg/Application.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,13 @@<br/>+Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+<br/>+#!perl<br/>+#<br/>+# Application.t - Demonstrate %Application<br/>+#<br/>+<br/>+use Mac::MoreFiles;<br/>+<br/>+print &quot;MacPerl apparently is in $Application{McPL}\n&quot;;<br/>+<br/>+die &quot;Oops! You have Microsoft Word on your machine&quot; if $Application{&quot;MSWD&quot;};<br/>+<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/eg/Iterate.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/MoreFiles/eg/Iterate.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/MoreFiles/eg/Iterate.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,11 @@<br/>+Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+<br/>+#!perl<br/>+#<br/>+# Iterate.t - Demonstrate FSpIterateDirectory<br/>+#<br/>+<br/>+use Mac::MoreFiles;<br/>+<br/>+FSpIterateDirectory(&quot;:&quot;, 2, sub { print @_, &quot;\n&quot;; return 0; }, &quot;&quot;);<br/>+<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/MoreFiles/t/MoreFiles.t#1 (text) ====<br/>Index: macperl/macos/ext/Mac/MoreFiles/t/MoreFiles.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/MoreFiles/t/MoreFiles.t Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,14 @@<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 1 }<br/>+<br/>+use Mac::MoreFiles;<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::MoreFiles&quot;, 1;<br/>+ ok(1);<br/>+}<br/>+<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Notification/Makefile.PL<br/>--- macperl/macos/ext/Mac/Notification/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Notification/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,9 +1,22 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Notification),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Notification.pm&#39;,<br/>+my $mod = &#39;Notification&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- TYPEMAPS =&gt; &#39;typemap&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Notification.pm#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Notification/Notification.pm<br/>--- macperl/macos/ext/Mac/Notification/Notification.pm#2~12323~ Wed Oct 3 11:42:37 2001<br/>+++ macperl/macos/ext/Mac/Notification/Notification.pm Wed Nov 27 19:20:15 2002<br/>@@ -23,7 +23,7 @@<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> NMInstall<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Notification/Notification.xs#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Notification/Notification.xs<br/>--- macperl/macos/ext/Mac/Notification/Notification.xs#2~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Notification/Notification.xs Wed Nov 27 19:20:15 2002<br/>@@ -17,6 +17,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Notification.h&gt;<br/> #include &lt;QuickDraw.h&gt;<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Notification/t/Notification.t#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Notification/t/Notification.t<br/>--- macperl/macos/ext/Mac/Notification/t/Notification.t#2~12210~ Tue Sep 25 12:28:20 2001<br/>+++ macperl/macos/ext/Mac/Notification/t/Notification.t Wed Nov 27 19:20:15 2002<br/>@@ -1,36 +1,119 @@<br/>-#!perl<br/>+#!/usr/bin/perl -w<br/>+use File::Spec::Functions &#39;devnull&#39;;<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 10 }<br/> <br/> use Mac::Notification;<br/>-use Mac::Events;<br/> use Mac::Processes;<br/>-use Mac::Resources;<br/>+use MacPerl &#39;DoAppleScript&#39;;<br/> <br/>-sub DoNotify {<br/>- my($notification) = @_;<br/>+local *OLDERR;<br/> <br/>- print &quot;Switch me to the background, please!\n&quot;;<br/>+SKIP: {<br/>+# skip &quot;Mac::Notification&quot;, 10;<br/> <br/>- WaitNextEvent while SameProcess(GetCurrentProcess, GetFrontProcess);<br/>- NMInstall($notification);<br/>+ my($process, $name);<br/>+ if ($^O eq &#39;MacOS&#39;) {<br/>+ $name = &#39;MacPerl&#39;;<br/>+ $process = GetCurrentProcess();<br/>+ } else {<br/>+ # current process is &quot;perl&quot;! We want the parent,<br/>+ # e.g., Terminal, as it is hard to put a non-application<br/>+ # process in the &quot;background&quot;<br/>+ my $current = $Process{ GetCurrentProcess() };<br/>+ my $parent = $Process{ $current-&gt;processLauncher };<br/>+<br/>+ # if no parent app, get Finder<br/>+ if (!$parent) {<br/>+ while (my($psn, $psi) = each %Process) {<br/>+ $parent = $psi, last if $psi-&gt;processName eq &#39;Finder&#39;;<br/>+ }<br/>+ }<br/>+ # we&#39;ll use perl if we have to, i suppose ...<br/>+ $current = $parent if $parent;<br/>+<br/>+ $name = $current-&gt;processName;<br/>+ $process = $current-&gt;processNumber;<br/>+ }<br/>+<br/>+ ok($process, &#39;process number&#39;);<br/>+ ok($name, &#39;process name&#39;);<br/>+<br/>+ if (SameProcess($process, GetFrontProcess())) {<br/>+ ok(my $notification = NMRec-&gt;new(<br/>+ nmStr =&gt; &quot;Switch $name to the background, please. &quot; .<br/>+ &quot;I&#39;ll switch in 30 seconds if you don&#39;t.&quot;<br/>+ ), &#39;create notification&#39;);<br/>+<br/>+ close_stderr();<br/>+ ok(NMInstall($notification), &#39;install notification&#39;);<br/>+ open_stderr();<br/>+<br/>+ my $count = 0;<br/>+ while (SameProcess($process, GetFrontProcess())) {<br/>+ sleep 1;<br/>+ if (++$count &gt;= 30) {<br/>+ # fails if Finder is not running ... but we don&#39;t want to<br/>+ # wait around forever<br/>+ DoAppleScript(&#39;tell app &quot;Finder&quot; to activate&#39;);<br/>+ last;<br/>+ }<br/>+ }<br/>+ ok(NMRemove($notification), &#39;remove notification&#39;);<br/>+ } else {<br/>+ ok(1, &quot;$name is in background&quot;) for 1..3;<br/>+ }<br/>+<br/>+ ok(my $notification = NMRec-&gt;new(<br/>+ nmStr =&gt; &quot;Please wait a few seconds, I will bring $name to the front.&quot;,<br/>+ ), &#39;create notification&#39;);<br/>+<br/>+ close_stderr();<br/>+ ok(NMInstall($notification), &#39;install notification&#39;);<br/>+ open_stderr();<br/>+<br/>+ my $count = 0;<br/>+ until (SameProcess($process, GetFrontProcess())) {<br/>+ sleep 1;<br/>+ last if ++$count &gt;= 5;<br/>+ }<br/>+<br/>+ ok(my $lp = new LaunchParam(<br/>+ launchAppSpec =&gt; $Mac::Processes::Process{$process}-&gt;processAppSpec,<br/>+ launchControlFlags =&gt; launchContinue(),<br/>+ ), &#39;create launch param&#39;);<br/>+ ok(LaunchApplication($lp), &#39;switching back&#39;);<br/> <br/>- WaitNextEvent until SameProcess(GetCurrentProcess, GetFrontProcess);<br/>- NMRemove($notification);<br/>+ ok(NMRemove($notification), &#39;remove notification&#39;);<br/> }<br/> <br/>-#<br/>-# Notify with dialog, system beep, check mark, application icon<br/>-#<br/>-DoNotify(new NMRec(nmStr=&gt;&quot;Thank you. Please bring MacPerl to the front again.&quot;));<br/>+<br/>+<br/>+# Notification manager prints to STDERR<br/>+sub close_stderr {<br/>+ open OLDERR, &quot;&gt;&amp;STDERR&quot;;<br/>+ close STDERR;<br/>+}<br/>+<br/>+sub open_stderr {<br/>+ open STDERR, &quot;&gt;&amp;OLDERR&quot;;<br/>+}<br/>+<br/>+__END__<br/>+<br/>+# notification with sound is broken. can we fix it? test for it?<br/>+# notification with app icon ... how to specify app icon, when &quot;app&quot;<br/>+# is perl? any way?<br/> <br/> #<br/> # Notify with custom sound and application icon only. <br/> # Sample from pitchshifter&#39;s _www.pitchshifter.com_ used with <br/> # permission.<br/> #<br/>-chomp($file = `pwd`);<br/>-$file .= &quot;Notification.rsrc&quot;;<br/>-print $file, &quot;\n&quot;;<br/>-($res = OpenResFile($file)) or die $^E;<br/>+$file = -d &#39;t&#39; ? &#39;t/Notification.rsrc&#39; : &#39;Notification.rsrc&#39;;<br/>+($res = FSpOpenResFile($file, 0)) or die $^E;<br/> $snd = GetResource(&quot;snd &quot;, 128);<br/> DoNotify(new NMRec(nmMark=&gt;0, nmSound=&gt;$snd));<br/> CloseResFile($res);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Processes/Makefile.PL<br/>--- macperl/macos/ext/Mac/Processes/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Processes/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,9 +1,25 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Processes),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Processes.pm&#39;,<br/>+my $mod = &#39;Processes&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>- &#39;LIBS&#39; =&gt; [&#39;&quot;{{MW68KLibraries}}MathLibCFM68K (4i_8d).Lib&quot; &quot;{{MWPPCLibraries}}&quot;MathLib&#39;], # e.g., &#39;-lm&#39; <br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39;) {<br/>+ $args{&#39;LIBS&#39;} = [&#39;&quot;{{MW68KLibraries}}MathLibCFM68K (4i_8d).Lib&quot; &quot;{{MWPPCLibraries}}&quot;MathLib&#39;];<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Processes/Processes.pm<br/>--- macperl/macos/ext/Mac/Processes/Processes.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Processes/Processes.pm Wed Nov 27 19:20:15 2002<br/>@@ -43,7 +43,7 @@<br/> <br/> use vars qw(@ISA @EXPORT %Process $VERSION);<br/> <br/>- $VERSION = &#39;1.01&#39;;<br/>+ $VERSION = &#39;1.02&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> LaunchApplication<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/Processes.xs#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Processes/Processes.xs<br/>--- macperl/macos/ext/Mac/Processes/Processes.xs#2~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Processes/Processes.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Processes/Processes.xs,v 1.4 2002/01/23 05:44:42 pudge Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Processes/Processes.xs,v 1.5 2002/11/13 02:04:52 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Processes.xs,v $<br/>+ * Revision 1.5 2002/11/13 02:04:52 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.4 2002/01/23 05:44:42 pudge<br/> * Update whitespace etc., from Thomas<br/> *<br/>@@ -31,10 +34,15 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Memory.h&gt;<br/> #include &lt;Processes.h&gt;<br/>+#ifdef MACOS_TRADITIONAL<br/> #include &lt;GUSIFileSpec.h&gt;<br/>+#endif<br/> <br/> typedef LaunchPBPtr LaunchParam;<br/> typedef ProcessInfoRecPtr ProcessInfo;<br/>@@ -192,9 +200,13 @@<br/> FSSpec spec;<br/> FSSpec * fssp = nil;<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Processes::LaunchDeskAccessory unsupported in Carbon&quot;);<br/>+#else<br/> if (SvTRUE(pFileSpec) &amp;&amp; GUSIPath2FSp(SvPV_nolen(pFileSpec), &amp;spec))<br/> fssp = &amp;spec;<br/> RETVAL = LaunchDeskAccessory(fssp, pDAName);<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/eg/Processes.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Processes/eg/Processes.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Processes/eg/Processes.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,28 @@<br/>+Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+<br/>+#!perl<br/>+#<br/>+# Processes.t - List all processes, then try to launch MacPerl<br/>+#<br/>+<br/>+use Mac::Processes;<br/>+use Mac::MoreFiles(%Application);<br/>+<br/>+printf &quot;%-20s %-8s %-8s\n&quot;, &quot;Process Name&quot;, &quot;PSN&quot;, &quot;App Spec&quot;;<br/>+<br/>+while (($psn, $pi) = each %Process) {<br/>+ printf &quot;%-20s %08X %s\n&quot;, <br/>+ $pi-&gt;processName, $pi-&gt;processNumber, $pi-&gt;processAppSpec;<br/>+}<br/>+<br/>+my $app = $Application{McPL};<br/>+if (-e $app) {<br/>+ $Launch = new LaunchParam(<br/>+ launchControlFlags =&gt; launchContinue+launchNoFileFlags+launchDontSwitch,<br/>+ launchAppSpec =&gt; $app<br/>+ );<br/>+<br/>+ LaunchApplication($Launch) || die $^E+0;<br/>+<br/>+ printf &quot;Launched %X flags %X\n&quot;, $Launch-&gt;launchProcessSN, $Launch-&gt;launchControlFlags;<br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/t/Processes.t#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Processes/t/Processes.t<br/>--- macperl/macos/ext/Mac/Processes/t/Processes.t#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Processes/t/Processes.t Wed Nov 27 19:20:15 2002<br/>@@ -1,25 +1,23 @@<br/>-Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/> <br/>-#!perl<br/>-#<br/>-# Processes.t - List all processes, then try to launch MacPerl<br/>-#<br/>+BEGIN { plan tests =&gt; 1 }<br/> <br/> use Mac::Processes;<br/>-use Mac::MoreFiles(%Application);<br/> <br/>-printf &quot;%-20s %-8s %-8s\n&quot;, &quot;Process Name&quot;, &quot;PSN&quot;, &quot;Location&quot;;<br/>+SKIP: {<br/>+# skip &quot;Mac::Processes&quot;, 1;<br/> <br/>-while (($psn, $pi) = each %Process) {<br/>- printf &quot;%-20s %08X @%08X\n&quot;, <br/>- $pi-&gt;processName, $pi-&gt;processNumber, $pi-&gt;processLocation;<br/>-}<br/>+# other process tests are in Notification.t<br/>+# we should check struct fields, too<br/> <br/>-$Launch = new LaunchParam(<br/>- launchControlFlags =&gt; launchContinue+launchNoFileFlags+launchDontSwitch,<br/>- launchAppSpec =&gt; $Application{McPL}<br/>-);<br/>+ my $exists = 1;<br/>+ while (my($psn, $pi) = each %Mac::Processes::Process) {<br/>+ $exists = 0, last unless -e $pi-&gt;processAppSpec;<br/>+ }<br/>+ ok($exists, &#39;check process paths&#39;);<br/> <br/>-LaunchApplication($Launch) ||&nbsp;die &quot;$^E&quot;;<br/>+}<br/> <br/>-printf &quot;Launched %X flags %X\n&quot;, $Launch-&gt;launchProcessSN, $Launch-&gt;launchControlFlags;<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Resources/Makefile.PL<br/>--- macperl/macos/ext/Mac/Resources/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Resources/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,8 +1,22 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Resources),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Resources.pm&#39;,<br/>+my $mod = &#39;Resources&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Resources/Resources.pm<br/>--- macperl/macos/ext/Mac/Resources/Resources.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Resources/Resources.pm Wed Nov 27 19:20:15 2002<br/>@@ -25,7 +25,7 @@<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> CloseResFile<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Resources/Resources.xs#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Resources/Resources.xs<br/>--- macperl/macos/ext/Mac/Resources/Resources.xs#2~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Resources/Resources.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Resources/Resources.xs,v 1.3 2002/01/23 05:44:42 pudge Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Resources/Resources.xs,v 1.4 2002/11/13 02:04:52 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Resources.xs,v $<br/>+ * Revision 1.4 2002/11/13 02:04:52 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.3 2002/01/23 05:44:42 pudge<br/> * Update whitespace etc., from Thomas<br/> *<br/>@@ -31,6 +34,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Memory.h&gt;<br/> #include &lt;Resources.h&gt;<br/>@@ -121,12 +127,25 @@<br/> }<br/> <br/> =cut<br/>+<br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+void<br/>+CreateResFile(fileName)<br/>+ Str255 fileName<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Resourcecs::CreateResFile unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> void<br/> CreateResFile(fileName)<br/> Str255 fileName<br/> CLEANUP:<br/> ResErrorReturn;<br/> <br/>+#endif<br/>+<br/> =item OpenResFile NAME<br/> <br/> The OpenResFile function opens an existing resource file. It also makes this file<br/>@@ -139,12 +158,25 @@<br/> }<br/> <br/> =cut<br/>+<br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+short<br/>+OpenResFile(fileName)<br/>+ Str255 fileName<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Resourcecs::OpenResFile unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> short<br/> OpenResFile(fileName)<br/> Str255 fileName<br/> CLEANUP:<br/> ResErrorCheckRetval;<br/> <br/>+#endif<br/>+<br/> =item UseResFile RFD<br/> <br/> The UseResFile procedure searches the list of files whose resource forks have<br/>@@ -560,12 +592,25 @@<br/> }<br/> <br/> =cut<br/>+<br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+long<br/>+RsrcMapEntry(theResource)<br/>+ Handle theResource<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Resourcecs::CreateResFile unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> long<br/> RsrcMapEntry(theResource)<br/> Handle theResource<br/> CLEANUP:<br/> ResErrorCheckRetvalNULL;<br/> <br/>+#endif<br/>+<br/> =item SetResAttrs HANDLE, ATTRS<br/> <br/> Given a handle to a resource, SetResAttrs changes the resource attributes of the<br/>@@ -767,12 +812,26 @@<br/> }<br/> <br/> =cut<br/>+<br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+Handle<br/>+RGetResource(theType, theID)<br/>+ OSType theType<br/>+ short theID<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Resourcecs::RGetResource unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> Handle<br/> RGetResource(theType, theID)<br/> OSType theType<br/> short theID<br/> CLEANUP:<br/> ResErrorCheckRetvalNULL;<br/>+<br/>+#endif<br/> <br/> =item FSpOpenResFile SPEC, PERMISSION<br/> <br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Resources/t/Resources.t#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Resources/t/Resources.t<br/>--- macperl/macos/ext/Mac/Resources/t/Resources.t#2~14073~ Fri Jan 4 12:40:11 2002<br/>+++ macperl/macos/ext/Mac/Resources/t/Resources.t Wed Nov 27 19:20:15 2002<br/>@@ -1,3 +1,18 @@<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 1 }<br/>+<br/>+use Mac::Resources;<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Resources&quot;, 1;<br/>+ ok(1);<br/>+}<br/>+<br/>+__END__<br/>+<br/> Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/> <br/> #!perl<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Sound/Makefile.PL<br/>--- macperl/macos/ext/Mac/Sound/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Sound/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,10 +1,33 @@<br/> use ExtUtils::MakeMaker;<br/>+use File::Spec::Functions;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Sound),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Sound.pm&#39;,<br/>+my $mod = &#39;Sound&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- TYPEMAPS =&gt; &#39;::QuickDraw:typemap&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>- &#39;MACLIBS_SHARED&#39; =&gt; &#39;&quot;{{SharedLibraries}}&quot;SoundLib&#39;, # e.g., &#39;-lm&#39; <br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+<br/>+ &#39;TYPEMAPS&#39; =&gt; [<br/>+ catfile(updir(), &#39;QuickDraw&#39;, &#39;typemap&#39;),<br/>+ ],<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39;) {<br/>+ $args{&#39;MACLIBS_SHARED&#39;} = &#39;&quot;{{SharedLibraries}}&quot;SoundLib&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39; &amp;&amp; $] &lt; 5.8) { # old makemaker syntax?<br/>+ $args{&#39;TYPEMAPS&#39;} = join &#39; &#39;, @{$args{&#39;TYPEMAPS&#39;}};<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Sound/Sound.pm<br/>--- macperl/macos/ext/Mac/Sound/Sound.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Sound/Sound.pm Wed Nov 27 19:20:15 2002<br/>@@ -24,7 +24,7 @@<br/> use Mac::Memory();<br/> <br/> use vars qw($VERSION @ISA @EXPORT);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> twelfthRootTwo<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/Sound.xs#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Sound/Sound.xs<br/>--- macperl/macos/ext/Mac/Sound/Sound.xs#2~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Sound/Sound.xs Wed Nov 27 19:20:15 2002<br/>@@ -17,6 +17,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Sound.h&gt;<br/> <br/>@@ -156,10 +159,14 @@<br/> short id<br/> SndCommand &amp;cmd<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::SndControl unsupported in Carbon&quot;);<br/>+#else<br/> RETVAL = cmd;<br/> if (gMacPerl_OSErr = SndControl(id, &amp;RETVAL)) {<br/> XSRETURN_UNDEF;<br/> }<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/>@@ -176,12 +183,33 @@<br/> SV * theCompletion<br/> Boolean async<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::SndStartFilePlay unsupported in Carbon&quot;);<br/>+#else<br/> RETVAL =<br/> SndStartFilePlay(<br/> chan, fRefNum, resNum, bufferSize, nil, &amp;theSelection, nil, async);<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+MacOSRet<br/>+SndPauseFilePlay(chan)<br/>+ SndChannel chan<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Sound::SndPauseFilePlay unsupported in Carbon&quot;);<br/>+<br/>+MacOSRet<br/>+SndStopFilePlay(chan, quietNow)<br/>+ SndChannel chan<br/>+ Boolean quietNow<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Sound::SndStopFilePlay unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> MacOSRet<br/> SndPauseFilePlay(chan)<br/> SndChannel chan<br/>@@ -191,6 +219,8 @@<br/> SndChannel chan<br/> Boolean quietNow<br/> <br/>+#endif<br/>+<br/> SCStatus<br/> SndChannelStatus(chan)<br/> SndChannel chan<br/>@@ -232,9 +262,20 @@<br/> <br/> =cut<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/>+NumVersion<br/>+MACEVersion()<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Sound::MACEVersion unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/> NumVersion<br/> MACEVersion()<br/> <br/>+#endif<br/>+<br/> void<br/> Comp3to1(inBuffer, inState=NO_INIT, numChannels=1, whichChannel=1)<br/> SV * inBuffer<br/>@@ -243,6 +284,9 @@<br/> unsigned long whichChannel<br/> PPCODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::Comp3to1 unsupported in Carbon&quot;);<br/>+#else<br/> unsigned long cnt = SvCUR(inBuffer);<br/> SV * outBuffer = newSVpv(&quot;&quot;, cnt / 3);<br/> StateBlock outState;<br/>@@ -253,6 +297,7 @@<br/> if (GIMME == G_ARRAY) {<br/> XS_PUSH(StateBlock, outState);<br/> }<br/>+#endif<br/> }<br/> <br/> void<br/>@@ -263,6 +308,9 @@<br/> unsigned long whichChannel<br/> PPCODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::Exp1to3 unsupported in Carbon&quot;);<br/>+#else<br/> unsigned long cnt = SvCUR(inBuffer) / 2;<br/> SV * outBuffer = newSVpv(&quot;&quot;, cnt*6);<br/> StateBlock outState;<br/>@@ -273,6 +321,7 @@<br/> if (GIMME == G_ARRAY) {<br/> XS_PUSH(StateBlock, outState);<br/> }<br/>+#endif<br/> }<br/> <br/> void<br/>@@ -283,6 +332,9 @@<br/> unsigned long whichChannel<br/> PPCODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::Comp6to1 unsupported in Carbon&quot;);<br/>+#else<br/> unsigned long cnt = SvCUR(inBuffer);<br/> SV * outBuffer = newSVpv(&quot;&quot;, cnt / 6);<br/> StateBlock outState;<br/>@@ -293,6 +345,7 @@<br/> if (GIMME == G_ARRAY) {<br/> XS_PUSH(StateBlock, outState);<br/> }<br/>+#endif<br/> }<br/> <br/> void<br/>@@ -303,6 +356,9 @@<br/> unsigned long whichChannel<br/> PPCODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::Exp1to6 unsupported in Carbon&quot;);<br/>+#else<br/> unsigned long cnt = SvCUR(inBuffer);<br/> SV * outBuffer = newSVpv(&quot;&quot;, cnt * 6);<br/> StateBlock outState;<br/>@@ -313,6 +369,7 @@<br/> if (GIMME == G_ARRAY) {<br/> XS_PUSH(StateBlock, outState);<br/> }<br/>+#endif<br/> }<br/> <br/> long<br/>@@ -511,7 +568,11 @@<br/> OSType quality<br/> short fRefNum<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: Mac::Sound::SndRecordToFile unsupported in Carbon&quot;);<br/>+#else<br/> RETVAL = SndRecordToFile(nil, corner, quality, fRefNum);<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/>@@ -563,11 +624,25 @@<br/> SPB &amp;inParamPtr<br/> Boolean asynchFlag<br/> <br/>+#ifndef MACOS_TRADITIONAL<br/>+<br/> MacOSRet<br/> SPBRecordToFile(fRefNum, inParamPtr, asynchFlag=false)<br/> short fRefNum<br/> SPB &amp;inParamPtr<br/> Boolean asynchFlag<br/>+ CODE:<br/>+ croak(&quot;Usage: Mac::Sound::SPBRecordToFile unsupported in Carbon&quot;);<br/>+<br/>+#else<br/>+<br/>+MacOSRet<br/>+SPBRecordToFile(fRefNum, inParamPtr, asynchFlag=false)<br/>+ short fRefNum<br/>+ SPB &amp;inParamPtr<br/>+ Boolean asynchFlag<br/>+<br/>+#endif<br/> <br/> MacOSRet<br/> SPBPauseRecording(inRefNum)<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/t/Scream.rsrc#1 (apple) ====<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Sound/t/Sound.t#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Sound/t/Sound.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Sound/t/Sound.t Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,89 @@<br/>+#!/usr/bin/perl -w<br/>+use File::Spec::Functions;<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 14 }<br/>+<br/>+use Mac::Resources;<br/>+use Mac::Sound;<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Sound Beeps&quot;, 4;<br/>+<br/>+ my $vol = GetDefaultOutputVolume();<br/>+ ok(defined($vol), &#39;get current volume&#39;);<br/>+ SysBeep(30);<br/>+ sleep(1); # allow user to hear<br/>+<br/>+ ok(SetDefaultOutputVolume(2**32), &#39;set high volume&#39;);<br/>+ SysBeep(30);<br/>+ sleep(1);<br/>+<br/>+ ok(SetDefaultOutputVolume(0), &#39;set low volume&#39;);<br/>+ SysBeep(30);<br/>+ sleep(1);<br/>+<br/>+ ok(SetDefaultOutputVolume($vol), &#39;set default volume&#39;);<br/>+ SysBeep(30);<br/>+ sleep(1);<br/>+}<br/>+<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Sound Resource&quot;, 10;<br/>+<br/>+ my $ofil = &#39;Scream.rsrc&#39;;<br/>+ my $otyp = soundListRsrc();<br/>+ my $oid = 129;<br/>+ my $onam = &#39;Original&#39;;<br/>+<br/>+ my $file1 = catfile(curdir(), &#39;t&#39;, $ofil);<br/>+ my $file2 = catfile(curdir(), &#39;Sound&#39;, &#39;t&#39;, $ofil);<br/>+ my $file = -e $ofil ? $ofil<br/>+ : -e $file1 ? $file1<br/>+ : -e $file2 ? $file2<br/>+ : &#39;&#39;;<br/>+<br/>+ my($res, $snd);<br/>+ $res = FSpOpenResFile($file, 0) if $file;<br/>+<br/>+ if ($res) {<br/>+ ok($res, &#39;open resource file&#39;);<br/>+ is(CurResFile(), $res, &#39;check current resource file&#39;);<br/>+<br/>+ is(Count1Resources($otyp), 1, &#39;count resources&#39;);<br/>+ ok($snd = GetResource($otyp, $oid), &#39;get resource&#39;);<br/>+<br/>+ my($id, $type, $name) = GetResInfo($snd);<br/>+ is($type, $otyp, &#39;resource type&#39;);<br/>+ is($id, $oid, &#39;resource id&#39;);<br/>+ is($name, $onam, &#39;resource name&#39;);<br/>+ }<br/>+<br/>+ else {<br/>+ ok(1, &quot;Can&#39;t open $ofil&quot;) for 1..2;<br/>+<br/>+ my $n = Count1Resources($otyp);<br/>+ ok($n, &quot;count resources: $n&quot;);<br/>+ ok($snd = GetIndResource($otyp, $n), &#39;get resource&#39;);<br/>+<br/>+ my($id, $type, $name) = GetResInfo($snd);<br/>+ TODO: {<br/>+ local $TODO = &quot;For some reason, it is not getting the type back&quot;<br/>+ if $^O eq &#39;darwin&#39;;<br/>+ is($type, $otyp, &quot;resource type: $type&quot;);<br/>+ }<br/>+ ok($id, &quot;resource id: $id&quot;);<br/>+<br/>+ ok(1, &quot;Can&#39;t open $ofil&quot;);<br/>+ }<br/>+<br/>+ ok(my $chan = SndNewChannel(0, 0), &#39;new sound channel&#39;);<br/>+ ok(SndPlay($chan, $snd, 0), &#39;play sound&#39;);<br/>+ ok(SndDisposeChannel($chan, 0), &#39;dispose sound&#39;);<br/>+<br/>+ CloseResFile($res) if $res;<br/>+}<br/>+<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/Makefile.PL<br/>--- macperl/macos/ext/Mac/Speech/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Speech/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,9 +1,26 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Speech),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Speech.pm&#39;,<br/>+my $mod = &#39;Speech&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>- MACLIBS_SHARED =&gt; &#39;&quot;{{SharedLibraries}}&quot;SpeechLib&#39;, # e.g., &#39;-lm&#39; <br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39;) {<br/>+ $args{&#39;MACLIBS_SHARED&#39;} = &#39;&quot;{{SharedLibraries}}&quot;SpeechLib&#39;;<br/>+<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Speech.pm#4 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/Speech.pm<br/>--- macperl/macos/ext/Mac/Speech/Speech.pm#3~14394~ Wed Jan 23 12:00:35 2002<br/>+++ macperl/macos/ext/Mac/Speech/Speech.pm Wed Nov 27 19:20:15 2002<br/>@@ -24,7 +24,7 @@<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT %Voice);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> SpeechManagerVersion<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/Speech.xs#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/Speech.xs<br/>--- macperl/macos/ext/Mac/Speech/Speech.xs#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Speech/Speech.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Speech/Speech.xs,v 1.2 2000/09/09 22:18:28 neeri Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Speech/Speech.xs,v 1.3 2002/11/13 02:04:53 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Speech.xs,v $<br/>+ * Revision 1.3 2002/11/13 02:04:53 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.2 2000/09/09 22:18:28 neeri<br/> * Dynamic libraries compile under 5.6<br/> *<br/>@@ -31,6 +34,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Memory.h&gt;<br/> #include &lt;Speech.h&gt;<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/Cellist.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/eg/Cellist.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Speech/eg/Cellist.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,22 @@<br/>+#!perl<br/>+#<br/>+# Say something in Cello<br/>+#<br/>+<br/>+use Mac::Speech;<br/>+<br/>+$count = CountVoices();<br/>+<br/>+for ($i = 0; $i++ &lt; $count; ) {<br/>+ $voice = GetIndVoice($i);<br/>+ $desc = ${GetVoiceDescription($voice)};<br/>+ if ($desc =~ /Cello/) {<br/>+ $channel = NewSpeechChannel($voice) or die $^E;<br/>+ SpeakText $channel, &quot;Do you like my Cello Voice?&quot; or die $^E;<br/>+ while (SpeechBusy()) {}<br/>+ SetSpeechPitch $channel, 1.2*GetSpeechPitch($channel);<br/>+ SpeakText $channel, &quot;Wanna take you higher&quot; or die $^E;<br/>+ while (SpeechBusy()) {}<br/>+ DisposeSpeechChannel $channel;<br/>+ }<br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/DumpVoices.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/eg/DumpVoices.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Speech/eg/DumpVoices.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,18 @@<br/>+#!perl<br/>+#<br/>+# Dump all avaliable voices<br/>+#<br/>+<br/>+use Mac::Speech;<br/>+<br/>+$count = CountVoices();<br/>+<br/>+for ($i = 0; $i++ &lt; $count; ) {<br/>+ $voice = GetIndVoice($i);<br/>+ $desc = ${GetVoiceDescription($voice)};<br/>+ ($synt, $id, $version,$nlen,$name,$clen,$comment,$gender,$age,$script,$language,$region)<br/>+ = unpack(&quot;x4 a4 l l C a63 C a255 s s s s s&quot;, $desc);<br/>+ $name = substr $name, 0, $nlen;<br/>+ $comment = substr $comment, 0, $clen;<br/>+ printf &quot;%4s %2X %3X %-10s %d %4d %s\n&quot;, $synt, $id, $version, $name, $gender, $age, $comment; <br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/JukeBox.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/eg/JukeBox.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Speech/eg/JukeBox.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,21 @@<br/>+#!perl<br/>+#<br/>+# Demonstrate all avaliable voices<br/>+#<br/>+<br/>+use Mac::Speech;<br/>+<br/>+$count = CountVoices();<br/>+<br/>+for ($i = 0; $i++ &lt; $count; ) {<br/>+ $voice = GetIndVoice($i);<br/>+ $desc = ${GetVoiceDescription($voice)};<br/>+ ($synt, $id, $version,$nlen,$name,$clen,$comment,$gender,$age,$script,$language,$region)<br/>+ = unpack(&quot;x4 a4 l l C a63 C a255 s s s s s&quot;, $desc);<br/>+ $name = substr $name, 0, $nlen;<br/>+ $comment = substr $comment, 0, $clen;<br/>+ $channel = NewSpeechChannel($voice) or die $^E;<br/>+ SpeakText $channel, $comment or die $^E;<br/>+ while (SpeechBusy()) {}<br/>+ DisposeSpeechChannel $channel;<br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/eg/Phonemes.plx#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/eg/Phonemes.plx<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Speech/eg/Phonemes.plx Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,19 @@<br/>+#!perl<br/>+#<br/>+# Say something in Cello<br/>+#<br/>+<br/>+use Mac::Speech;<br/>+<br/>+$count = CountVoices();<br/>+<br/>+for ($i = 0; $i++ &lt; $count; ) {<br/>+ $voice = GetIndVoice($i);<br/>+ $desc = ${GetVoiceDescription($voice)};<br/>+ if ($desc =~ /Cello/) {<br/>+ $channel = NewSpeechChannel($voice) or die $^E;<br/>+ $phon = TextToPhonemes($channel, &quot;Stop all the clocks disconnect the phone&quot;);<br/>+ print $phon;<br/>+ DisposeSpeechChannel $channel;<br/>+ }<br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Speech/t/Speech.t#1 (text) ====<br/>Index: macperl/macos/ext/Mac/Speech/t/Speech.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/Speech/t/Speech.t Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,43 @@<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 8 }<br/>+<br/>+use Mac::Files;<br/>+use Mac::Speech;<br/>+<br/>+SKIP: {<br/>+# skip &quot;Mac::Speech&quot;, 8;<br/>+<br/>+ my @voicefiles;<br/>+ my $voicedir = FindFolder(kOnSystemDisk, kVoicesFolderType);<br/>+ if (opendir(my $dh, $voicedir)) {<br/>+ @voicefiles = grep /\w/, readdir $dh;<br/>+ closedir $dh;<br/>+ }<br/>+<br/>+ # this can fail if some voices don&#39;t load, or if there are<br/>+ # non-voice files installed in the directory<br/>+ cmp_ok(CountVoices(), &#39;&gt;=&#39;, scalar @voicefiles, &#39;count voices&#39;);<br/>+<br/>+ ok(my $voice = $Mac::Speech::Voice{Cello}, &#39;load voice&#39;);<br/>+ ok(my $channel = NewSpeechChannel($voice), &#39;new channel&#39;);<br/>+ ok(SpeakText($channel, &quot;Do you like my Cello Voice?&quot;),<br/>+ &#39;speak&#39;);<br/>+ sleep 1 while SpeechBusy();<br/>+<br/>+ ok(SetSpeechPitch($channel, 1.2*GetSpeechPitch($channel)),<br/>+ &#39;adjust pitch&#39;);<br/>+ ok(SpeakText($channel, &quot;Wanna take you higher&quot;),<br/>+ &#39;speak!&#39;);<br/>+ sleep 1 while SpeechBusy();<br/>+<br/>+ is(TextToPhonemes($channel, &#39;Stop all the clocks disconnect the phone&#39;),<br/>+ &#39;_st1AAp _1AOl ~DAX _kl1AAks _d2IHskAXn1EHkt ~DAX _f1OWn&#39;,<br/>+ &#39;phonemes&#39;);<br/>+<br/>+ ok(DisposeSpeechChannel($channel), &#39;dispose channel&#39;);<br/>+}<br/>+<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Types/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Types/Makefile.PL<br/>--- macperl/macos/ext/Mac/Types/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Types/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,8 +1,22 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- NAME =&gt; q(Mac::Types),<br/>- &#39;VERSION_FROM&#39; =&gt; &#39;Types.pm&#39;,<br/>+my $mod = &#39;Types&#39;;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &quot;Mac::$mod&quot;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &quot;$mod.pm&quot;,<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/>- XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Types/Types.pm#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Types/Types.pm<br/>--- macperl/macos/ext/Mac/Types/Types.pm#2~12323~ Wed Oct 3 11:42:37 2001<br/>+++ macperl/macos/ext/Mac/Types/Types.pm Wed Nov 27 19:20:15 2002<br/>@@ -17,13 +17,15 @@<br/> <br/> package Mac::Types;<br/> <br/>+use MacPerl &#39;MakeFSSpec&#39;;<br/>+<br/> BEGIN {<br/> use Exporter ();<br/> use DynaLoader ();<br/> use Carp;<br/> <br/> use vars qw($VERSION @ISA @EXPORT %MacPack %MacUnpack);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.01&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> <br/> @EXPORT = qw(<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Types/Types.xs#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Types/Types.xs<br/>--- macperl/macos/ext/Mac/Types/Types.xs#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Types/Types.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Types/Types.xs,v 1.2 2000/09/09 22:18:29 neeri Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Types/Types.xs,v 1.3 2002/11/13 02:04:53 pudge Exp $<br/> *<br/> * Copyright (c) 1996 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Types.xs,v $<br/>+ * Revision 1.3 2002/11/13 02:04:53 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.2 2000/09/09 22:18:29 neeri<br/> * Dynamic libraries compile under 5.6<br/> *<br/>@@ -25,6 +28,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> <br/> MODULE = Mac::Types PACKAGE = Mac::Types<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Types/t/Types.t#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Types/t/Types.t<br/>--- macperl/macos/ext/Mac/Types/t/Types.t#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/Types/t/Types.t Wed Nov 27 19:20:15 2002<br/>@@ -1,16 +1,26 @@<br/>-Perl -Sx &quot;{0}&quot; {&quot;Parameters&quot;}; Exit {Status}<br/>+#!/usr/bin/perl -w<br/>+use Test::More;<br/>+use strict;<br/> <br/>-#!perl<br/>-#<br/>-# Types.t - Demostrate MacPack and MacUnpack.<br/>-#<br/>+BEGIN { plan tests =&gt; 4 }<br/> <br/>+use Mac::Files;<br/> use Mac::Types;<br/>+use MacPerl &#39;MakeFSSpec&#39;;<br/> <br/>-$p = MacPack(&quot;STR &quot;, &quot;Hello&quot;);<br/>+SKIP: {<br/>+# skip &quot;Mac::Types&quot;, 4;<br/> <br/>-print $p, &quot; &quot;, length($p), &quot;\n&quot;;<br/>+ my $s = &quot;Hello&quot;;<br/>+ my $p = MacPack(&quot;STR &quot;, $s);<br/>+ is($p, (chr(length $s) . $s), &#39;pascal string&#39;);<br/>+ my $u = MacUnpack(&quot;STR &quot;, &quot;$p dskjkjkdsjk&quot;);<br/>+ is($u, $s, &#39;regular string&#39;);<br/>+<br/>+ my $path = MakeFSSpec(FindFolder(kOnSystemDisk, kApplicationSupportFolderType));<br/>+ my $fss = MacPack(&#39;fss &#39;, $path);<br/>+ isnt($path, $fss, &#39;to real FSSpec&#39;);<br/>+ is($path, MacUnpack(&#39;fss &#39;, $fss), &#39;back to string FSSpec&#39;);<br/>+}<br/> <br/>-$u = MacUnpack(&quot;STR &quot;, &quot;$p dskjkjkdsjk&quot;);<br/>-<br/>-print $u, &quot; &quot;, length($u), &quot;\n&quot;;<br/>+__END__<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/MacPerl/MacPerl.pm#4 (text) ====<br/>Index: macperl/macos/ext/MacPerl/MacPerl.pm<br/>--- macperl/macos/ext/MacPerl/MacPerl.pm#3~14075~ Fri Jan 4 12:42:06 2002<br/>+++ macperl/macos/ext/MacPerl/MacPerl.pm Wed Nov 27 19:20:15 2002<br/>@@ -2,6 +2,8 @@<br/> <br/> require Exporter;<br/> <br/>+$VERSION = &#39;1.01&#39;;<br/>+<br/> @ISA = qw(Exporter);<br/> <br/> @EXPORT = qw(<br/>@@ -36,12 +38,40 @@<br/> <br/> %EXPORT_TAGS = (all =&gt; [@EXPORT, @EXPORT_OK]);<br/> <br/>-# bootstrap MacPerl is already implicitly done by your MacPerl binary<br/>-<br/> sub kMacPerlNeverQuit () { 0; }<br/> sub kMacPerlQuitIfRuntime () { 1; }<br/> sub kMacPerlAlwaysQuit () { 2; }<br/> sub kMacPerlQuitIfFirstScript () { 3; }<br/>+<br/>+# bootstrap MacPerl is already implicitly done by your MacPerl binary<br/>+unless ($^O eq &#39;MacOS&#39;) {<br/>+ # use Config;<br/>+ # my $dl_dlext = $Config::Config{&#39;dlext&#39;};<br/>+ my $dl_dlext = &#39;bundle&#39;;<br/>+<br/>+ require DynaLoader;<br/>+ push @ISA, &#39;DynaLoader&#39;;<br/>+ bootstrap MacPerl;<br/>+<br/>+ # because OSA is in MacPerl.bundle, not OSA.bundle<br/>+ my $file = &quot;auto/MacPerl/MacPerl.$dl_dlext&quot;;<br/>+ foreach (@INC) {<br/>+ $dir = &quot;$_/auto/MacPerl&quot;;<br/>+ next unless -d $dir;<br/>+ my $try = &quot;$dir/MacPerl.$dl_dlext&quot;;<br/>+ last if $file = -f $try &amp;&amp; $try;<br/>+ }<br/>+<br/>+ for my $mod (qw(OSA)) {<br/>+ my($xs, $symref);<br/>+ for (@DynaLoader::dl_librefs) {<br/>+ last if $symref = DynaLoader::dl_find_symbol($_, &quot;boot_$mod&quot;);<br/>+ }<br/>+ next unless $symref;<br/>+ $xs = DynaLoader::dl_install_xsub(&quot;${mod}::bootstrap&quot;, $symref, $file);<br/>+ &amp;$xs($mod);<br/>+ }<br/>+}<br/> <br/> 1;<br/> <br/><br/>==== //depot/maint-5.6/macperl/macos/ext/MacPerl/MacPerl.xs#4 (text) ====<br/>Index: macperl/macos/ext/MacPerl/MacPerl.xs<br/>--- macperl/macos/ext/MacPerl/MacPerl.xs#3~12325~ Wed Oct 3 11:51:28 2001<br/>+++ macperl/macos/ext/MacPerl/MacPerl.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/MacPerl/MacPerl.xs,v 1.3 2001/09/02 00:38:40 pudge Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/MacPerl/MacPerl.xs,v 1.4 2002/11/13 02:04:53 pudge Exp $<br/> *<br/> * Copyright (c) 1995 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: MacPerl.xs,v $<br/>+ * Revision 1.4 2002/11/13 02:04:53 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.3 2001/09/02 00:38:40 pudge<br/> * Sync with perforce<br/> *<br/>@@ -34,11 +37,16 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;QuickDraw.h&gt;<br/> #include &lt;Dialogs.h&gt;<br/> #include &lt;Lists.h&gt;<br/>+#ifdef MACOS_TRADITIONAL<br/> #include &lt;GUSIFileSpec.h&gt;<br/>+#endif<br/> #include &lt;PLStringFuncs.h&gt;<br/> #include &lt;Files.h&gt;<br/> #include &lt;Fonts.h&gt;<br/>@@ -117,6 +125,8 @@<br/> static char gMacPerlScratch[256];<br/> #define gMacPerlScratchString ((StringPtr) gMacPerlScratch)<br/> <br/>+#ifdef MACOS_TRADITIONAL<br/>+<br/> static ControlHandle GetDlgCtrl(DialogPtr dlg, short item)<br/> {<br/> short kind;<br/>@@ -300,6 +310,8 @@<br/> #define uMacListFilter MacListFilter<br/> #endif<br/> <br/>+#endif /* MACOS_TRADITIONAL */<br/>+<br/> static OSErr GetVolInfo(short volume, Boolean indexed, FSSpec * spec)<br/> {<br/> OSErr err;<br/>@@ -367,6 +379,9 @@<br/> MP_Ask(prompt, ...)<br/> char * prompt<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::Ask unsupported in Carbon&quot;);<br/>+#else<br/> {<br/> short item;<br/> DialogPtr dlg;<br/>@@ -394,11 +409,15 @@<br/> }<br/> DisposeDialog(dlg);<br/> }<br/>+#endif<br/> <br/> int<br/> MP_Answer(prompt, ...)<br/> char * prompt<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::Answer unsupported in Carbon&quot;);<br/>+#else<br/> {<br/> short item;<br/> DialogPtr dlg;<br/>@@ -427,6 +446,7 @@<br/> <br/> RETVAL = (items &gt; 1) ? items - item - 1 : 0;<br/> }<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/>@@ -466,6 +486,9 @@<br/> MP_Pick(prompt, ...)<br/> char * prompt<br/> PPCODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::Pick unsupported in Carbon&quot;);<br/>+#else<br/> { <br/> short itemHit;<br/> STRLEN len;<br/>@@ -532,22 +555,31 @@<br/> gPickList = nil;<br/> DisposeDialog(dlg);<br/> }<br/>+#endif<br/> <br/> int<br/> MP_Quit(...)<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::Quit unsupported in Carbon&quot;);<br/>+#else<br/> if (items &gt; 0)<br/> gMacPerl_Quit = SvIV(ST(0));<br/> RETVAL = gMacPerl_Quit;<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/> int<br/> MP_ErrorFormat(...)<br/> CODE:<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::ErrorFormat unsupported in Carbon&quot;);<br/>+#else<br/> if (items &gt; 0)<br/> gMacPerl_ErrorFormat = SvIV(ST(0));<br/> RETVAL = gMacPerl_ErrorFormat;<br/>+#endif<br/> OUTPUT:<br/> RETVAL<br/> <br/>@@ -557,6 +589,9 @@<br/> unsigned cmd<br/> PPCODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::FAccess unsupported in Carbon&quot;);<br/>+#else<br/> unsigned uarg;<br/> Rect rarg;<br/> SelectionRecord sarg;<br/>@@ -686,6 +721,7 @@<br/> default:<br/> croak(&quot;MacPerl::FAccess() can&#39;t handle this command&quot;);<br/> }<br/>+#endif<br/> }<br/> <br/> void<br/>@@ -735,6 +771,8 @@<br/> <br/> BOOT:<br/> {<br/>+/* This is all MacPerl-specific stuff */<br/>+#ifdef MACOS_TRADITIONAL<br/> extern int StandAlone;<br/> VersRecHndl vers = (VersRecHndl) GetResource(&#39;vers&#39;, 1);<br/> int versLen = *(*vers)-&gt;shortVersion;<br/>@@ -757,4 +795,5 @@<br/> <br/> sv_setpv(cc, CC);<br/> SvREADONLY_on(cc);<br/>+#endif<br/> }<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/MacPerl/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/MacPerl/Makefile.PL<br/>--- macperl/macos/ext/MacPerl/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/MacPerl/Makefile.PL Wed Nov 27 19:20:15 2002<br/>@@ -1,9 +1,28 @@<br/> use ExtUtils::MakeMaker;<br/> <br/>-WriteMakefile(<br/>- &#39;NAME&#39; =&gt; q(MacPerl),<br/>- &#39;LINKTYPE&#39; =&gt; [&#39;static&#39;],<br/>- SKIP =&gt; [qw(dynamic dynamic_lib dynamic_bs)],<br/>- &#39;OBJECT&#39; =&gt; &#39;MacPerl.c XL.c OSA.c&#39;,<br/>- &#39;INC&#39; =&gt; &quot;-i :::::XL:&quot;<br/>+my %args = (<br/>+ &#39;NAME&#39; =&gt; &#39;MacPerl&#39;,<br/>+ &#39;VERSION_FROM&#39; =&gt; &#39;MacPerl.pm&#39;,<br/>+ &#39;XSPROTOARG&#39; =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/> );<br/>+<br/>+# disable tests if set up outside current dir<br/>+use Cwd;<br/>+if ($ENV{PWD} &amp;&amp; $ENV{PWD} ne cwd()) {<br/>+ *MY::test = sub { &quot;test ::\n\t\@\$(NOOP)&quot; };<br/>+}<br/>+<br/>+if ($^O eq &#39;darwin&#39;) {<br/>+ $args{&#39;LINKTYPE&#39;} = &#39;dynamic&#39;;<br/>+ $args{&#39;OBJECT&#39;} = &#39;MacPerl.o OSA.o&#39;;<br/>+ $args{&#39;INC&#39;} = &#39;-I/Developer/Headers/FlatCarbon/&#39;;<br/>+ $args{&#39;LDDLFLAGS&#39;} = &#39;-bundle -flat_namespace -undefined suppress -framework Carbon&#39;;<br/>+}<br/>+if ($^O eq &#39;MacOS&#39;) {<br/>+ $args{&#39;LINKTYPE&#39;} = &#39;static&#39;;<br/>+ $args{&#39;SKIP&#39;} = [qw(dynamic dynamic_lib dynamic_bs)];<br/>+ $args{&#39;OBJECT&#39;} = &#39;MacPerl.c XL.c OSA.c&#39;;<br/>+ $args{&#39;INC&#39;} = &quot;-i :::::XL:&quot;;<br/>+}<br/>+<br/>+WriteMakefile(%args);<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/MacPerl/OSA.xs#4 (text) ====<br/>Index: macperl/macos/ext/MacPerl/OSA.xs<br/>--- macperl/macos/ext/MacPerl/OSA.xs#3~14075~ Fri Jan 4 12:42:06 2002<br/>+++ macperl/macos/ext/MacPerl/OSA.xs Wed Nov 27 19:20:15 2002<br/>@@ -1,4 +1,4 @@<br/>-/* $Header: /cvsroot/macperl/perl/macos/ext/MacPerl/OSA.xs,v 1.3 2001/12/19 22:54:15 pudge Exp $<br/>+/* $Header: /cvsroot/macperl/perl/macos/ext/MacPerl/OSA.xs,v 1.4 2002/11/13 02:04:53 pudge Exp $<br/> *<br/> * Copyright (c) 1995 Matthias Neeracher<br/> *<br/>@@ -6,6 +6,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: OSA.xs,v $<br/>+ * Revision 1.4 2002/11/13 02:04:53 pudge<br/>+ * Aieeeeee! Big ol&#39; Carbon update.<br/>+ *<br/> * Revision 1.3 2001/12/19 22:54:15 pudge<br/> * Make DoAppleScript return errors in $@<br/> *<br/>@@ -28,6 +31,9 @@<br/> #include &quot;EXTERN.h&quot;<br/> #include &quot;perl.h&quot;<br/> #include &quot;XSUB.h&quot;<br/>+#ifndef MACOS_TRADITIONAL<br/>+#include &quot;../Carbon.h&quot;<br/>+#endif<br/> #include &lt;Types.h&gt;<br/> #include &lt;Components.h&gt;<br/> #include &lt;AppleEvents.h&gt;<br/>@@ -93,10 +99,14 @@<br/> char * reply<br/> CODE:<br/> {<br/>+#ifndef MACOS_TRADITIONAL<br/>+ croak(&quot;Usage: MacPerl::Reply unsupported in Carbon&quot;);<br/>+#else<br/> if (gMacPerl_Reply)<br/> DisposeHandle(gMacPerl_Reply);<br/>- /**/ <br/>+<br/> PtrToHand(reply, &amp;gMacPerl_Reply, strlen(reply));<br/>+#endif<br/> }<br/> <br/> void<br/>@@ -104,70 +114,98 @@<br/> SV * script<br/> CODE:<br/> {<br/>- AEDesc source;<br/>- AEDesc result;<br/>- char * scriptText;<br/>- STRLEN len;<br/> OSAError myOSAErr;<br/>- AEDesc source_errs;<br/>- AEDesc result_errs;<br/>- char * errorText;<br/>- STRLEN errorLen;<br/>- /**/ <br/>+ char * scriptText;<br/>+ STRLEN scriptTextLen;<br/>+ AEDesc scriptTextDesc;<br/>+ AEDesc scriptResultDesc;<br/>+<br/> if (!gScriptingComponent &amp;&amp; InitAppleScript())<br/> croak(&quot;MacPerl::DoAppleScript couldn&#39;t initialize AppleScript&quot;);<br/>- /**/ <br/>+<br/> sv_setpvn(ERRSV, &quot;&quot;, 0);<br/>- scriptText = (char*) SvPV(ST(0), len);<br/>- AECreateDesc(typeChar, scriptText, len, &amp;source);<br/>- /**/ <br/>+ scriptText = (char*) SvPV(ST(0), scriptTextLen);<br/>+ AECreateDesc(typeChar, scriptText, scriptTextLen, &amp;scriptTextDesc);<br/>+<br/> myOSAErr = OSADoScript(<br/> gScriptingComponent, <br/>- &amp;source, <br/>+ &amp;scriptTextDesc, <br/> kOSANullScript, <br/> typeChar, <br/> kOSAModeCanInteract,<br/>- &amp;result<br/>+ &amp;scriptResultDesc<br/> );<br/>- if (!myOSAErr)<br/>- {<br/>- AEDisposeDesc(&amp;source);<br/>- /**/ <br/>- if (!AECoerceDesc(&amp;result, typeChar, &amp;source)) {<br/>- HLock(source.dataHandle);<br/>- ST(0) = sv_2mortal(newSVpv(*source.dataHandle,GetHandleSize(source.dataHandle)));<br/>- AEDisposeDesc(&amp;source);<br/>+ AEDisposeDesc(&amp;scriptTextDesc);<br/>+<br/>+ if (!myOSAErr) {<br/>+ char * scriptResultData;<br/>+ STRLEN scriptResultLen;<br/>+ AEDesc scriptResultDataDesc;<br/>+<br/>+ if (!AECoerceDesc(&amp;scriptResultDesc, typeChar, &amp;scriptResultDataDesc)) {<br/>+#ifdef MACOS_TRADITIONAL<br/>+ HLock(scriptResultDataDesc.dataHandle);<br/>+ scriptResultLen = GetHandleSize(scriptResultDataDesc.dataHandle);<br/>+ scriptResultData = *scriptResultDataDesc.dataHandle;<br/>+#else<br/>+ scriptResultLen = AEGetDescDataSize(&amp;scriptResultDataDesc);<br/>+ scriptResultData = NewPtr(scriptResultLen);<br/>+ AEGetDescData(&amp;scriptResultDataDesc, scriptResultData, scriptResultLen);<br/>+#endif<br/>+<br/>+ ST(0) = sv_2mortal(newSVpv(scriptResultData, scriptResultLen));<br/>+<br/>+ AEDisposeDesc(&amp;scriptResultDataDesc);<br/>+#ifndef MACOS_TRADITIONAL<br/>+ DisposePtr(scriptResultData);<br/>+#endif<br/> } else<br/> ST(0) = &amp;PL_sv_undef;<br/>- /**/ <br/>- AEDisposeDesc(&amp;result);<br/>- } else {<br/>- AEDisposeDesc(&amp;source);<br/>+<br/>+ AEDisposeDesc(&amp;scriptResultDesc);<br/>+ }<br/>+<br/>+ else {<br/> <br/> if (myOSAErr == errOSAScriptError) {<br/>+ AEDesc errorDesc;<br/>+ AEDesc errorDataDesc;<br/>+<br/> OSAScriptError(<br/> gScriptingComponent,<br/> kOSAErrorMessage,<br/> typeChar,<br/>- &amp;result_errs<br/>+ &amp;errorDesc<br/> );<br/> <br/>- AEDisposeDesc(&amp;source_errs);<br/>- if (!AECoerceDesc(&amp;result_errs, typeChar, &amp;source_errs)) {<br/>- errorText = &quot;&quot;;<br/>- HLock(source_errs.dataHandle);<br/>- /* set $@ */<br/>- errorLen = GetHandleSize(source_errs.dataHandle);<br/>- strcpy(errorText, *source_errs.dataHandle);<br/>- if (strchr(errorText+errorLen-1, &#39;.&#39;)) {<br/>+ if (!AECoerceDesc(&amp;errorDesc, typeChar, &amp;errorDataDesc)) {<br/>+ char * errorData;<br/>+ STRLEN errorLen;<br/>+#ifdef MACOS_TRADITIONAL<br/>+ HLock(errorDataDesc.dataHandle);<br/>+ errorLen = GetHandleSize(errorDataDesc.dataHandle);<br/>+ errorData = *errorDataDesc.dataHandle;<br/>+#else<br/>+ errorLen = AEGetDescDataSize(&amp;errorDataDesc);<br/>+ errorData = NewPtr(errorLen);<br/>+ AEGetDescData(&amp;errorDataDesc, errorData, errorLen);<br/>+#endif<br/>+<br/>+ /* AppleScript errors end in &#39;.&#39;, we don&#39;t want it */<br/>+ if (strchr(errorData+errorLen-1, &#39;.&#39;)) {<br/> errorLen--;<br/> }<br/>- sv_setpvn(ERRSV, errorText, errorLen);<br/>- AEDisposeDesc(&amp;source_errs);<br/>+ /* set $@ */<br/>+ sv_setpvn(ERRSV, errorData, errorLen);<br/>+<br/>+ AEDisposeDesc(&amp;errorDataDesc);<br/>+#ifndef MACOS_TRADITIONAL<br/>+ DisposePtr(errorData);<br/>+#endif<br/> }<br/>- AEDisposeDesc(&amp;result_errs);<br/>+ AEDisposeDesc(&amp;errorDesc);<br/> }<br/>- /**/ <br/>+<br/> ST(0) = &amp;PL_sv_undef;<br/> }<br/> }<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/MacPerl/t/MacPerl.t#1 (text) ====<br/>Index: macperl/macos/ext/MacPerl/t/MacPerl.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/MacPerl/t/MacPerl.t Wed Nov 27 19:20:15 2002<br/>@@ -0,0 +1,88 @@<br/>+#!/usr/bin/perl -w<br/>+use File::Spec::Functions;<br/>+use Test::More;<br/>+use strict;<br/>+<br/>+BEGIN { plan tests =&gt; 10 }<br/>+<br/>+use MacPerl &#39;:all&#39;;<br/>+<br/>+SKIP: {<br/>+# skip &quot;MacPerl&quot;, 10;<br/>+<br/>+ my @volumes = Volumes();<br/>+ ok(@volumes, &#39;Volumes: &#39; . join(&#39;, &#39;, @volumes)); <br/>+<br/>+ # convert FSSpecs to paths<br/>+ my $exists = 1;<br/>+ my @paths;<br/>+ for (@volumes) {<br/>+ push @paths, my $path = MakePath($_);<br/>+ $exists = 0 unless -d $path;<br/>+ }<br/>+ ok($exists, &#39;MakePath: &#39; . join(&#39;, &#39;, map { MakePath($_) } @paths));<br/>+<br/>+ # go back!<br/>+ $_ = MakeFSSpec($_) for @paths;<br/>+ ok(eq_array(\@volumes, \@paths), &#39;MakeFSSpec&#39;);<br/>+<br/>+ # AppleScript / Finder version; will fail if Finder is not<br/>+ # running or is unavailable<br/>+ (my $version = DoAppleScript(&lt;&lt;&#39;EOS&#39;)) =~ s/^&quot;(.+)&quot;$/$1/;<br/>+tell application &quot;Finder&quot;<br/>+ get version<br/>+end tell<br/>+EOS<br/>+<br/>+ my($finder, $mtype, $mcrea);<br/>+ # Mac OS X<br/>+ if ($^O eq &#39;darwin&#39;) {<br/>+ ok($version &gt;= 10, &quot;Finder v$version&quot;);<br/>+ $finder = &#39;/System/Library/CoreServices/Finder&#39;;<br/>+ $mcrea = $mtype = &quot;\0\0\0\0&quot;;<br/>+ }<br/>+<br/>+ # Mac OS / Classic<br/>+ elsif ($^O eq &#39;MacOS&#39;) {<br/>+ if ($version &gt;= 10) {<br/>+ ok(1, &quot;Finder v$version (Classic)&quot;);<br/>+ } else {<br/>+ ok($version &gt;=7, &quot;Finder v$version&quot;);<br/>+ }<br/>+ $finder = MakePath($volumes[0]) . &quot;System Folder:Finder&quot;;<br/>+ $mcrea = &#39;R*ch&#39;;<br/>+ $mtype = &#39;TEXT&#39;;<br/>+ }<br/>+ <br/>+ else {<br/>+ ok(0, &quot;huh?&quot;);<br/>+ }<br/>+<br/>+ # file info get/set<br/>+ my($crea, $type) = GetFileInfo($finder);<br/>+ is($crea, &#39;MACS&#39;, &quot;creator of &#39;$finder&#39;&quot;);<br/>+ is($type, &#39;FNDR&#39;, &quot;type of &#39;$finder&#39;&quot;);<br/>+<br/>+ my $testfile = catfile(curdir(), &quot;foo&quot;);<br/>+ unlink $testfile;<br/>+ if (open(my $fh, &quot;&gt;&quot;, $testfile)) {<br/>+ close $fh;<br/>+ ($crea, $type) = GetFileInfo($testfile);<br/>+ # could fail under Mac OS if local GUSI resource changed<br/>+ # so new files are not R*ch/TEXT; we could read<br/>+ # the resource instead ... (and old versions of MacPerl<br/>+ # used MPS /TEXT)<br/>+ is($crea, $mcrea, &quot;creator of &#39;$testfile&#39;&quot;);<br/>+ is($type, $mtype, &quot;type of &#39;$testfile&#39;&quot;);<br/>+<br/>+ SetFileInfo(&#39;McPL&#39;, &#39;TEXT&#39;, $testfile);<br/>+ ($crea, $type) = GetFileInfo($testfile);<br/>+ is($crea, &#39;McPL&#39;, &quot;creator of &#39;$testfile&#39;&quot;);<br/>+ is($type, &#39;TEXT&#39;, &quot;type of &#39;$testfile&#39;&quot;);<br/>+ } else {<br/>+ ok(0, &quot;No file &#39;$testfile&#39;&quot;) for 1..4;<br/>+ }<br/>+ unlink $testfile;<br/>+}<br/>+<br/>+__END__<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg286.html Thu, 28 Nov 2002 13:45:12 +0000 Change 18199: Integrate maint-5.8/macperl/ from maint-5.8/perl/ by Chris Nandor Change 18199 by pudge@pudge-mobile on 2002/11/28 05:20:16<br/><br/> Integrate maint-5.8/macperl/ from maint-5.8/perl/<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.8/macperl/AUTHORS#2 integrate<br/>.... //depot/maint-5.8/macperl/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/Changes5.005#2 integrate<br/>.... //depot/maint-5.8/macperl/Changes5.6#2 integrate<br/>.... //depot/maint-5.8/macperl/Changes5.8#1 branch<br/>.... //depot/maint-5.8/macperl/Configure#2 integrate<br/>.... //depot/maint-5.8/macperl/INSTALL#2 integrate<br/>.... //depot/maint-5.8/macperl/MANIFEST#2 integrate<br/>.... //depot/maint-5.8/macperl/Makefile.SH#2 integrate<br/>.... //depot/maint-5.8/macperl/NetWare/config_H.wc#2 integrate<br/>.... //depot/maint-5.8/macperl/Policy_sh.SH#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/Glossary#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/apply#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/config.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/config_H#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/patching.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/pumpkin.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/Porting/repository.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/README.aix#2 integrate<br/>.... //depot/maint-5.8/macperl/README.amiga#2 integrate<br/>.... //depot/maint-5.8/macperl/README.ce#2 integrate<br/>.... //depot/maint-5.8/macperl/README.cn#2 integrate<br/>.... //depot/maint-5.8/macperl/README.cygwin#2 integrate<br/>.... //depot/maint-5.8/macperl/README.dgux#2 integrate<br/>.... //depot/maint-5.8/macperl/README.dos#2 integrate<br/>.... //depot/maint-5.8/macperl/README.epoc#2 integrate<br/>.... //depot/maint-5.8/macperl/README.hpux#2 integrate<br/>.... //depot/maint-5.8/macperl/README.jp#2 integrate<br/>.... //depot/maint-5.8/macperl/README.mint#2 integrate<br/>.... //depot/maint-5.8/macperl/README.netware#2 integrate<br/>.... //depot/maint-5.8/macperl/README.os400#1 branch<br/>.... //depot/maint-5.8/macperl/README.tru64#2 integrate<br/>.... //depot/maint-5.8/macperl/README.vmesa#2 integrate<br/>.... //depot/maint-5.8/macperl/README.win32#2 integrate<br/>.... //depot/maint-5.8/macperl/XSUB.h#2 integrate<br/>.... //depot/maint-5.8/macperl/autodoc.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/av.c#2 integrate<br/>.... //depot/maint-5.8/macperl/av.h#2 integrate<br/>.... //depot/maint-5.8/macperl/bytecode.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/cflags.SH#2 integrate<br/>.... //depot/maint-5.8/macperl/config_h.SH#2 integrate<br/>.... //depot/maint-5.8/macperl/configpm#2 integrate<br/>.... //depot/maint-5.8/macperl/configure.com#2 integrate<br/>.... //depot/maint-5.8/macperl/cop.h#2 integrate<br/>.... //depot/maint-5.8/macperl/cv.h#2 integrate<br/>.... //depot/maint-5.8/macperl/doio.c#2 integrate<br/>.... //depot/maint-5.8/macperl/doop.c#2 integrate<br/>.... //depot/maint-5.8/macperl/dump.c#2 integrate<br/>.... //depot/maint-5.8/macperl/embed.fnc#2 integrate<br/>.... //depot/maint-5.8/macperl/embed.h#2 integrate<br/>.... //depot/maint-5.8/macperl/embed.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/embedvar.h#2 integrate<br/>.... //depot/maint-5.8/macperl/epoc/config.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/B.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/B.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/B/C.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/B/Concise.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/B/Deparse.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/B/Lint.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/Makefile.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/t/b.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/t/concise.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/t/deparse.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/B/t/lint.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/DB_File.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/DB_File.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/dbinfo#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/t/db-btree.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/t/db-hash.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/t/db-recno.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/DB_File/typemap#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Devel/PPPort/PPPort.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Devel/Peek/Peek.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/AUTHORS#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/Encode.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/Encode.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/MANIFEST#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/Unicode/Unicode.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/bin/enc2xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/bin/piconv#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/bin/ucmsort#1 branch<br/>.... //depot/maint-5.8/macperl/ext/Encode/encoding.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/Alias.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/Encoding.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/JP/JIS7.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/MIME/Header.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/lib/Encode/Supported.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/t/CJKT.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/t/big5-eten.utf#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/t/jperl.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/t/mime-header.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/t/rt.pl#1 branch<br/>.... //depot/maint-5.8/macperl/ext/Encode/ucm/big5-eten.ucm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/ucm/cp932.ucm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/ucm/cp936.ucm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/ucm/cp949.ucm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Encode/ucm/cp950.ucm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Fcntl/t/syslfs.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/GDBM_File/GDBM_File.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/GDBM_File/GDBM_File.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/GDBM_File/Makefile.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/GDBM_File/gdbm.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/GDBM_File/typemap#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/IO/IO.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/IO/lib/IO/t/IO.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/IPC/SysV/Semaphore.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/ChangeLog#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/README#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/Util.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/lib/List/Util.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/lib/Scalar/Util.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/t/first.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/t/isvstring.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/List/Util/t/reduce.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/List/Util/t/refaddr.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/NDBM_File/NDBM_File.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/NDBM_File/ndbm.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/NDBM_File/typemap#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/ODBM_File/ODBM_File.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/ODBM_File/odbm.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/ODBM_File/typemap#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Opcode/Opcode.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Opcode/Safe.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/POSIX/POSIX.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/POSIX/POSIX.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/POSIX/POSIX.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/POSIX/t/is.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/POSIX/t/posix.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/PerlIO/scalar/scalar.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/PerlIO/t/encoding.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/PerlIO/t/scalar.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/PerlIO/t/via.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/PerlIO/via/via.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/SDBM_File/SDBM_File.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/SDBM_File/sdbm.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/SDBM_File/typemap#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Safe/safe1.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Safe/safe2.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Safe/safe3.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/Storable/ChangeLog#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/MANIFEST#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/Makefile.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/README#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/Storable.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/Storable.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/blessed.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/code.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/downgrade.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/forgive.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/integer.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/malice.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Storable/t/restrict.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Sys/Hostname/Hostname.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Sys/Syslog/syslog.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Thread/Thread.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Time/HiRes/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Time/HiRes/HiRes.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Time/HiRes/HiRes.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Time/HiRes/HiRes.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Time/HiRes/Makefile.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/Time/HiRes/typemap#1 branch<br/>.... //depot/maint-5.8/macperl/ext/threads/shared/shared.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/threads/shared/t/disabled.t#1 branch<br/>.... //depot/maint-5.8/macperl/ext/threads/shared/t/hv_refs.t#2 integrate<br/>.... //depot/maint-5.8/macperl/ext/threads/threads.xs#2 integrate<br/>.... //depot/maint-5.8/macperl/global.sym#2 integrate<br/>.... //depot/maint-5.8/macperl/gv.c#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/README.hints#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/aix.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/darwin.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/dec_osf.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/hpux.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/irix_6.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/linux.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/netbsd.sh#2 integrate<br/>.... //depot/maint-5.8/macperl/hints/os400.sh#1 branch<br/>.... //depot/maint-5.8/macperl/installperl#2 integrate<br/>.... //depot/maint-5.8/macperl/intrpvar.h#2 integrate<br/>.... //depot/maint-5.8/macperl/keywords.h#2 integrate<br/>.... //depot/maint-5.8/macperl/keywords.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Attribute/Handlers.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Attribute/Handlers/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Attribute/Handlers/README#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/AutoLoader.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/AutoLoader.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Benchmark.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Benchmark.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Class/Struct.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Class/Struct.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Config.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Cwd.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Exporter.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Exporter.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Exporter/Heavy.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/ExtUtils/Constant.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/ExtUtils/MM_Unix.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/ExtUtils/t/Constant.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/ExtUtils/t/Installed.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/ExtUtils/typemap#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Basename.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Find/t/find.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Spec/Unix.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Spec/VMS.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Spec/Win32.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Spec/t/Spec.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/File/Temp.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Hash/Util.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Locale/Codes/t/languages.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Locale/Country.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Locale/Currency.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Locale/Language.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Locale/Script.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigFloat.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/Calc.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/Scalar.pm#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bare_mbf.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bare_mbi.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bare_mif.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bigfltpm.inc#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bigfltpm.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bigintc.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bigintpm.inc#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bigintpm.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/bigints.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/calling.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/constant.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/mbimbf.inc#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/mbimbf.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/sub_mbf.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/sub_mbi.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/sub_mif.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/upgrade.inc#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/upgrade.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigInt/t/with_sub.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigRat.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigRat/t/big_ap.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Math/BigRat/t/bigrat.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Math/BigRat/t/bigratpm.inc#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Net/Ping.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Net/Ping/t/110_icmp_inst.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Net/Ping/t/150_syn_inst.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Net/Ping/t/200_ping_tcp.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Net/Ping/t/400_ping_syn.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Net/Ping/t/450_service.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Net/hostent.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Net/t/hostname.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/PerlIO.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/Functions.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/Html.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/Text.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/Text/Overstrike.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/Usage.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/t/basic.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/t/htmlview.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/t/htmlview.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Pod/t/text-options.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Shell.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Shell.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Term/Cap.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Term/ReadLine.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Builder.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/More.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/details.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/exit.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/fork.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/has_plan.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/has_plan2.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/ok_obj.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/plan.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Simple/t/threads.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/Tutorial.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/t/fail.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/t/mix.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Test/t/todo.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Text/TabsWrap/t/wrap.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Text/Wrap.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Tie/Array.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/Collate.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/Collate/Changes#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/Collate/README#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/Collate/keys.txt#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/Collate/t/index.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/Unicode/Collate/t/test.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/UCD.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/Unicode/UCD.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/bigint.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/bignum.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/bignum.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/biinfnan.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/bn_lite.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/bninfnan.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/br_lite.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/brinfnan.t#1 branch<br/>.... //depot/maint-5.8/macperl/lib/bignum/t/infnan.inc#1 branch<br/>.... //depot/maint-5.8/macperl/lib/bigrat.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/charnames.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/charnames.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/filetest.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/if.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/if.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/lib.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/lib_pm.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/open.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/open.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/overload.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/sort.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/sort.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/strict.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/strict.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/Category.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/SpecialCasing.txt#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/UnicodeData.txt#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/C.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/Cf.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/Cntrl.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/Graph.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/P.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/Pd.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/Print.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/unicore/lib/Punct.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/utf8.t#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/utf8_heavy.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/warnings.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/lib/warnings.t#2 integrate<br/>.... //depot/maint-5.8/macperl/locale.c#2 integrate<br/>.... //depot/maint-5.8/macperl/makedef.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/malloc.c#2 integrate<br/>.... //depot/maint-5.8/macperl/mg.c#2 integrate<br/>.... //depot/maint-5.8/macperl/mg.h#2 integrate<br/>.... //depot/maint-5.8/macperl/numeric.c#2 integrate<br/>.... //depot/maint-5.8/macperl/op.c#2 integrate<br/>.... //depot/maint-5.8/macperl/opcode.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/patchlevel.h#2 integrate<br/>.... //depot/maint-5.8/macperl/perl.c#3 integrate<br/>.... //depot/maint-5.8/macperl/perl.h#2 integrate<br/>.... //depot/maint-5.8/macperl/perlapi.c#2 integrate<br/>.... //depot/maint-5.8/macperl/perlapi.h#2 integrate<br/>.... //depot/maint-5.8/macperl/perlio.c#2 integrate<br/>.... //depot/maint-5.8/macperl/perlvars.h#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/buildtoc.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perl.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perl570delta.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perl572delta.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perl573delta.pod#1 branch<br/>.... //depot/maint-5.8/macperl/pod/perl58delta.pod#1 branch<br/>.... //depot/maint-5.8/macperl/pod/perlapi.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perldelta.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perldiag.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlebcdic.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlembed.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq1.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq2.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq3.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq4.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq5.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq6.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq7.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq8.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfaq9.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlfunc.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlhack.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlipc.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlmod.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlmodlib.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlmodlib.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlop.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlopentut.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlpacktut.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlport.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlre.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlrun.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlsec.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlthrtut.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perltie.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perltodo.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perltooc.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlunicode.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perluniintro.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlvar.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/perlxstut.pod#2 integrate<br/>.... //depot/maint-5.8/macperl/pod/pod2text.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/pp.c#2 integrate<br/>.... //depot/maint-5.8/macperl/pp_ctl.c#2 integrate<br/>.... //depot/maint-5.8/macperl/pp_hot.c#2 integrate<br/>.... //depot/maint-5.8/macperl/pp_pack.c#2 integrate<br/>.... //depot/maint-5.8/macperl/pp_sys.c#2 integrate<br/>.... //depot/maint-5.8/macperl/proto.h#2 integrate<br/>.... //depot/maint-5.8/macperl/reentr.c#2 integrate<br/>.... //depot/maint-5.8/macperl/reentr.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/regcomp.c#2 integrate<br/>.... //depot/maint-5.8/macperl/regcomp.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/regen.pl#1 branch<br/>.... //depot/maint-5.8/macperl/regen_headers.pl#1 branch<br/>.... //depot/maint-5.8/macperl/regexec.c#2 integrate<br/>.... //depot/maint-5.8/macperl/sv.c#2 integrate<br/>.... //depot/maint-5.8/macperl/sv.h#2 integrate<br/>.... //depot/maint-5.8/macperl/t/TestInit.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/t/base/num.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/comp/hints.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/comp/our.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/comp/parser.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/io/binmode.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/io/crlf.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/io/open.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/io/print.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/io/read.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/Math/BigFloat/Subclass.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/Test/Simple/sample_tests/pre_plan_death.plx#1 branch<br/>.... //depot/maint-5.8/macperl/t/lib/TieOut.pm#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/h2ph.pht#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/strict/subs#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/warnings/av#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/warnings/doio#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/warnings/op#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/warnings/pp_hot#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/warnings/pp_sys#2 integrate<br/>.... //depot/maint-5.8/macperl/t/lib/warnings/toke#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/anonsub.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/assignwarn.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/attrs.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/chop.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/closure.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/getpid.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/op/grep.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/gv.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/hashwarn.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/lfs.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/magic.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/method.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/mkdir.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/override.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/pack.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/pat.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/range.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/re_tests#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/recurse.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/ref.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/split.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/sprintf.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/stash.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/op/sub_lval.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/taint.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/tie.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/tiearray.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/tiehandle.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/op/tr.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/run/fresh_perl.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/run/runenv.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/run/switchI.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/run/switches.t#2 integrate<br/>.... //depot/maint-5.8/macperl/t/test.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/t/uni/tr_7jis.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/uni/tr_eucjp.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/uni/tr_sjis.t#1 branch<br/>.... //depot/maint-5.8/macperl/t/uni/tr_utf8.t#1 branch<br/>.... //depot/maint-5.8/macperl/thread.h#2 integrate<br/>.... //depot/maint-5.8/macperl/toke.c#2 integrate<br/>.... //depot/maint-5.8/macperl/utf8.c#2 integrate<br/>.... //depot/maint-5.8/macperl/util.c#2 integrate<br/>.... //depot/maint-5.8/macperl/utils/c2ph.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/utils/dprofpp.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/utils/h2ph.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/utils/perldoc.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/vms/descrip_mms.template#2 integrate<br/>.... //depot/maint-5.8/macperl/vms/ext/filespec.t#2 integrate<br/>.... //depot/maint-5.8/macperl/warnings.pl#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/Makefile#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config.bc#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config.gc#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config.vc#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config.vc64#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config_H.bc#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config_H.gc#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config_H.vc#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/config_H.vc64#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/makefile.mk#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/win32.c#2 integrate<br/>.... //depot/maint-5.8/macperl/win32/win32.h#2 integrate<br/>.... //depot/maint-5.8/macperl/wince/Makefile.ce#2 integrate<br/>.... //depot/maint-5.8/macperl/wince/compile.bat#2 integrate<br/>.... //depot/maint-5.8/macperl/wince/config.ce#2 integrate<br/>.... //depot/maint-5.8/macperl/wince/config_H.ce#2 integrate<br/>.... //depot/maint-5.8/macperl/wince/win32io.c#2 integrate<br/>.... //depot/maint-5.8/macperl/wince/wince.c#2 integrate<br/>.... //depot/maint-5.8/macperl/x2p/find2perl.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/x2p/s2p.PL#2 integrate<br/>.... //depot/maint-5.8/macperl/x2p/str.c#2 integrate<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg285.html Thu, 28 Nov 2002 13:45:01 +0000 Change 18201: Bump version, update Changes/resources by Chris Nandor Change 18201 by pudge@pudge-mobile on 2002/11/28 06:01:31<br/><br/> Bump version, update Changes/resources<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/Changes#9 edit<br/>.... //depot/maint-5.6/macperl/macos/MPVersion.r#10 edit<br/>.... //depot/maint-5.6/macperl/macos/macperl/MacPerl.rsrc#6 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/Changes#9 (text) ====<br/>Index: macperl/macos/Changes<br/>--- macperl/macos/Changes#8~15100~ Thu Mar 7 19:23:17 2002<br/>+++ macperl/macos/Changes Wed Nov 27 22:01:31 2002<br/>@@ -25,9 +25,252 @@<br/> This file contains only changes that affect the maint-5.6/macperl branch.<br/> <br/> ----------------<br/>+Version v5.6.1r2<br/>+----------------<br/>+<br/>+____________________________________________________________________________<br/>+[ 18200] By: pudge on 2002/11/28 05:29:12<br/>+ Log: Yet another approach to signal handling (Matthias)<br/>+ Branch: macperl<br/>+ ! macos/config.h util.c<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/config.h util.c<br/>+ Branch: maint-5.8/macperl<br/>+ ! macos/config.h util.c<br/>+____________________________________________________________________________<br/>+[ 18196] By: pudge on 2002/11/28 03:39:14<br/>+ Log: Make installme more robust<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/Droplets/installme.plx<br/>+____________________________________________________________________________<br/>+[ 18195] By: pudge on 2002/11/28 03:38:25<br/>+ Log: Work around weird startup Apple events (Matthias, MacPerl Bug #543491)<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/MPAppleEvents.c macos/macperl/MPAppleEvents.h<br/>+ ! macos/macperl/MPMain.c<br/>+____________________________________________________________________________<br/>+[ 18194] By: pudge on 2002/11/28 03:35:41<br/>+ Log: Implement InitCursorCtl wrappers (Matthias, MacPerl Bug #526707)<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/SubLaunch.c macos/macish.c macos/macish.h<br/>+____________________________________________________________________________<br/>+[ 18193] By: pudge on 2002/11/28 03:20:15<br/>+ Log: Add first phase of Carbon support to macperl/ext/.<br/>+ Covers Components, Files, Gestalt, Memory, MoreFiles, Notification,<br/>+ Processes, Resources, Sound, Speech, Types, and the MacPerl module.<br/>+ Support functions and docs in Carbon/. Added MoreFiles source.<br/>+ Moved around and began to rewrite some test files.<br/>+ Branch: maint-5.6/macperl<br/>+ + macos/ext/Mac/Carbon/Carbon.h macos/ext/Mac/Carbon/Carbon.pm<br/>+ + macos/ext/Mac/Carbon/MANIFEST<br/>+ + macos/ext/Mac/Carbon/MANIFEST.SKIP<br/>+ + macos/ext/Mac/Carbon/Makefile.PL macos/ext/Mac/Carbon/README<br/>+ + macos/ext/Mac/Carbon/t/Carbon.t macos/ext/Mac/Carbon/typemap<br/>+ + macos/ext/Mac/Carbon/xsubpps/xsubpp-5.6.1<br/>+ + macos/ext/Mac/Carbon/xsubpps/xsubpp-5.8.0<br/>+ + macos/ext/Mac/Components/eg/ListComponents.plx<br/>+ + macos/ext/Mac/Components/t/Components.t<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/DirectoryCopy.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/DirectoryCopy.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FSpCompat.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FSpCompat.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FileCopy.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FileCopy.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FullPath.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FullPath.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/IterateDirectory.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/IterateDirectory.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreDesktopMgr.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreDesktopMgr.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFiles.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFiles.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFilesExtras.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFilesExtras.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/Optimization.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/OptimizationEnd.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/Search.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/Search.h<br/>+ + macos/ext/Mac/MoreFiles/eg/Application.plx<br/>+ + macos/ext/Mac/MoreFiles/eg/Iterate.plx<br/>+ + macos/ext/Mac/MoreFiles/t/MoreFiles.t<br/>+ + macos/ext/Mac/Processes/eg/Processes.plx<br/>+ + macos/ext/Mac/Sound/t/Scream.rsrc<br/>+ + macos/ext/Mac/Sound/t/Sound.t<br/>+ + macos/ext/Mac/Speech/eg/Cellist.plx<br/>+ + macos/ext/Mac/Speech/eg/DumpVoices.plx<br/>+ + macos/ext/Mac/Speech/eg/JukeBox.plx<br/>+ + macos/ext/Mac/Speech/eg/Phonemes.plx<br/>+ + macos/ext/Mac/Speech/t/Speech.t macos/ext/MacPerl/t/MacPerl.t<br/>+ - macos/ext/Mac/Components/t/ListComponents.t<br/>+ - macos/ext/Mac/MoreFiles/t/Application.t<br/>+ - macos/ext/Mac/MoreFiles/t/Iterate.t<br/>+ - macos/ext/Mac/Sound/t/Scream.t<br/>+ - macos/ext/Mac/Speech/t/Cellist.t<br/>+ - macos/ext/Mac/Speech/t/DumpVoices.t<br/>+ - macos/ext/Mac/Speech/t/JukeBox.t<br/>+ - macos/ext/Mac/Speech/t/Phonemes.t<br/>+ ! macos/ext/Mac/Components/Components.pm<br/>+ ! macos/ext/Mac/Components/Components.xs<br/>+ ! macos/ext/Mac/Components/Makefile.PL<br/>+ ! macos/ext/Mac/Files/Files.pm macos/ext/Mac/Files/Files.xs<br/>+ ! macos/ext/Mac/Files/Makefile.PL macos/ext/Mac/Files/t/Files.t<br/>+ ! macos/ext/Mac/Gestalt/Gestalt.pm<br/>+ ! macos/ext/Mac/Gestalt/Gestalt.xs<br/>+ ! macos/ext/Mac/Gestalt/Makefile.PL<br/>+ ! macos/ext/Mac/Gestalt/t/Gestalt.t<br/>+ ! macos/ext/Mac/Memory/Makefile.PL<br/>+ ! macos/ext/Mac/Memory/Memory.pm macos/ext/Mac/Memory/Memory.xs<br/>+ ! macos/ext/Mac/Memory/t/Memory.t macos/ext/Mac/MoreFiles/MF.xs<br/>+ ! macos/ext/Mac/MoreFiles/Makefile.PL<br/>+ ! macos/ext/Mac/MoreFiles/MoreFiles.pm<br/>+ ! macos/ext/Mac/Notification/Makefile.PL<br/>+ ! macos/ext/Mac/Notification/Notification.pm<br/>+ ! macos/ext/Mac/Notification/Notification.xs<br/>+ ! macos/ext/Mac/Notification/t/Notification.t<br/>+ ! macos/ext/Mac/Processes/Makefile.PL<br/>+ ! macos/ext/Mac/Processes/Processes.pm<br/>+ ! macos/ext/Mac/Processes/Processes.xs<br/>+ ! macos/ext/Mac/Processes/t/Processes.t<br/>+ ! macos/ext/Mac/Resources/Makefile.PL<br/>+ ! macos/ext/Mac/Resources/Resources.pm<br/>+ ! macos/ext/Mac/Resources/Resources.xs<br/>+ ! macos/ext/Mac/Resources/t/Resources.t<br/>+ ! macos/ext/Mac/Sound/Makefile.PL macos/ext/Mac/Sound/Sound.pm<br/>+ ! macos/ext/Mac/Sound/Sound.xs macos/ext/Mac/Speech/Makefile.PL<br/>+ ! macos/ext/Mac/Speech/Speech.pm macos/ext/Mac/Speech/Speech.xs<br/>+ ! macos/ext/Mac/Types/Makefile.PL macos/ext/Mac/Types/Types.pm<br/>+ ! macos/ext/Mac/Types/Types.xs macos/ext/Mac/Types/t/Types.t<br/>+ ! macos/ext/MacPerl/MacPerl.pm macos/ext/MacPerl/MacPerl.xs<br/>+ ! macos/ext/MacPerl/Makefile.PL macos/ext/MacPerl/OSA.xs<br/>+____________________________________________________________________________<br/>+[ 17858] By: pudge on 2002/09/08 04:47:02<br/>+ Log: Save script context in compiled script<br/>+ From Bart Lateur<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/OSA/Simple.pm<br/>+____________________________________________________________________________<br/>+[ 17857] By: pudge on 2002/09/08 04:46:31<br/>+ Log: Add Mac OS X Note<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/Glue.pm<br/>+____________________________________________________________________________<br/>+[ 17856] By: pudge on 2002/09/08 04:46:03<br/>+ Log: Remove workaround for fixed GUSI bug #553817<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/MacPerlTests.cmd<br/>+____________________________________________________________________________<br/>+[ 17855] By: pudge on 2002/09/08 04:36:08<br/>+ Log: Add ChooseFSObject/GetFolder<br/>+ From Thomas Wegner<br/>+ Branch: maint-5.6/macperl<br/>+ + macos/ext/Mac/StandardFile/ChooseFSObject.c<br/>+ + macos/ext/Mac/StandardFile/ChooseFSObject.h<br/>+ + macos/ext/Mac/StandardFile/t/ChooseFSObject.t<br/>+ ! macos/Perl.r macos/ext/Mac/StandardFile/Makefile.PL<br/>+ ! macos/ext/Mac/StandardFile/StandardFile.pm<br/>+ ! macos/ext/Mac/StandardFile/StandardFile.xs<br/>+ ! macos/macperl/MacPerl.r<br/>+____________________________________________________________________________<br/>+[ 17854] By: pudge on 2002/09/08 04:35:08<br/>+ Log: Fix URL encoding for MacPerl Help/Shuck<br/>+ Bug exposed in Mac OS X 10.2; MacPerl Bug #598449<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/MPHelp.c<br/>+____________________________________________________________________________<br/>+[ 17853] By: pudge on 2002/09/08 04:33:43<br/>+ Log: TextEdit example show text extraction<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/ext/Mac/TextEdit/t/SimpleText.t<br/>+____________________________________________________________________________<br/>+[ 17852] By: pudge on 2002/09/08 04:32:53<br/>+ Log: File::Copy should only warn if there&#39;s something to warn about<br/>+ Branch: maint-5.6/macperl<br/>+ ! lib/File/Copy.pm<br/>+____________________________________________________________________________<br/>+[ 17668] By: pudge on 2002/07/30 03:16:52<br/>+ Log: Help fixes from Thomas Wegner<br/>+ Branch: macperl<br/>+ ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp<br/>+ Branch: maint-5.8/macperl<br/>+ ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp<br/>+____________________________________________________________________________<br/>+[ 17664] By: pudge on 2002/07/29 19:20:51<br/>+ Log: Neglected to include old bugfix from main branch<br/>+ Branch: maint-5.6/macperl<br/>+ ! perl.c<br/>+____________________________________________________________________________<br/>+[ 17663] By: pudge on 2002/07/29 18:25:57<br/>+ Log: Count line numbers properly in MacPerl app<br/>+ Branch: maint-5.6/macperl<br/>+ ! perl.c<br/>+____________________________________________________________________________<br/>+[ 17662] By: pudge on 2002/07/29 18:21:16<br/>+ Log: Make Mac::Glue work to glue Mac OS X apps under Classic<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/AETE/App.pm macos/lib/Mac/AETE/Format/Glue.pm<br/>+____________________________________________________________________________<br/>+[ 17661] By: pudge on 2002/07/29 18:20:46<br/>+ Log: gluemac failed with some paths<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/Droplets/gluemac.plx<br/>+____________________________________________________________________________<br/>+[ 17660] By: pudge on 2002/07/29 18:20:12<br/>+ Log: Fix long-standing bug with popup menus not working in dialogs<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/ext/Mac/Dialogs/Dialogs.pm<br/>+____________________________________________________________________________<br/>+[ 17659] By: pudge on 2002/07/29 18:19:00<br/>+ Log: Update test script<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/MacPerlTests.cmd<br/>+____________________________________________________________________________<br/>+[ 17658] By: pudge on 2002/07/29 18:18:35<br/>+ Log: Portability fixes for blib<br/>+ (already in 5.8/5.9)<br/>+ Branch: maint-5.6/macperl<br/>+ ! lib/blib.pm<br/>+____________________________________________________________________________<br/>+[ 17657] By: pudge on 2002/07/29 18:17:54<br/>+ Log: Minor test fixes<br/>+ Branch: maint-5.6/macperl<br/>+ ! t/lib/filespec.t t/op/magic.t<br/>+____________________________________________________________________________<br/>+[ 17651] By: pudge on 2002/07/23 03:24:35<br/>+ Log: Integrate maint-5.6/perl<br/>+ Branch: maint-5.6/macperl<br/>+ +&gt; t/win32/longpath.t<br/>+ !&gt; (integrate 35 files)<br/>+____________________________________________________________________________<br/>+[ 16512] By: pudge on 2002/05/09 03:44:21<br/>+ Log: Integrate from macperl<br/>+ Branch: maint-5.6/macperl<br/>+ !&gt; macos/macperl/MPConsole.cp<br/>+____________________________________________________________________________<br/>+[ 16474] By: pudge on 2002/05/08 04:00:04<br/>+ Log: Update README (integrate from macperl)<br/>+ Branch: maint-5.6/macperl<br/>+ !&gt; README.macos<br/>+____________________________________________________________________________<br/>+[ 16473] By: pudge on 2002/05/08 03:52:28<br/>+ Log: Various syncs from macperl/ -&gt; maint-5.6/macperl/<br/>+ File::Copy, File::Spec updates<br/>+ Test script modifications<br/>+ pp_require path bugfixes<br/>+ Branch: maint-5.6/macperl<br/>+ ! lib/File/Copy.pm lib/File/Spec/Mac.pm macos/MacPerlTests.plx<br/>+ ! macos/configpm macos/macish.c macos/macish.h pp_ctl.c<br/>+<br/>+----------------<br/> Version v5.6.1r1<br/> ----------------<br/> <br/>+____________________________________________________________________________<br/>+[ 15100] By: pudge on 2002/03/08 03:23:17<br/>+ Log: Update Changes<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/Changes<br/> ____________________________________________________________________________<br/> [ 15099] By: pudge on 2002/03/08 03:20:06<br/> Log: Replace macperlbundled with macperldelta<br/><br/>==== //depot/maint-5.6/macperl/macos/MPVersion.r#10 (text) ====<br/>Index: macperl/macos/MPVersion.r<br/>--- macperl/macos/MPVersion.r#9~14927~ Fri Mar 1 09:27:29 2002<br/>+++ macperl/macos/MPVersion.r Wed Nov 27 22:01:31 2002<br/>@@ -5,6 +5,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: MPVersion.r,v $<br/>+ * Revision 1.13 2002/09/05 23:37:03 pudge<br/>+ * Bump version<br/>+ *<br/> * Revision 1.12 2002/03/01 04:26:00 pudge<br/> * Bump version to ... wait for it ... 5.6.1r1!<br/> *<br/>@@ -44,10 +47,10 @@<br/> *<br/> */<br/> <br/>-#define MPVersionStr &quot;5.6.1r1&quot;<br/>+#define MPVersionStr &quot;5.6.1r2&quot;<br/> #define MPRevision 0x05<br/> #define MPVersion 0x61<br/>-#define MPBuild 0x01<br/>+#define MPBuild 0x02<br/> #define MPState release<br/> #define MPCopyright &quot;ported by Matthias Neeracher, maintained by Chris Nandor&quot;<br/> #define MPDate $$Format(&quot;%4.4d-%2.2d-%2.2d&quot;, $$Year, $$Month, $$Day)<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg284.html Thu, 28 Nov 2002 13:41:11 +0000 Change 18201: Bump version, update Changes/resources by Chris Nandor Change 18201 by pudge@pudge-mobile on 2002/11/28 06:01:31<br/><br/> Bump version, update Changes/resources<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/Changes#9 edit<br/>.... //depot/maint-5.6/macperl/macos/MPVersion.r#10 edit<br/>.... //depot/maint-5.6/macperl/macos/macperl/MacPerl.rsrc#6 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/Changes#9 (text) ====<br/>Index: macperl/macos/Changes<br/>--- macperl/macos/Changes#8~15100~ Thu Mar 7 19:23:17 2002<br/>+++ macperl/macos/Changes Wed Nov 27 22:01:31 2002<br/>@@ -25,9 +25,252 @@<br/> This file contains only changes that affect the maint-5.6/macperl branch.<br/> <br/> ----------------<br/>+Version v5.6.1r2<br/>+----------------<br/>+<br/>+____________________________________________________________________________<br/>+[ 18200] By: pudge on 2002/11/28 05:29:12<br/>+ Log: Yet another approach to signal handling (Matthias)<br/>+ Branch: macperl<br/>+ ! macos/config.h util.c<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/config.h util.c<br/>+ Branch: maint-5.8/macperl<br/>+ ! macos/config.h util.c<br/>+____________________________________________________________________________<br/>+[ 18196] By: pudge on 2002/11/28 03:39:14<br/>+ Log: Make installme more robust<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/Droplets/installme.plx<br/>+____________________________________________________________________________<br/>+[ 18195] By: pudge on 2002/11/28 03:38:25<br/>+ Log: Work around weird startup Apple events (Matthias, MacPerl Bug #543491)<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/MPAppleEvents.c macos/macperl/MPAppleEvents.h<br/>+ ! macos/macperl/MPMain.c<br/>+____________________________________________________________________________<br/>+[ 18194] By: pudge on 2002/11/28 03:35:41<br/>+ Log: Implement InitCursorCtl wrappers (Matthias, MacPerl Bug #526707)<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/SubLaunch.c macos/macish.c macos/macish.h<br/>+____________________________________________________________________________<br/>+[ 18193] By: pudge on 2002/11/28 03:20:15<br/>+ Log: Add first phase of Carbon support to macperl/ext/.<br/>+ Covers Components, Files, Gestalt, Memory, MoreFiles, Notification,<br/>+ Processes, Resources, Sound, Speech, Types, and the MacPerl module.<br/>+ Support functions and docs in Carbon/. Added MoreFiles source.<br/>+ Moved around and began to rewrite some test files.<br/>+ Branch: maint-5.6/macperl<br/>+ + macos/ext/Mac/Carbon/Carbon.h macos/ext/Mac/Carbon/Carbon.pm<br/>+ + macos/ext/Mac/Carbon/MANIFEST<br/>+ + macos/ext/Mac/Carbon/MANIFEST.SKIP<br/>+ + macos/ext/Mac/Carbon/Makefile.PL macos/ext/Mac/Carbon/README<br/>+ + macos/ext/Mac/Carbon/t/Carbon.t macos/ext/Mac/Carbon/typemap<br/>+ + macos/ext/Mac/Carbon/xsubpps/xsubpp-5.6.1<br/>+ + macos/ext/Mac/Carbon/xsubpps/xsubpp-5.8.0<br/>+ + macos/ext/Mac/Components/eg/ListComponents.plx<br/>+ + macos/ext/Mac/Components/t/Components.t<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/DirectoryCopy.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/DirectoryCopy.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FSpCompat.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FSpCompat.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FileCopy.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FileCopy.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FullPath.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/FullPath.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/IterateDirectory.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/IterateDirectory.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreDesktopMgr.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreDesktopMgr.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFiles.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFiles.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFilesExtras.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/MoreFilesExtras.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/Optimization.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/OptimizationEnd.h<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/Search.c<br/>+ + macos/ext/Mac/MoreFiles/MoreFilesSrc/Search.h<br/>+ + macos/ext/Mac/MoreFiles/eg/Application.plx<br/>+ + macos/ext/Mac/MoreFiles/eg/Iterate.plx<br/>+ + macos/ext/Mac/MoreFiles/t/MoreFiles.t<br/>+ + macos/ext/Mac/Processes/eg/Processes.plx<br/>+ + macos/ext/Mac/Sound/t/Scream.rsrc<br/>+ + macos/ext/Mac/Sound/t/Sound.t<br/>+ + macos/ext/Mac/Speech/eg/Cellist.plx<br/>+ + macos/ext/Mac/Speech/eg/DumpVoices.plx<br/>+ + macos/ext/Mac/Speech/eg/JukeBox.plx<br/>+ + macos/ext/Mac/Speech/eg/Phonemes.plx<br/>+ + macos/ext/Mac/Speech/t/Speech.t macos/ext/MacPerl/t/MacPerl.t<br/>+ - macos/ext/Mac/Components/t/ListComponents.t<br/>+ - macos/ext/Mac/MoreFiles/t/Application.t<br/>+ - macos/ext/Mac/MoreFiles/t/Iterate.t<br/>+ - macos/ext/Mac/Sound/t/Scream.t<br/>+ - macos/ext/Mac/Speech/t/Cellist.t<br/>+ - macos/ext/Mac/Speech/t/DumpVoices.t<br/>+ - macos/ext/Mac/Speech/t/JukeBox.t<br/>+ - macos/ext/Mac/Speech/t/Phonemes.t<br/>+ ! macos/ext/Mac/Components/Components.pm<br/>+ ! macos/ext/Mac/Components/Components.xs<br/>+ ! macos/ext/Mac/Components/Makefile.PL<br/>+ ! macos/ext/Mac/Files/Files.pm macos/ext/Mac/Files/Files.xs<br/>+ ! macos/ext/Mac/Files/Makefile.PL macos/ext/Mac/Files/t/Files.t<br/>+ ! macos/ext/Mac/Gestalt/Gestalt.pm<br/>+ ! macos/ext/Mac/Gestalt/Gestalt.xs<br/>+ ! macos/ext/Mac/Gestalt/Makefile.PL<br/>+ ! macos/ext/Mac/Gestalt/t/Gestalt.t<br/>+ ! macos/ext/Mac/Memory/Makefile.PL<br/>+ ! macos/ext/Mac/Memory/Memory.pm macos/ext/Mac/Memory/Memory.xs<br/>+ ! macos/ext/Mac/Memory/t/Memory.t macos/ext/Mac/MoreFiles/MF.xs<br/>+ ! macos/ext/Mac/MoreFiles/Makefile.PL<br/>+ ! macos/ext/Mac/MoreFiles/MoreFiles.pm<br/>+ ! macos/ext/Mac/Notification/Makefile.PL<br/>+ ! macos/ext/Mac/Notification/Notification.pm<br/>+ ! macos/ext/Mac/Notification/Notification.xs<br/>+ ! macos/ext/Mac/Notification/t/Notification.t<br/>+ ! macos/ext/Mac/Processes/Makefile.PL<br/>+ ! macos/ext/Mac/Processes/Processes.pm<br/>+ ! macos/ext/Mac/Processes/Processes.xs<br/>+ ! macos/ext/Mac/Processes/t/Processes.t<br/>+ ! macos/ext/Mac/Resources/Makefile.PL<br/>+ ! macos/ext/Mac/Resources/Resources.pm<br/>+ ! macos/ext/Mac/Resources/Resources.xs<br/>+ ! macos/ext/Mac/Resources/t/Resources.t<br/>+ ! macos/ext/Mac/Sound/Makefile.PL macos/ext/Mac/Sound/Sound.pm<br/>+ ! macos/ext/Mac/Sound/Sound.xs macos/ext/Mac/Speech/Makefile.PL<br/>+ ! macos/ext/Mac/Speech/Speech.pm macos/ext/Mac/Speech/Speech.xs<br/>+ ! macos/ext/Mac/Types/Makefile.PL macos/ext/Mac/Types/Types.pm<br/>+ ! macos/ext/Mac/Types/Types.xs macos/ext/Mac/Types/t/Types.t<br/>+ ! macos/ext/MacPerl/MacPerl.pm macos/ext/MacPerl/MacPerl.xs<br/>+ ! macos/ext/MacPerl/Makefile.PL macos/ext/MacPerl/OSA.xs<br/>+____________________________________________________________________________<br/>+[ 17858] By: pudge on 2002/09/08 04:47:02<br/>+ Log: Save script context in compiled script<br/>+ From Bart Lateur<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/OSA/Simple.pm<br/>+____________________________________________________________________________<br/>+[ 17857] By: pudge on 2002/09/08 04:46:31<br/>+ Log: Add Mac OS X Note<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/Glue.pm<br/>+____________________________________________________________________________<br/>+[ 17856] By: pudge on 2002/09/08 04:46:03<br/>+ Log: Remove workaround for fixed GUSI bug #553817<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/MacPerlTests.cmd<br/>+____________________________________________________________________________<br/>+[ 17855] By: pudge on 2002/09/08 04:36:08<br/>+ Log: Add ChooseFSObject/GetFolder<br/>+ From Thomas Wegner<br/>+ Branch: maint-5.6/macperl<br/>+ + macos/ext/Mac/StandardFile/ChooseFSObject.c<br/>+ + macos/ext/Mac/StandardFile/ChooseFSObject.h<br/>+ + macos/ext/Mac/StandardFile/t/ChooseFSObject.t<br/>+ ! macos/Perl.r macos/ext/Mac/StandardFile/Makefile.PL<br/>+ ! macos/ext/Mac/StandardFile/StandardFile.pm<br/>+ ! macos/ext/Mac/StandardFile/StandardFile.xs<br/>+ ! macos/macperl/MacPerl.r<br/>+____________________________________________________________________________<br/>+[ 17854] By: pudge on 2002/09/08 04:35:08<br/>+ Log: Fix URL encoding for MacPerl Help/Shuck<br/>+ Bug exposed in Mac OS X 10.2; MacPerl Bug #598449<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/MPHelp.c<br/>+____________________________________________________________________________<br/>+[ 17853] By: pudge on 2002/09/08 04:33:43<br/>+ Log: TextEdit example show text extraction<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/ext/Mac/TextEdit/t/SimpleText.t<br/>+____________________________________________________________________________<br/>+[ 17852] By: pudge on 2002/09/08 04:32:53<br/>+ Log: File::Copy should only warn if there&#39;s something to warn about<br/>+ Branch: maint-5.6/macperl<br/>+ ! lib/File/Copy.pm<br/>+____________________________________________________________________________<br/>+[ 17668] By: pudge on 2002/07/30 03:16:52<br/>+ Log: Help fixes from Thomas Wegner<br/>+ Branch: macperl<br/>+ ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp<br/>+ Branch: maint-5.8/macperl<br/>+ ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp<br/>+____________________________________________________________________________<br/>+[ 17664] By: pudge on 2002/07/29 19:20:51<br/>+ Log: Neglected to include old bugfix from main branch<br/>+ Branch: maint-5.6/macperl<br/>+ ! perl.c<br/>+____________________________________________________________________________<br/>+[ 17663] By: pudge on 2002/07/29 18:25:57<br/>+ Log: Count line numbers properly in MacPerl app<br/>+ Branch: maint-5.6/macperl<br/>+ ! perl.c<br/>+____________________________________________________________________________<br/>+[ 17662] By: pudge on 2002/07/29 18:21:16<br/>+ Log: Make Mac::Glue work to glue Mac OS X apps under Classic<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/lib/Mac/AETE/App.pm macos/lib/Mac/AETE/Format/Glue.pm<br/>+____________________________________________________________________________<br/>+[ 17661] By: pudge on 2002/07/29 18:20:46<br/>+ Log: gluemac failed with some paths<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/macperl/Droplets/gluemac.plx<br/>+____________________________________________________________________________<br/>+[ 17660] By: pudge on 2002/07/29 18:20:12<br/>+ Log: Fix long-standing bug with popup menus not working in dialogs<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/ext/Mac/Dialogs/Dialogs.pm<br/>+____________________________________________________________________________<br/>+[ 17659] By: pudge on 2002/07/29 18:19:00<br/>+ Log: Update test script<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/MacPerlTests.cmd<br/>+____________________________________________________________________________<br/>+[ 17658] By: pudge on 2002/07/29 18:18:35<br/>+ Log: Portability fixes for blib<br/>+ (already in 5.8/5.9)<br/>+ Branch: maint-5.6/macperl<br/>+ ! lib/blib.pm<br/>+____________________________________________________________________________<br/>+[ 17657] By: pudge on 2002/07/29 18:17:54<br/>+ Log: Minor test fixes<br/>+ Branch: maint-5.6/macperl<br/>+ ! t/lib/filespec.t t/op/magic.t<br/>+____________________________________________________________________________<br/>+[ 17651] By: pudge on 2002/07/23 03:24:35<br/>+ Log: Integrate maint-5.6/perl<br/>+ Branch: maint-5.6/macperl<br/>+ +&gt; t/win32/longpath.t<br/>+ !&gt; (integrate 35 files)<br/>+____________________________________________________________________________<br/>+[ 16512] By: pudge on 2002/05/09 03:44:21<br/>+ Log: Integrate from macperl<br/>+ Branch: maint-5.6/macperl<br/>+ !&gt; macos/macperl/MPConsole.cp<br/>+____________________________________________________________________________<br/>+[ 16474] By: pudge on 2002/05/08 04:00:04<br/>+ Log: Update README (integrate from macperl)<br/>+ Branch: maint-5.6/macperl<br/>+ !&gt; README.macos<br/>+____________________________________________________________________________<br/>+[ 16473] By: pudge on 2002/05/08 03:52:28<br/>+ Log: Various syncs from macperl/ -&gt; maint-5.6/macperl/<br/>+ File::Copy, File::Spec updates<br/>+ Test script modifications<br/>+ pp_require path bugfixes<br/>+ Branch: maint-5.6/macperl<br/>+ ! lib/File/Copy.pm lib/File/Spec/Mac.pm macos/MacPerlTests.plx<br/>+ ! macos/configpm macos/macish.c macos/macish.h pp_ctl.c<br/>+<br/>+----------------<br/> Version v5.6.1r1<br/> ----------------<br/> <br/>+____________________________________________________________________________<br/>+[ 15100] By: pudge on 2002/03/08 03:23:17<br/>+ Log: Update Changes<br/>+ Branch: maint-5.6/macperl<br/>+ ! macos/Changes<br/> ____________________________________________________________________________<br/> [ 15099] By: pudge on 2002/03/08 03:20:06<br/> Log: Replace macperlbundled with macperldelta<br/><br/>==== //depot/maint-5.6/macperl/macos/MPVersion.r#10 (text) ====<br/>Index: macperl/macos/MPVersion.r<br/>--- macperl/macos/MPVersion.r#9~14927~ Fri Mar 1 09:27:29 2002<br/>+++ macperl/macos/MPVersion.r Wed Nov 27 22:01:31 2002<br/>@@ -5,6 +5,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: MPVersion.r,v $<br/>+ * Revision 1.13 2002/09/05 23:37:03 pudge<br/>+ * Bump version<br/>+ *<br/> * Revision 1.12 2002/03/01 04:26:00 pudge<br/> * Bump version to ... wait for it ... 5.6.1r1!<br/> *<br/>@@ -44,10 +47,10 @@<br/> *<br/> */<br/> <br/>-#define MPVersionStr &quot;5.6.1r1&quot;<br/>+#define MPVersionStr &quot;5.6.1r2&quot;<br/> #define MPRevision 0x05<br/> #define MPVersion 0x61<br/>-#define MPBuild 0x01<br/>+#define MPBuild 0x02<br/> #define MPState release<br/> #define MPCopyright &quot;ported by Matthias Neeracher, maintained by Chris Nandor&quot;<br/> #define MPDate $$Format(&quot;%4.4d-%2.2d-%2.2d&quot;, $$Year, $$Month, $$Day)<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg283.html Thu, 28 Nov 2002 13:40:26 +0000 Change 18200: Yet another approach to signal handling (Matthias) by Chris Nandor Change 18200 by pudge@pudge-mobile on 2002/11/28 05:29:12<br/><br/> Yet another approach to signal handling (Matthias)<br/><br/>Affected files ...<br/><br/>.... //depot/macperl/macos/config.h#7 edit<br/>.... //depot/macperl/util.c#12 edit<br/>.... //depot/maint-5.6/macperl/macos/config.h#5 edit<br/>.... //depot/maint-5.6/macperl/util.c#10 edit<br/>.... //depot/maint-5.8/macperl/macos/config.h#2 edit<br/>.... //depot/maint-5.8/macperl/util.c#3 edit<br/><br/>Differences ...<br/><br/>==== //depot/macperl/macos/config.h#7 (text) ====<br/>Index: macperl/macos/config.h<br/>--- macperl/macos/config.h#6~16976~ Sun Jun 2 10:21:28 2002<br/>+++ macperl/macos/config.h Wed Nov 27 21:29:12 2002<br/>@@ -13,6 +13,9 @@<br/> File : config.h - Mac configuration<br/> <br/> $Log: config.h,v $<br/>+Revision 1.12 2002/10/30 07:12:31 neeri<br/>+Yet another approach to signal handling<br/>+<br/> Revision 1.11 2002/01/03 21:53:51 neeri<br/> Disable sigaction (MacPerl Bug #470321)<br/> <br/>@@ -2241,7 +2244,7 @@<br/> * This symbol, if defined, indicates that Vr4&#39;s sigaction() routine<br/> * is available.<br/> */<br/>-#undef HAS_SIGACTION /**/<br/>+#define HAS_SIGACTION /**/<br/> <br/> /* HAS_SIGSETJMP:<br/> * This variable indicates to the C program that the sigsetjmp()<br/><br/>==== //depot/macperl/util.c#12 (text) ====<br/>Index: macperl/util.c<br/>--- macperl/util.c#11~18198~ Wed Nov 27 20:31:03 2002<br/>+++ macperl/util.c Wed Nov 27 21:29:12 2002<br/>@@ -2172,6 +2172,11 @@<br/> #ifndef PERL_MICRO<br/> #ifdef HAS_SIGACTION<br/> <br/>+#ifdef MACOS_TRADITIONAL<br/>+/* We don&#39;t want restart behavior on MacOS */<br/>+#undef SA_RESTART<br/>+#endif<br/>+<br/> Sighandler_t<br/> Perl_rsignal(pTHX_ int signo, Sighandler_t handler)<br/> {<br/><br/>==== //depot/maint-5.6/macperl/macos/config.h#5 (text) ====<br/>Index: macperl/macos/config.h<br/>--- macperl/macos/config.h#4~14067~ Fri Jan 4 12:19:18 2002<br/>+++ macperl/macos/config.h Wed Nov 27 21:29:12 2002<br/>@@ -13,6 +13,9 @@<br/> File : config.h - Mac configuration<br/> <br/> $Log: config.h,v $<br/>+Revision 1.12 2002/10/30 07:12:31 neeri<br/>+Yet another approach to signal handling<br/>+<br/> Revision 1.11 2002/01/03 21:53:51 neeri<br/> Disable sigaction (MacPerl Bug #470321)<br/> <br/>@@ -1958,7 +1961,7 @@<br/> * This symbol, if defined, indicates that Vr4&#39;s sigaction() routine<br/> * is available.<br/> */<br/>-#undef HAS_SIGACTION /**/<br/>+#define HAS_SIGACTION /**/<br/> <br/> /* HAS_SIGSETJMP:<br/> * This variable indicates to the C program that the sigsetjmp()<br/><br/>==== //depot/maint-5.6/macperl/util.c#10 (text) ====<br/>Index: macperl/util.c<br/>--- macperl/util.c#9~17651~ Mon Jul 22 20:24:35 2002<br/>+++ macperl/util.c Wed Nov 27 21:29:12 2002<br/>@@ -2519,6 +2519,11 @@<br/> <br/> #ifdef HAS_SIGACTION<br/> <br/>+#ifdef MACOS_TRADITIONAL<br/>+/* We don&#39;t want restart behavior on MacOS */<br/>+#undef SA_RESTART<br/>+#endif<br/>+<br/> Sighandler_t<br/> Perl_rsignal(pTHX_ int signo, Sighandler_t handler)<br/> {<br/><br/>==== //depot/maint-5.8/macperl/macos/config.h#2 (text) ====<br/>Index: macperl/macos/config.h<br/>--- macperl/macos/config.h#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/config.h Wed Nov 27 21:29:12 2002<br/>@@ -13,6 +13,9 @@<br/> File : config.h - Mac configuration<br/> <br/> $Log: config.h,v $<br/>+Revision 1.12 2002/10/30 07:12:31 neeri<br/>+Yet another approach to signal handling<br/>+<br/> Revision 1.11 2002/01/03 21:53:51 neeri<br/> Disable sigaction (MacPerl Bug #470321)<br/> <br/>@@ -2241,7 +2244,7 @@<br/> * This symbol, if defined, indicates that Vr4&#39;s sigaction() routine<br/> * is available.<br/> */<br/>-#undef HAS_SIGACTION /**/<br/>+#define HAS_SIGACTION /**/<br/> <br/> /* HAS_SIGSETJMP:<br/> * This variable indicates to the C program that the sigsetjmp()<br/><br/>==== //depot/maint-5.8/macperl/util.c#3 (text) ====<br/>Index: macperl/util.c<br/>--- macperl/util.c#2~18199~ Wed Nov 27 21:20:16 2002<br/>+++ macperl/util.c Wed Nov 27 21:29:12 2002<br/>@@ -2346,6 +2346,11 @@<br/> #ifndef PERL_MICRO<br/> #ifdef HAS_SIGACTION<br/> <br/>+#ifdef MACOS_TRADITIONAL<br/>+/* We don&#39;t want restart behavior on MacOS */<br/>+#undef SA_RESTART<br/>+#endif<br/>+<br/> Sighandler_t<br/> Perl_rsignal(pTHX_ int signo, Sighandler_t handler)<br/> {<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg282.html Thu, 28 Nov 2002 13:40:22 +0000 Change 18198: Integrate macperl/ from perl/ by Chris Nandor Change 18198 by pudge@pudge-mobile on 2002/11/28 04:31:03<br/><br/> Integrate macperl/ from perl/<br/><br/>Affected files ...<br/><br/>.... //depot/macperl/AUTHORS#8 integrate<br/>.... //depot/macperl/Changes#15 integrate<br/>.... //depot/macperl/Changes5.005#2 integrate<br/>.... //depot/macperl/Changes5.6#2 integrate<br/>.... //depot/macperl/Configure#13 integrate<br/>.... //depot/macperl/INSTALL#7 integrate<br/>.... //depot/macperl/MANIFEST#15 integrate<br/>.... //depot/macperl/Makefile.SH#8 integrate<br/>.... //depot/macperl/Makefile.micro#4 integrate<br/>.... //depot/macperl/NetWare/Makefile#8 integrate<br/>.... //depot/macperl/NetWare/config.wc#4 integrate<br/>.... //depot/macperl/NetWare/config_H.wc#5 integrate<br/>.... //depot/macperl/NetWare/nw5thread.c#2 integrate<br/>.... //depot/macperl/NetWare/nw5thread.h#2 integrate<br/>.... //depot/macperl/Policy_sh.SH#2 integrate<br/>.... //depot/macperl/Porting/Glossary#7 integrate<br/>.... //depot/macperl/Porting/apply#2 integrate<br/>.... //depot/macperl/Porting/config.sh#11 integrate<br/>.... //depot/macperl/Porting/config_H#11 integrate<br/>.... //depot/macperl/Porting/patching.pod#3 integrate<br/>.... //depot/macperl/Porting/pumpkin.pod#4 integrate<br/>.... //depot/macperl/Porting/repository.pod#4 integrate<br/>.... //depot/macperl/README.aix#7 integrate<br/>.... //depot/macperl/README.amiga#3 integrate<br/>.... //depot/macperl/README.cn#2 integrate<br/>.... //depot/macperl/README.cygwin#8 integrate<br/>.... //depot/macperl/README.dgux#2 integrate<br/>.... //depot/macperl/README.dos#3 integrate<br/>.... //depot/macperl/README.epoc#2 integrate<br/>.... //depot/macperl/README.hpux#5 integrate<br/>.... //depot/macperl/README.irix#4 integrate<br/>.... //depot/macperl/README.jp#4 integrate<br/>.... //depot/macperl/README.mint#2 integrate<br/>.... //depot/macperl/README.netware#5 integrate<br/>.... //depot/macperl/README.os400#1 branch<br/>.... //depot/macperl/README.tru64#5 integrate<br/>.... //depot/macperl/README.vmesa#2 integrate<br/>.... //depot/macperl/README.vos#4 integrate<br/>.... //depot/macperl/README.win32#5 integrate<br/>.... //depot/macperl/XSUB.h#5 integrate<br/>.... //depot/macperl/autodoc.pl#3 integrate<br/>.... //depot/macperl/av.c#3 integrate<br/>.... //depot/macperl/av.h#2 integrate<br/>.... //depot/macperl/bytecode.pl#3 integrate<br/>.... //depot/macperl/cflags.SH#2 integrate<br/>.... //depot/macperl/config_h.SH#6 integrate<br/>.... //depot/macperl/configpm#5 integrate<br/>.... //depot/macperl/configure.com#11 integrate<br/>.... //depot/macperl/cop.h#3 integrate<br/>.... //depot/macperl/cv.h#2 integrate<br/>.... //depot/macperl/cygwin/perlld.in#3 integrate<br/>.... //depot/macperl/deb.c#2 integrate<br/>.... //depot/macperl/doio.c#8 integrate<br/>.... //depot/macperl/doop.c#2 integrate<br/>.... //depot/macperl/dosish.h#2 integrate<br/>.... //depot/macperl/dump.c#5 integrate<br/>.... //depot/macperl/embed.fnc#8 integrate<br/>.... //depot/macperl/embed.h#7 integrate<br/>.... //depot/macperl/embed.pl#4 integrate<br/>.... //depot/macperl/embedvar.h#4 integrate<br/>.... //depot/macperl/epoc/config.sh#5 integrate<br/>.... //depot/macperl/epoc/createpkg.pl#3 integrate<br/>.... //depot/macperl/ext/B/B.pm#2 integrate<br/>.... //depot/macperl/ext/B/B.xs#6 integrate<br/>.... //depot/macperl/ext/B/B/C.pm#3 integrate<br/>.... //depot/macperl/ext/B/B/Concise.pm#3 integrate<br/>.... //depot/macperl/ext/B/B/Deparse.pm#3 integrate<br/>.... //depot/macperl/ext/B/B/Lint.pm#3 integrate<br/>.... //depot/macperl/ext/B/Makefile.PL#2 integrate<br/>.... //depot/macperl/ext/B/ramblings/runtime.porting#2 integrate<br/>.... //depot/macperl/ext/B/t/b.t#2 integrate<br/>.... //depot/macperl/ext/B/t/concise.t#2 integrate<br/>.... //depot/macperl/ext/B/t/deparse.t#3 integrate<br/>.... //depot/macperl/ext/B/t/lint.t#3 integrate<br/>.... //depot/macperl/ext/B/t/stash.t#2 integrate<br/>.... //depot/macperl/ext/DB_File/Changes#2 integrate<br/>.... //depot/macperl/ext/DB_File/DB_File.pm#2 integrate<br/>.... //depot/macperl/ext/DB_File/DB_File.xs#2 integrate<br/>.... //depot/macperl/ext/DB_File/dbinfo#2 integrate<br/>.... //depot/macperl/ext/DB_File/t/db-btree.t#4 integrate<br/>.... //depot/macperl/ext/DB_File/t/db-hash.t#2 integrate<br/>.... //depot/macperl/ext/DB_File/t/db-recno.t#4 integrate<br/>.... //depot/macperl/ext/DB_File/typemap#2 integrate<br/>.... //depot/macperl/ext/Devel/PPPort/PPPort.pm#5 integrate<br/>.... //depot/macperl/ext/Devel/Peek/Peek.t#2 integrate<br/>.... //depot/macperl/ext/DynaLoader/dl_aix.xs#2 integrate<br/>.... //depot/macperl/ext/Encode/AUTHORS#6 integrate<br/>.... //depot/macperl/ext/Encode/Changes#7 integrate<br/>.... //depot/macperl/ext/Encode/Encode.pm#8 integrate<br/>.... //depot/macperl/ext/Encode/Encode.xs#8 integrate<br/>.... //depot/macperl/ext/Encode/MANIFEST#4 integrate<br/>.... //depot/macperl/ext/Encode/Unicode/Unicode.pm#4 integrate<br/>.... //depot/macperl/ext/Encode/bin/enc2xs#5 integrate<br/>.... //depot/macperl/ext/Encode/bin/piconv#4 integrate<br/>.... //depot/macperl/ext/Encode/bin/ucmsort#1 branch<br/>.... //depot/macperl/ext/Encode/encoding.pm#5 integrate<br/>.... //depot/macperl/ext/Encode/lib/Encode/Alias.pm#6 integrate<br/>.... //depot/macperl/ext/Encode/lib/Encode/Encoding.pm#4 integrate<br/>.... //depot/macperl/ext/Encode/lib/Encode/JP/JIS7.pm#3 integrate<br/>.... //depot/macperl/ext/Encode/lib/Encode/MIME/Header.pm#4 integrate<br/>.... //depot/macperl/ext/Encode/lib/Encode/Supported.pod#5 integrate<br/>.... //depot/macperl/ext/Encode/t/CJKT.t#5 integrate<br/>.... //depot/macperl/ext/Encode/t/big5-eten.utf#2 integrate<br/>.... //depot/macperl/ext/Encode/t/jperl.t#3 integrate<br/>.... //depot/macperl/ext/Encode/t/mime-header.t#5 integrate<br/>.... //depot/macperl/ext/Encode/t/rt.pl#1 branch<br/>.... //depot/macperl/ext/Encode/ucm/big5-eten.ucm#2 integrate<br/>.... //depot/macperl/ext/Encode/ucm/cp932.ucm#2 integrate<br/>.... //depot/macperl/ext/Encode/ucm/cp936.ucm#2 integrate<br/>.... //depot/macperl/ext/Encode/ucm/cp949.ucm#2 integrate<br/>.... //depot/macperl/ext/Encode/ucm/cp950.ucm#2 integrate<br/>.... //depot/macperl/ext/Fcntl/t/syslfs.t#2 integrate<br/>.... //depot/macperl/ext/GDBM_File/GDBM_File.xs#2 integrate<br/>.... //depot/macperl/ext/GDBM_File/gdbm.t#2 integrate<br/>.... //depot/macperl/ext/GDBM_File/typemap#2 integrate<br/>.... //depot/macperl/ext/IO/IO.pm#2 integrate<br/>.... //depot/macperl/ext/IO/lib/IO/t/IO.t#1 branch<br/>.... //depot/macperl/ext/IPC/SysV/Semaphore.pm#3 integrate<br/>.... //depot/macperl/ext/List/Util/ChangeLog#2 integrate<br/>.... //depot/macperl/ext/List/Util/README#2 integrate<br/>.... //depot/macperl/ext/List/Util/Util.xs#2 integrate<br/>.... //depot/macperl/ext/List/Util/lib/List/Util.pm#3 integrate<br/>.... //depot/macperl/ext/List/Util/lib/Scalar/Util.pm#2 integrate<br/>.... //depot/macperl/ext/List/Util/t/first.t#2 integrate<br/>.... //depot/macperl/ext/List/Util/t/isvstring.t#1 branch<br/>.... //depot/macperl/ext/List/Util/t/reduce.t#2 integrate<br/>.... //depot/macperl/ext/List/Util/t/refaddr.t#1 branch<br/>.... //depot/macperl/ext/NDBM_File/NDBM_File.xs#2 integrate<br/>.... //depot/macperl/ext/NDBM_File/ndbm.t#2 integrate<br/>.... //depot/macperl/ext/NDBM_File/typemap#2 integrate<br/>.... //depot/macperl/ext/ODBM_File/ODBM_File.xs#2 integrate<br/>.... //depot/macperl/ext/ODBM_File/odbm.t#2 integrate<br/>.... //depot/macperl/ext/ODBM_File/typemap#2 integrate<br/>.... //depot/macperl/ext/Opcode/Opcode.pm#2 integrate<br/>.... //depot/macperl/ext/Opcode/Opcode.t#2 integrate<br/>.... //depot/macperl/ext/Opcode/Safe.pm#2 integrate<br/>.... //depot/macperl/ext/POSIX/POSIX.pm#3 integrate<br/>.... //depot/macperl/ext/POSIX/POSIX.pod#4 integrate<br/>.... //depot/macperl/ext/POSIX/POSIX.xs#4 integrate<br/>.... //depot/macperl/ext/POSIX/t/posix.t#4 integrate<br/>.... //depot/macperl/ext/PerlIO/scalar/scalar.xs#3 integrate<br/>.... //depot/macperl/ext/PerlIO/t/encoding.t#4 integrate<br/>.... //depot/macperl/ext/PerlIO/t/scalar.t#2 integrate<br/>.... //depot/macperl/ext/PerlIO/t/via.t#4 integrate<br/>.... //depot/macperl/ext/PerlIO/via/via.xs#2 integrate<br/>.... //depot/macperl/ext/SDBM_File/SDBM_File.xs#3 integrate<br/>.... //depot/macperl/ext/SDBM_File/sdbm.t#2 integrate<br/>.... //depot/macperl/ext/SDBM_File/typemap#2 integrate<br/>.... //depot/macperl/ext/Safe/safe1.t#2 integrate<br/>.... //depot/macperl/ext/Safe/safe2.t#2 integrate<br/>.... //depot/macperl/ext/Safe/safe3.t#1 branch<br/>.... //depot/macperl/ext/Storable/ChangeLog#8 integrate<br/>.... //depot/macperl/ext/Storable/MANIFEST#6 integrate<br/>.... //depot/macperl/ext/Storable/Makefile.PL#7 integrate<br/>.... //depot/macperl/ext/Storable/README#5 integrate<br/>.... //depot/macperl/ext/Storable/Storable.pm#11 integrate<br/>.... //depot/macperl/ext/Storable/Storable.xs#11 integrate<br/>.... //depot/macperl/ext/Storable/t/blessed.t#5 integrate<br/>.... //depot/macperl/ext/Storable/t/code.t#1 branch<br/>.... //depot/macperl/ext/Storable/t/downgrade.t#8 integrate<br/>.... //depot/macperl/ext/Storable/t/forgive.t#5 integrate<br/>.... //depot/macperl/ext/Storable/t/integer.t#4 integrate<br/>.... //depot/macperl/ext/Storable/t/malice.t#8 integrate<br/>.... //depot/macperl/ext/Storable/t/restrict.t#6 integrate<br/>.... //depot/macperl/ext/Sys/Hostname/Hostname.pm#2 integrate<br/>.... //depot/macperl/ext/Sys/Syslog/syslog.t#2 integrate<br/>.... //depot/macperl/ext/Thread/README.threads#2 integrate<br/>.... //depot/macperl/ext/Thread/Thread.xs#2 integrate<br/>.... //depot/macperl/ext/Thread/thr5005.t#2 delete<br/>.... //depot/macperl/ext/Time/HiRes/Changes#2 integrate<br/>.... //depot/macperl/ext/Time/HiRes/HiRes.pm#4 integrate<br/>.... //depot/macperl/ext/Time/HiRes/HiRes.t#3 integrate<br/>.... //depot/macperl/ext/Time/HiRes/HiRes.xs#5 integrate<br/>.... //depot/macperl/ext/Time/HiRes/Makefile.PL#2 integrate<br/>.... //depot/macperl/ext/Time/HiRes/typemap#1 branch<br/>.... //depot/macperl/ext/threads/shared/shared.pm#7 integrate<br/>.... //depot/macperl/ext/threads/shared/t/disabled.t#1 branch<br/>.... //depot/macperl/ext/threads/shared/t/hv_refs.t#4 integrate<br/>.... //depot/macperl/ext/threads/threads.xs#7 integrate<br/>.... //depot/macperl/global.sym#6 integrate<br/>.... //depot/macperl/gv.c#2 integrate<br/>.... //depot/macperl/handy.h#3 integrate<br/>.... //depot/macperl/hints/README.hints#2 integrate<br/>.... //depot/macperl/hints/aix.sh#5 integrate<br/>.... //depot/macperl/hints/darwin.sh#4 integrate<br/>.... //depot/macperl/hints/dec_osf.sh#5 integrate<br/>.... //depot/macperl/hints/dgux.sh#2 integrate<br/>.... //depot/macperl/hints/hpux.sh#7 integrate<br/>.... //depot/macperl/hints/irix_6.sh#3 integrate<br/>.... //depot/macperl/hints/linux.sh#4 integrate<br/>.... //depot/macperl/hints/netbsd.sh#5 integrate<br/>.... //depot/macperl/hints/os400.sh#1 branch<br/>.... //depot/macperl/hv.c#5 integrate<br/>.... //depot/macperl/installperl#6 integrate<br/>.... //depot/macperl/intrpvar.h#3 integrate<br/>.... //depot/macperl/keywords.h#3 integrate<br/>.... //depot/macperl/keywords.pl#2 integrate<br/>.... //depot/macperl/lib/Attribute/Handlers.pm#3 integrate<br/>.... //depot/macperl/lib/Attribute/Handlers/Changes#3 integrate<br/>.... //depot/macperl/lib/Attribute/Handlers/README#3 integrate<br/>.... //depot/macperl/lib/AutoLoader.pm#2 integrate<br/>.... //depot/macperl/lib/AutoLoader.t#2 integrate<br/>.... //depot/macperl/lib/Benchmark.pm#3 integrate<br/>.... //depot/macperl/lib/Benchmark.t#3 integrate<br/>.... //depot/macperl/lib/Class/Struct.pm#2 integrate<br/>.... //depot/macperl/lib/Class/Struct.t#2 integrate<br/>.... //depot/macperl/lib/Config.t#3 integrate<br/>.... //depot/macperl/lib/Cwd.pm#4 integrate<br/>.... //depot/macperl/lib/Exporter.pm#2 integrate<br/>.... //depot/macperl/lib/Exporter.t#2 integrate<br/>.... //depot/macperl/lib/Exporter/Heavy.pm#2 integrate<br/>.... //depot/macperl/lib/ExtUtils/Constant.pm#2 integrate<br/>.... //depot/macperl/lib/ExtUtils/MM_NW5.pm#9 integrate<br/>.... //depot/macperl/lib/ExtUtils/MM_Unix.pm#10 integrate<br/>.... //depot/macperl/lib/ExtUtils/t/Constant.t#4 integrate<br/>.... //depot/macperl/lib/ExtUtils/t/Installed.t#4 integrate<br/>.... //depot/macperl/lib/ExtUtils/typemap#2 integrate<br/>.... //depot/macperl/lib/ExtUtils/xsubpp#2 integrate<br/>.... //depot/macperl/lib/File/Basename.pm#4 integrate<br/>.... //depot/macperl/lib/File/Find/t/find.t#2 integrate<br/>.... //depot/macperl/lib/File/Spec/Unix.pm#5 integrate<br/>.... //depot/macperl/lib/File/Spec/VMS.pm#2 integrate<br/>.... //depot/macperl/lib/File/Spec/Win32.pm#3 integrate<br/>.... //depot/macperl/lib/File/Spec/t/Spec.t#3 integrate<br/>.... //depot/macperl/lib/File/Temp.pm#3 integrate<br/>.... //depot/macperl/lib/Hash/Util.pm#2 integrate<br/>.... //depot/macperl/lib/Locale/Codes/t/languages.t#2 integrate<br/>.... //depot/macperl/lib/Locale/Country.pm#4 integrate<br/>.... //depot/macperl/lib/Locale/Currency.pm#3 integrate<br/>.... //depot/macperl/lib/Locale/Language.pm#3 integrate<br/>.... //depot/macperl/lib/Locale/Script.pm#3 integrate<br/>.... //depot/macperl/lib/Math/BigFloat.pm#5 integrate<br/>.... //depot/macperl/lib/Math/BigInt.pm#5 integrate<br/>.... //depot/macperl/lib/Math/BigInt/Calc.pm#6 integrate<br/>.... //depot/macperl/lib/Math/BigInt/Scalar.pm#1 branch<br/>.... //depot/macperl/lib/Math/BigInt/t/bare_mbf.t#5 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bare_mbi.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bare_mif.t#2 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bigfltpm.inc#5 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bigfltpm.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bigintc.t#2 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bigintpm.inc#5 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bigintpm.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/bigints.t#1 branch<br/>.... //depot/macperl/lib/Math/BigInt/t/calling.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/constant.t#3 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/mbimbf.inc#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/mbimbf.t#3 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/sub_mbf.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/sub_mbi.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/sub_mif.t#3 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/upgrade.inc#3 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/upgrade.t#2 integrate<br/>.... //depot/macperl/lib/Math/BigInt/t/with_sub.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigRat.pm#4 integrate<br/>.... //depot/macperl/lib/Math/BigRat/t/big_ap.t#1 branch<br/>.... //depot/macperl/lib/Math/BigRat/t/bigrat.t#4 integrate<br/>.... //depot/macperl/lib/Math/BigRat/t/bigratpm.inc#3 integrate<br/>.... //depot/macperl/lib/Net/Ping.pm#6 integrate<br/>.... //depot/macperl/lib/Net/Ping/t/110_icmp_inst.t#3 integrate<br/>.... //depot/macperl/lib/Net/Ping/t/150_syn_inst.t#1 branch<br/>.... //depot/macperl/lib/Net/Ping/t/200_ping_tcp.t#3 integrate<br/>.... //depot/macperl/lib/Net/Ping/t/400_ping_syn.t#1 branch<br/>.... //depot/macperl/lib/Net/Ping/t/450_service.t#1 branch<br/>.... //depot/macperl/lib/Net/hostent.pm#2 integrate<br/>.... //depot/macperl/lib/Net/t/hostname.t#2 integrate<br/>.... //depot/macperl/lib/PerlIO.pm#4 integrate<br/>.... //depot/macperl/lib/Pod/Functions.pm#2 integrate<br/>.... //depot/macperl/lib/Pod/Html.pm#4 integrate<br/>.... //depot/macperl/lib/Pod/Text.pm#4 integrate<br/>.... //depot/macperl/lib/Pod/Text/Overstrike.pm#3 integrate<br/>.... //depot/macperl/lib/Pod/Usage.pm#2 integrate<br/>.... //depot/macperl/lib/Pod/t/basic.t#3 integrate<br/>.... //depot/macperl/lib/Pod/t/htmlview.pod#2 integrate<br/>.... //depot/macperl/lib/Pod/t/htmlview.t#2 integrate<br/>.... //depot/macperl/lib/Pod/t/text-options.t#1 branch<br/>.... //depot/macperl/lib/Shell.pm#2 integrate<br/>.... //depot/macperl/lib/Shell.t#2 integrate<br/>.... //depot/macperl/lib/Term/Cap.pm#2 integrate<br/>.... //depot/macperl/lib/Term/ReadLine.pm#2 integrate<br/>.... //depot/macperl/lib/Test.pm#2 integrate<br/>.... //depot/macperl/lib/Test/Builder.pm#4 integrate<br/>.... //depot/macperl/lib/Test/More.pm#4 integrate<br/>.... //depot/macperl/lib/Test/Simple.pm#4 integrate<br/>.... //depot/macperl/lib/Test/Simple/Changes#4 integrate<br/>.... //depot/macperl/lib/Test/Simple/t/details.t#1 branch<br/>.... //depot/macperl/lib/Test/Simple/t/exit.t#4 integrate<br/>.... //depot/macperl/lib/Test/Simple/t/fork.t#1 branch<br/>.... //depot/macperl/lib/Test/Simple/t/has_plan.t#1 branch<br/>.... //depot/macperl/lib/Test/Simple/t/has_plan2.t#1 branch<br/>.... //depot/macperl/lib/Test/Simple/t/ok_obj.t#1 branch<br/>.... //depot/macperl/lib/Test/Simple/t/plan.t#3 integrate<br/>.... //depot/macperl/lib/Test/Simple/t/threads.t#2 integrate<br/>.... //depot/macperl/lib/Test/Tutorial.pod#2 integrate<br/>.... //depot/macperl/lib/Test/t/fail.t#2 integrate<br/>.... //depot/macperl/lib/Test/t/mix.t#2 integrate<br/>.... //depot/macperl/lib/Test/t/todo.t#2 integrate<br/>.... //depot/macperl/lib/Text/TabsWrap/t/wrap.t#2 integrate<br/>.... //depot/macperl/lib/Text/Wrap.pm#2 integrate<br/>.... //depot/macperl/lib/Tie/Array.pm#2 integrate<br/>.... //depot/macperl/lib/Unicode/Collate.pm#7 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/Changes#6 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/README#6 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/keys.txt#5 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/t/index.t#1 branch<br/>.... //depot/macperl/lib/Unicode/Collate/t/test.t#6 integrate<br/>.... //depot/macperl/lib/bigint.pm#2 integrate<br/>.... //depot/macperl/lib/bignum.pm#2 integrate<br/>.... //depot/macperl/lib/bignum/t/bignum.t#2 integrate<br/>.... //depot/macperl/lib/bignum/t/biinfnan.t#1 branch<br/>.... //depot/macperl/lib/bignum/t/bn_lite.t#1 branch<br/>.... //depot/macperl/lib/bignum/t/bninfnan.t#1 branch<br/>.... //depot/macperl/lib/bignum/t/br_lite.t#1 branch<br/>.... //depot/macperl/lib/bignum/t/brinfnan.t#1 branch<br/>.... //depot/macperl/lib/bignum/t/infnan.inc#1 branch<br/>.... //depot/macperl/lib/bigrat.pm#2 integrate<br/>.... //depot/macperl/lib/charnames.pm#5 integrate<br/>.... //depot/macperl/lib/charnames.t#5 integrate<br/>.... //depot/macperl/lib/constant.t#3 integrate<br/>.... //depot/macperl/lib/fields.pm#2 integrate<br/>.... //depot/macperl/lib/fields.t#3 integrate<br/>.... //depot/macperl/lib/filetest.pm#2 integrate<br/>.... //depot/macperl/lib/if.pm#2 integrate<br/>.... //depot/macperl/lib/if.t#2 integrate<br/>.... //depot/macperl/lib/lib.t#3 integrate<br/>.... //depot/macperl/lib/lib_pm.PL#6 integrate<br/>.... //depot/macperl/lib/open.pm#5 integrate<br/>.... //depot/macperl/lib/open.t#5 integrate<br/>.... //depot/macperl/lib/overload.pm#4 integrate<br/>.... //depot/macperl/lib/overload.t#3 integrate<br/>.... //depot/macperl/lib/sort.pm#3 integrate<br/>.... //depot/macperl/lib/sort.t#3 integrate<br/>.... //depot/macperl/lib/strict.pm#2 integrate<br/>.... //depot/macperl/lib/strict.t#3 integrate<br/>.... //depot/macperl/lib/utf8.t#4 integrate<br/>.... //depot/macperl/lib/utf8_heavy.pl#4 integrate<br/>.... //depot/macperl/lib/version.pm#1 branch<br/>.... //depot/macperl/lib/version.t#1 branch<br/>.... //depot/macperl/lib/warnings.pm#5 integrate<br/>.... //depot/macperl/lib/warnings.t#4 integrate<br/>.... //depot/macperl/locale.c#4 integrate<br/>.... //depot/macperl/makedef.pl#13 integrate<br/>.... //depot/macperl/malloc.c#3 integrate<br/>.... //depot/macperl/mg.c#5 integrate<br/>.... //depot/macperl/mg.h#2 integrate<br/>.... //depot/macperl/miniperlmain.c#2 integrate<br/>.... //depot/macperl/myconfig.SH#4 integrate<br/>.... //depot/macperl/numeric.c#5 integrate<br/>.... //depot/macperl/op.c#8 integrate<br/>.... //depot/macperl/op.h#4 integrate<br/>.... //depot/macperl/opcode.h#3 integrate<br/>.... //depot/macperl/opcode.pl#2 integrate<br/>.... //depot/macperl/opnames.h#3 integrate<br/>.... //depot/macperl/os2/os2.c#3 integrate<br/>.... //depot/macperl/os2/os2ish.h#4 integrate<br/>.... //depot/macperl/pad.c#1 branch<br/>.... //depot/macperl/pad.h#1 branch<br/>.... //depot/macperl/patchlevel.h#15 integrate<br/>.... //depot/macperl/perl.c#9 integrate<br/>.... //depot/macperl/perl.h#8 integrate<br/>.... //depot/macperl/perlapi.c#3 integrate<br/>.... //depot/macperl/perlapi.h#4 integrate<br/>.... //depot/macperl/perlio.c#11 integrate<br/>.... //depot/macperl/perlvars.h#2 integrate<br/>.... //depot/macperl/perly.c#2 integrate<br/>.... //depot/macperl/perly.h#2 integrate<br/>.... //depot/macperl/perly.y#2 integrate<br/>.... //depot/macperl/perly_c.diff#2 integrate<br/>.... //depot/macperl/pod/buildtoc.PL#4 integrate<br/>.... //depot/macperl/pod/perl.pod#4 integrate<br/>.... //depot/macperl/pod/perl570delta.pod#3 integrate<br/>.... //depot/macperl/pod/perl572delta.pod#3 integrate<br/>.... //depot/macperl/pod/perl573delta.pod#1 branch<br/>.... //depot/macperl/pod/perl58delta.pod#2 integrate<br/>.... //depot/macperl/pod/perlapi.pod#5 integrate<br/>.... //depot/macperl/pod/perldelta.pod#17 integrate<br/>.... //depot/macperl/pod/perldiag.pod#7 integrate<br/>.... //depot/macperl/pod/perlebcdic.pod#3 integrate<br/>.... //depot/macperl/pod/perlembed.pod#2 integrate<br/>.... //depot/macperl/pod/perlfaq.pod#2 integrate<br/>.... //depot/macperl/pod/perlfaq1.pod#2 integrate<br/>.... //depot/macperl/pod/perlfaq2.pod#4 integrate<br/>.... //depot/macperl/pod/perlfaq3.pod#5 integrate<br/>.... //depot/macperl/pod/perlfaq4.pod#6 integrate<br/>.... //depot/macperl/pod/perlfaq5.pod#5 integrate<br/>.... //depot/macperl/pod/perlfaq6.pod#4 integrate<br/>.... //depot/macperl/pod/perlfaq7.pod#2 integrate<br/>.... //depot/macperl/pod/perlfaq8.pod#3 integrate<br/>.... //depot/macperl/pod/perlfaq9.pod#2 integrate<br/>.... //depot/macperl/pod/perlfunc.pod#12 integrate<br/>.... //depot/macperl/pod/perlguts.pod#3 integrate<br/>.... //depot/macperl/pod/perlhack.pod#8 integrate<br/>.... //depot/macperl/pod/perlintern.pod#3 integrate<br/>.... //depot/macperl/pod/perlipc.pod#7 integrate<br/>.... //depot/macperl/pod/perlmod.pod#3 integrate<br/>.... //depot/macperl/pod/perlmodlib.PL#4 integrate<br/>.... //depot/macperl/pod/perlmodlib.pod#7 integrate<br/>.... //depot/macperl/pod/perlop.pod#2 integrate<br/>.... //depot/macperl/pod/perlopentut.pod#3 integrate<br/>.... //depot/macperl/pod/perlpacktut.pod#2 integrate<br/>.... //depot/macperl/pod/perlport.pod#9 integrate<br/>.... //depot/macperl/pod/perlre.pod#4 integrate<br/>.... //depot/macperl/pod/perlref.pod#2 integrate<br/>.... //depot/macperl/pod/perlrun.pod#5 integrate<br/>.... //depot/macperl/pod/perlsec.pod#2 integrate<br/>.... //depot/macperl/pod/perlthrtut.pod#10 integrate<br/>.... //depot/macperl/pod/perltie.pod#2 integrate<br/>.... //depot/macperl/pod/perltoc.pod#12 integrate<br/>.... //depot/macperl/pod/perltodo.pod#6 integrate<br/>.... //depot/macperl/pod/perltooc.pod#2 integrate<br/>.... //depot/macperl/pod/perlunicode.pod#8 integrate<br/>.... //depot/macperl/pod/perluniintro.pod#9 integrate<br/>.... //depot/macperl/pod/perlvar.pod#8 integrate<br/>.... //depot/macperl/pod/perlxs.pod#3 integrate<br/>.... //depot/macperl/pod/perlxstut.pod#4 integrate<br/>.... //depot/macperl/pod/pod2text.PL#3 integrate<br/>.... //depot/macperl/pp.c#6 integrate<br/>.... //depot/macperl/pp.h#2 integrate<br/>.... //depot/macperl/pp.sym#3 integrate<br/>.... //depot/macperl/pp_ctl.c#6 integrate<br/>.... //depot/macperl/pp_hot.c#5 integrate<br/>.... //depot/macperl/pp_pack.c#4 integrate<br/>.... //depot/macperl/pp_proto.h#3 integrate<br/>.... //depot/macperl/pp_sort.c#5 integrate<br/>.... //depot/macperl/pp_sys.c#12 integrate<br/>.... //depot/macperl/proto.h#7 integrate<br/>.... //depot/macperl/reentr.c#2 integrate<br/>.... //depot/macperl/reentr.pl#4 integrate<br/>.... //depot/macperl/regcomp.c#7 integrate<br/>.... //depot/macperl/regcomp.pl#2 integrate<br/>.... //depot/macperl/regen.pl#1 branch<br/>.... //depot/macperl/regen_headers.pl#1 branch<br/>.... //depot/macperl/regexec.c#4 integrate<br/>.... //depot/macperl/scope.c#5 integrate<br/>.... //depot/macperl/scope.h#2 integrate<br/>.... //depot/macperl/sv.c#13 integrate<br/>.... //depot/macperl/sv.h#3 integrate<br/>.... //depot/macperl/t/TestInit.pm#3 integrate<br/>.... //depot/macperl/t/base/num.t#3 integrate<br/>.... //depot/macperl/t/comp/hints.t#2 integrate<br/>.... //depot/macperl/t/comp/our.t#1 branch<br/>.... //depot/macperl/t/comp/parser.t#1 branch<br/>.... //depot/macperl/t/comp/use.t#3 integrate<br/>.... //depot/macperl/t/io/binmode.t#3 integrate<br/>.... //depot/macperl/t/io/crlf.t#4 integrate<br/>.... //depot/macperl/t/io/open.t#3 integrate<br/>.... //depot/macperl/t/io/print.t#2 integrate<br/>.... //depot/macperl/t/io/read.t#2 integrate<br/>.... //depot/macperl/t/lib/Math/BigFloat/Subclass.pm#2 integrate<br/>.... //depot/macperl/t/lib/Test/Simple/sample_tests/pre_plan_death.plx#1 branch<br/>.... //depot/macperl/t/lib/TieOut.pm#2 integrate<br/>.... //depot/macperl/t/lib/h2ph.pht#2 integrate<br/>.... //depot/macperl/t/lib/strict/subs#3 integrate<br/>.... //depot/macperl/t/lib/warnings/doio#3 integrate<br/>.... //depot/macperl/t/lib/warnings/op#5 integrate<br/>.... //depot/macperl/t/lib/warnings/pp_hot#4 integrate<br/>.... //depot/macperl/t/lib/warnings/pp_sys#2 integrate<br/>.... //depot/macperl/t/lib/warnings/toke#3 integrate<br/>.... //depot/macperl/t/lib/warnings/universal#2 integrate<br/>.... //depot/macperl/t/op/anonsub.t#2 integrate<br/>.... //depot/macperl/t/op/assignwarn.t#2 integrate<br/>.... //depot/macperl/t/op/attrs.t#2 integrate<br/>.... //depot/macperl/t/op/avhv.t#2 integrate<br/>.... //depot/macperl/t/op/chop.t#2 integrate<br/>.... //depot/macperl/t/op/closure.t#2 integrate<br/>.... //depot/macperl/t/op/dor.t#1 branch<br/>.... //depot/macperl/t/op/getpid.t#1 branch<br/>.... //depot/macperl/t/op/grep.t#2 integrate<br/>.... //depot/macperl/t/op/gv.t#2 integrate<br/>.... //depot/macperl/t/op/hashwarn.t#2 integrate<br/>.... //depot/macperl/t/op/lfs.t#2 integrate<br/>.... //depot/macperl/t/op/magic.t#4 integrate<br/>.... //depot/macperl/t/op/method.t#2 integrate<br/>.... //depot/macperl/t/op/mkdir.t#2 integrate<br/>.... //depot/macperl/t/op/override.t#2 integrate<br/>.... //depot/macperl/t/op/pack.t#3 integrate<br/>.... //depot/macperl/t/op/pat.t#4 integrate<br/>.... //depot/macperl/t/op/range.t#2 integrate<br/>.... //depot/macperl/t/op/re_tests#3 integrate<br/>.... //depot/macperl/t/op/recurse.t#3 integrate<br/>.... //depot/macperl/t/op/ref.t#2 integrate<br/>.... //depot/macperl/t/op/split.t#2 integrate<br/>.... //depot/macperl/t/op/sprintf.t#3 integrate<br/>.... //depot/macperl/t/op/stash.t#1 branch<br/>.... //depot/macperl/t/op/sub_lval.t#2 integrate<br/>.... //depot/macperl/t/op/taint.t#5 integrate<br/>.... //depot/macperl/t/op/tie.t#8 integrate<br/>.... //depot/macperl/t/op/tiearray.t#2 integrate<br/>.... //depot/macperl/t/op/tiehandle.t#2 integrate<br/>.... //depot/macperl/t/op/tr.t#2 integrate<br/>.... //depot/macperl/t/op/ver.t#3 integrate<br/>.... //depot/macperl/t/run/fresh_perl.t#7 integrate<br/>.... //depot/macperl/t/run/runenv.t#2 integrate<br/>.... //depot/macperl/t/run/switchI.t#1 branch<br/>.... //depot/macperl/t/run/switches.t#2 integrate<br/>.... //depot/macperl/t/test.pl#5 integrate<br/>.... //depot/macperl/t/uni/tr_7jis.t#1 branch<br/>.... //depot/macperl/t/uni/tr_eucjp.t#1 branch<br/>.... //depot/macperl/t/uni/tr_sjis.t#1 branch<br/>.... //depot/macperl/t/uni/tr_utf8.t#1 branch<br/>.... //depot/macperl/thrdvar.h#3 integrate<br/>.... //depot/macperl/thread.h#2 integrate<br/>.... //depot/macperl/toke.c#8 integrate<br/>.... //depot/macperl/uconfig.h#7 integrate<br/>.... //depot/macperl/uconfig.sh#5 integrate<br/>.... //depot/macperl/universal.c#2 integrate<br/>.... //depot/macperl/utf8.c#5 integrate<br/>.... //depot/macperl/util.c#11 integrate<br/>.... //depot/macperl/utils/c2ph.PL#3 integrate<br/>.... //depot/macperl/utils/dprofpp.PL#3 integrate<br/>.... //depot/macperl/utils/h2ph.PL#3 integrate<br/>.... //depot/macperl/utils/perldoc.PL#4 integrate<br/>.... //depot/macperl/vms/descrip_mms.template#4 integrate<br/>.... //depot/macperl/vms/ext/filespec.t#2 integrate<br/>.... //depot/macperl/vms/perly_c.vms#2 integrate<br/>.... //depot/macperl/vms/perly_h.vms#2 integrate<br/>.... //depot/macperl/vms/vms.c#8 integrate<br/>.... //depot/macperl/vos/Changes#3 integrate<br/>.... //depot/macperl/vos/Makefile#2 delete<br/>.... //depot/macperl/vos/build.cm#3 delete<br/>.... //depot/macperl/vos/compile_perl.cm#3 delete<br/>.... //depot/macperl/vos/config.alpha.def#3 delete<br/>.... //depot/macperl/vos/config.alpha.h#5 delete<br/>.... //depot/macperl/vos/config.ga.def#3 delete<br/>.... //depot/macperl/vos/config.ga.h#5 delete<br/>.... //depot/macperl/vos/config.pl#2 delete<br/>.... //depot/macperl/vos/configure_perl.cm#2 delete<br/>.... //depot/macperl/vos/install_perl.cm#2 delete<br/>.... //depot/macperl/vos/perl.bind#3 delete<br/>.... //depot/macperl/vos/test_vos_dummies.c#2 delete<br/>.... //depot/macperl/vos/vos_dummies.c#2 delete<br/>.... //depot/macperl/warnings.pl#4 integrate<br/>.... //depot/macperl/win32/Makefile#8 integrate<br/>.... //depot/macperl/win32/config.bc#5 integrate<br/>.... //depot/macperl/win32/config.gc#4 integrate<br/>.... //depot/macperl/win32/config.vc#4 integrate<br/>.... //depot/macperl/win32/config.vc64#4 integrate<br/>.... //depot/macperl/win32/config_H.bc#7 integrate<br/>.... //depot/macperl/win32/config_H.gc#7 integrate<br/>.... //depot/macperl/win32/config_H.vc#6 integrate<br/>.... //depot/macperl/win32/config_H.vc64#6 integrate<br/>.... //depot/macperl/win32/config_sh.PL#2 integrate<br/>.... //depot/macperl/win32/makefile.mk#8 integrate<br/>.... //depot/macperl/win32/perllib.c#2 integrate<br/>.... //depot/macperl/win32/win32.c#6 integrate<br/>.... //depot/macperl/win32/win32.h#4 integrate<br/>.... //depot/macperl/win32/win32sck.c#2 integrate<br/>.... //depot/macperl/win32/win32thread.c#2 integrate<br/>.... //depot/macperl/win32/win32thread.h#2 integrate<br/>.... //depot/macperl/wince/Makefile.ce#7 integrate<br/>.... //depot/macperl/wince/compile.bat#2 integrate<br/>.... //depot/macperl/wince/config.ce#4 integrate<br/>.... //depot/macperl/wince/config_H.ce#6 integrate<br/>.... //depot/macperl/wince/config_sh.PL#2 integrate<br/>.... //depot/macperl/wince/win32.h#3 integrate<br/>.... //depot/macperl/wince/win32io.c#2 integrate<br/>.... //depot/macperl/wince/win32thread.c#2 integrate<br/>.... //depot/macperl/wince/win32thread.h#2 integrate<br/>.... //depot/macperl/wince/wince.c#5 integrate<br/>.... //depot/macperl/wince/wincesck.c#2 integrate<br/>.... //depot/macperl/x2p/find2perl.PL#3 integrate<br/>.... //depot/macperl/x2p/s2p.PL#4 integrate<br/>.... //depot/macperl/x2p/str.c#2 integrate<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg281.html Thu, 28 Nov 2002 13:40:16 +0000 Change 18196: Make installme more robust by Chris Nandor Change 18196 by pudge@pudge-mobile on 2002/11/28 03:39:14<br/><br/> Make installme more robust<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/macperl/Droplets/installme.plx#3 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/Droplets/installme.plx#3 (text) ====<br/>Index: macperl/macos/macperl/Droplets/installme.plx<br/>--- macperl/macos/macperl/Droplets/installme.plx#2~16470~ Tue May 7 20:49:32 2002<br/>+++ macperl/macos/macperl/Droplets/installme.plx Wed Nov 27 19:39:14 2002<br/>@@ -26,34 +26,48 @@<br/> my $archive = my $dir = $ARGV[0];<br/> <br/> if ($archive =~ /$re/) {<br/>- my $switch = MacPerl::Answer(<br/>- &#39;Convert all text and MacBinary files?&#39;, &#39;Yes&#39;, &#39;No&#39;);<br/>- my $conv = Mac::Conversions-&gt;new(Remove=&gt;1);<br/>-<br/>- my $tar = Archive::Tar-&gt;new($archive, 1) or die $!;<br/>- chdir(dirname($archive)) or die &quot;Can&#39;t chdir: $!&quot;;<br/>-<br/>- my @files = $tar-&gt;list_files;<br/>-<br/>- foreach my $file (@files) {<br/>- $file .= &quot;/&quot; unless $file =~ /\//;<br/>- my $dir = &#39;:&#39; . dirname(Archive::Tar::_munge_file($file));<br/>- die &quot;$dir already exists, will not overwrite\n&quot;<br/>- if -e $dir;<br/>- }<br/>-<br/>- print &quot;Unpacking archive ...\n&quot;;<br/>- $tar-&gt;extract(@files);<br/>-<br/>- print &quot;Converting files ...\n&quot;;<br/>- Mac::BuildTools::convert_files(\@files, $verbose) if $switch;<br/>-<br/>- $dir =~ s/$re//;<br/>+ my $switch = MacPerl::Answer(<br/>+ &#39;Convert all text and MacBinary files?&#39;, &#39;Yes&#39;, &#39;No&#39;);<br/>+ my $conv = Mac::Conversions-&gt;new(Remove=&gt;1);<br/>+<br/>+ my $tar = Archive::Tar-&gt;new($archive, 1) or die $!;<br/>+ chdir(dirname($archive)) or die &quot;Can&#39;t chdir: $!&quot;;<br/>+<br/>+ my @files = $tar-&gt;list_files;<br/>+<br/>+ foreach my $file (@files) {<br/>+ $file .= &quot;/&quot; unless $file =~ /\//;<br/>+ my $dir = &#39;:&#39; . dirname(Archive::Tar::_munge_file($file));<br/>+ die &quot;$dir already exists, will not overwrite&quot;<br/>+ if -e $dir;<br/>+ }<br/>+<br/>+ print &quot;Unpacking archive ...\n&quot;;<br/>+ $tar-&gt;extract(@files);<br/>+<br/>+ print &quot;Converting files ...\n&quot;;<br/>+ Mac::BuildTools::convert_files(\@files, $verbose) if $switch;<br/>+<br/>+ $dir =~ s/$re//;<br/>+<br/>+ if (-d $dir) {<br/>+ chdir $dir or die &quot;Can&#39;t chdir $dir: $!&quot;;<br/>+ Mac::BuildTools::make({});<br/>+ Mac::BuildTools::make_install({});<br/>+ } else {<br/>+ print &lt;&lt;EOT;<br/>+Problems accessing archive &#39;$archive&#39;:<br/>+ archive directory &#39;$dir&#39; does not exist<br/>+EOT<br/>+ exit(1);<br/>+ }<br/>+} else {<br/>+ print &lt;&lt;EOT;<br/>+Cannot recognize archive format (should match &#39;/$re/&#39;)<br/>+Please verify the archive, and perhaps try to rename it.<br/>+EOT<br/> }<br/> <br/>-chdir $dir or die &quot;Can&#39;t chdir $dir: $!\n&quot;;<br/>-Mac::BuildTools::make({});<br/>-Mac::BuildTools::make_install({});<br/> <br/> print &quot;Done.\n&quot;;<br/> <br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg280.html Thu, 28 Nov 2002 13:36:33 +0000 Change 18195: Work around weird startup Apple events (Matthias, MacPerl Bug #543491) by Chris Nandor Change 18195 by pudge@pudge-mobile on 2002/11/28 03:38:25<br/><br/> Work around weird startup Apple events (Matthias, MacPerl Bug #543491)<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/macperl/MPAppleEvents.c#6 edit<br/>.... //depot/maint-5.6/macperl/macos/macperl/MPAppleEvents.h#2 edit<br/>.... //depot/maint-5.6/macperl/macos/macperl/MPMain.c#6 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/MPAppleEvents.c#6 (text) ====<br/>Index: macperl/macos/macperl/MPAppleEvents.c<br/>--- macperl/macos/macperl/MPAppleEvents.c#5~14932~ Fri Mar 1 09:32:02 2002<br/>+++ macperl/macos/macperl/MPAppleEvents.c Wed Nov 27 19:38:25 2002<br/>@@ -9,6 +9,9 @@<br/> Language : MPW C<br/> <br/> $Log: MPAppleEvents.c,v $<br/>+Revision 1.7 2002/10/30 06:53:15 neeri<br/>+Work around weird startup AppleEvents (MacPerl Bug #543491)<br/>+<br/> Revision 1.6 2002/03/01 04:24:59 pudge<br/> Various bugfixes from Thomas Wegner<br/> <br/>@@ -412,24 +415,6 @@<br/> DoQuit(saveOpt);<br/> <br/> return myErr;<br/>-}<br/>-<br/>-/**-----------------------------------------------------------------------<br/>- Name: DoAppleEvent<br/>- Purpose: Process and despatch the AppleEvent<br/>- -----------------------------------------------------------------------**/<br/>-<br/>-#if !defined(powerc) &amp;&amp; !defined(__powerc)<br/>-#pragma segment Main<br/>-#endif<br/>-<br/>-pascal void DoAppleEvent(EventRecord theEvent)<br/>-{<br/>- OSErr err;<br/>-<br/>- /*should check for your own event message types here - if you have any*/<br/>-<br/>- err = AEProcessAppleEvent(&amp;theEvent);<br/> }<br/> <br/> /**-----------------------------------------------------------------------<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/MPAppleEvents.h#2 (text) ====<br/>Index: macperl/macos/macperl/MPAppleEvents.h<br/>--- macperl/macos/macperl/MPAppleEvents.h#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/macperl/MPAppleEvents.h Wed Nov 27 19:38:25 2002<br/>@@ -9,6 +9,9 @@<br/> Language : MPW C<br/> <br/> $Log: MPAppleEvents.h,v $<br/>+Revision 1.2 2002/10/30 06:53:15 neeri<br/>+Work around weird startup AppleEvents (MacPerl Bug #543491)<br/>+<br/> Revision 1.1 2000/11/30 08:37:28 neeri<br/> Sources &amp; Resources<br/> <br/>@@ -62,7 +65,6 @@<br/> <br/> pascal Boolean AllSelected(TEHandle te);<br/> pascal void InitAppleEvents(void);<br/>-pascal void DoAppleEvent(EventRecord theEvent);<br/> pascal OSErr MakeSelfAddress(AEAddressDesc *selfAddress);<br/> pascal OSErr MakeSelfPSN(ProcessSerialNumber *selfPSN);<br/> <br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/MPMain.c#6 (text) ====<br/>Index: macperl/macos/macperl/MPMain.c<br/>--- macperl/macos/macperl/MPMain.c#5~14126~ Mon Jan 7 14:23:06 2002<br/>+++ macperl/macos/macperl/MPMain.c Wed Nov 27 19:38:25 2002<br/>@@ -9,6 +9,9 @@<br/> Language : MPW C<br/> <br/> $Log: MPMain.c,v $<br/>+Revision 1.8 2002/10/30 06:53:15 neeri<br/>+Work around weird startup AppleEvents (MacPerl Bug #543491)<br/>+<br/> Revision 1.7 2002/01/07 08:09:36 neeri<br/> Eliminate nested calls to exit() (MacPerl bug #469132)<br/> <br/>@@ -1058,6 +1061,41 @@<br/> static short deferredWr = 0;<br/> static WindowPtr deferredWindow = 0;<br/> static RgnHandle mouseRgn;<br/>+static EventRecord sDeferredEvent;<br/>+static Boolean sHasDeferredEvent;<br/>+<br/>+#if !defined(powerc) &amp;&amp; !defined(__powerc)<br/>+#pragma segment Main<br/>+#endif<br/>+<br/>+pascal void DoAppleEvent(EventRecord * ev)<br/>+{<br/>+ static Boolean sFirstHighLevelEvent = true;<br/>+ <br/>+ if (sFirstHighLevelEvent) {<br/>+ /* If some weirdo starts a runtime with a weird AppleEvent, we simulate an oapp */<br/>+ sFirstHighLevelEvent = false;<br/>+ if (gRuntimeScript) {<br/>+ if ((OSType)ev-&gt;message != kCoreEventClass <br/>+ || (*(OSType *)&amp;ev-&gt;where != kAEOpenApplication &amp;&amp; *(OSType *)&amp;ev-&gt;where != kAEOpenDocuments)<br/>+ ) {<br/>+ AEDesc desc;<br/>+<br/>+ /* Send this event around the event loop again */<br/>+ sDeferredEvent = *ev;<br/>+ sHasDeferredEvent = true;<br/>+ <br/>+ /* Call DoScript */<br/>+ AECreateDesc(typeNull, nil , 0, &amp;desc);<br/>+ DoScript(&amp;desc, &amp;desc, 0);<br/>+ <br/>+ return;<br/>+ }<br/>+ }<br/>+ }<br/>+ <br/>+ AEProcessAppleEvent(ev);<br/>+}<br/> <br/> #if !defined(powerc) &amp;&amp; !defined(__powerc)<br/> #pragma segment MPMain<br/>@@ -1067,7 +1105,7 @@<br/> {<br/> char theChar;<br/> Boolean activate;<br/>- Point mouse;<br/>+ Point mouse;<br/> WindowPtr theWindow;<br/> DPtr theDoc;<br/> <br/>@@ -1137,7 +1175,7 @@<br/> <br/> case kHighLevelEvent:<br/> FlushAndRecordTypingBuffer();<br/>- DoAppleEvent(*myEvent);<br/>+ DoAppleEvent(myEvent);<br/> <br/> if (gDelayedScript.dataHandle) {<br/> AppleEvent awakenedScript = gDelayedScript;<br/>@@ -1168,9 +1206,6 @@<br/> }<br/> }<br/> }<br/>-<br/>-static EventRecord sDeferredEvent;<br/>-static Boolean sHasDeferredEvent;<br/> <br/> void MainEvent(Boolean busy, long sleep, RgnHandle rgn)<br/> {<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg279.html Thu, 28 Nov 2002 13:36:30 +0000 Change 18194: Implement InitCursorCtl wrappers (Matthias, MacPerl Bug #526707) by Chris Nandor Change 18194 by pudge@pudge-mobile on 2002/11/28 03:35:41<br/><br/> Implement InitCursorCtl wrappers (Matthias, MacPerl Bug #526707)<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/SubLaunch.c#3 edit<br/>.... //depot/maint-5.6/macperl/macos/macish.c#12 edit<br/>.... //depot/maint-5.6/macperl/macos/macish.h#11 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/SubLaunch.c#3 (text) ====<br/>Index: macperl/macos/SubLaunch.c<br/>--- macperl/macos/SubLaunch.c#2~14070~ Fri Jan 4 12:32:57 2002<br/>+++ macperl/macos/SubLaunch.c Wed Nov 27 19:35:41 2002<br/>@@ -9,6 +9,9 @@<br/> as specified in the README file.<br/> <br/> $Log: SubLaunch.c,v $<br/>+Revision 1.3 2002/10/28 08:29:40 neeri<br/>+Implement InitCursorCtl wrappers [MacPerl Bug #526707]<br/>+<br/> Revision 1.2 2002/01/04 03:40:35 pudge<br/> Modifications for universal headers 3.4<br/> <br/>@@ -328,7 +331,6 @@<br/> AppleEvent cmd;<br/> AppleEvent reply;<br/> AEAddressDesc addr;<br/>- acurHandle acur;<br/> Handle text;<br/> const char * segment;<br/> FSSpec vol;<br/>@@ -387,9 +389,8 @@<br/> DisposeHandle(text);<br/> <br/> /* Send it */<br/>- acur = (acurHandle) GetResource(&#39;acur&#39;, 128);<br/>- DetachResource((Handle) acur);<br/>- InitCursorCtl(acur);<br/>+ <br/>+ MacPerl_InitCursorCtl(128);<br/> err = <br/> AESend(<br/> &amp;cmd, &amp;reply, kAEWaitReply+kAENeverInteract, <br/>@@ -402,10 +403,8 @@<br/> AEDisposeDesc(&amp;cmd);<br/> AEDisposeDesc(&amp;addr);<br/> AEDisposeDesc(&amp;reply);<br/>- <br/>- DisposeHandle((Handle) acur);<br/>- <br/>- InitCursorCtl(NULL);<br/>+<br/>+ MacPerl_InitCursorCtl(0);<br/> <br/> return err;<br/> }<br/><br/>==== //depot/maint-5.6/macperl/macos/macish.c#12 (text) ====<br/>Index: macperl/macos/macish.c<br/>--- macperl/macos/macish.c#11~16473~ Tue May 7 20:52:28 2002<br/>+++ macperl/macos/macish.c Wed Nov 27 19:35:41 2002<br/>@@ -14,6 +14,7 @@<br/> <br/> #include &lt;Resources.h&gt;<br/> #include &lt;Folders.h&gt;<br/>+#include &lt;CursorCtl.h&gt;<br/> #include &lt;GUSIFileSpec.h&gt;<br/> #undef modff<br/> #include &lt;fp.h&gt;<br/>@@ -914,6 +915,21 @@<br/> sAsyncExit.fProc = AsyncExit;<br/> <br/> MacPerl_QueueAsyncTask(&amp;sSpinControl.fTask);<br/>+ MacPerl_InitCursorCtl(0);<br/>+}<br/>+<br/>+void MacPerl_InitCursorCtl(short acur)<br/>+{<br/>+ static Handle sCurrentCursors = NULL;<br/>+ <br/>+ Handle cursors = GetResource(&#39;acur&#39;, acur);<br/>+ <br/>+ if (cursors) {<br/>+ DetachResource(cursors);<br/>+ if (sCurrentCursors)<br/>+ DisposeHandle(sCurrentCursors);<br/>+ InitCursorCtl((acurHandle)(sCurrentCursors = cursors));<br/>+ }<br/> }<br/> <br/> void<br/><br/>==== //depot/maint-5.6/macperl/macos/macish.h#11 (text) ====<br/>Index: macperl/macos/macish.h<br/>--- macperl/macos/macish.h#10~16473~ Tue May 7 20:52:28 2002<br/>+++ macperl/macos/macish.h Wed Nov 27 19:35:41 2002<br/>@@ -77,6 +77,7 @@<br/> const char * MacPerl_CanonDir(const char * dir, char * buf, Boolean is_file);<br/> void MacPerl_WriteMsg(void * io, const char * msg, size_t len);<br/> void MacPerl_Exit(int status);<br/>+void MacPerl_InitCursorCtl(short acur);<br/> <br/> #undef PerlProc_exit<br/> #define PerlProc_exit(s) my_exit((s))<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/11/msg278.html Thu, 28 Nov 2002 13:36:28 +0000 Change 17858: Save script context in compiled script by Chris Nandor Change 17858 by pudge@pudge-mobile on 2002/09/08 04:47:02<br/><br/> Save script context in compiled script<br/> From Bart Lateur<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/lib/Mac/OSA/Simple.pm#4 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/lib/Mac/OSA/Simple.pm#4 (text) ====<br/>Index: macperl/macos/lib/Mac/OSA/Simple.pm<br/>--- macperl/macos/lib/Mac/OSA/Simple.pm#3~16469~ Tue May 7 20:48:53 2002<br/>+++ macperl/macos/lib/Mac/OSA/Simple.pm Sat Sep 7 21:47:02 2002<br/>@@ -17,7 +17,7 @@<br/> load_osa_script %ScriptComponents);<br/> @EXPORT_OK = @Mac::OSA::EXPORT;<br/> %EXPORT_TAGS = (all =&gt; [@EXPORT, @EXPORT_OK]);<br/>-$REVISION = &#39;$Id: Simple.pm,v 1.3 2002/05/08 03:59:30 pudge Exp $&#39;;<br/>+$REVISION = &#39;$Id: Simple.pm,v 1.5 2002/09/05 23:41:51 pudge Exp $&#39;;<br/> $VERSION = &#39;1.00&#39;;<br/> <br/> tie %ScriptComponents, &#39;Mac::OSA::Simple::Components&#39;;<br/>@@ -175,7 +175,7 @@<br/> my($text, $comp, $script, $id);<br/> $self-&gt;{SCRIPT} = AECreateDesc(&#39;TEXT&#39;, $self-&gt;{SOURCE}) or<br/> _mydie() &amp;&amp; return;<br/>- $self-&gt;{ID} = OSACompile($self-&gt;{COMP}, $self-&gt;{SCRIPT}, 0) or<br/>+ $self-&gt;{ID} = OSACompile($self-&gt;{COMP}, $self-&gt;{SCRIPT}, kOSAModeCompileIntoContext) or<br/> _mydie() &amp;&amp; return;<br/> $self;<br/> }<br/>@@ -259,11 +259,6 @@<br/> <br/> =head1 DESCRIPTION<br/> <br/>- **MAJOR CHANGE**<br/>- Scripting component in osa_script and compile_osa_script<br/>- is now the first parameter, not the second.<br/>- Now the script text is second.<br/>-<br/> You can access scripting components via the tied hash<br/> C&lt;%ScriptComponents&gt; which is automatically exported. Components are<br/> only opened if they have not been already, and are closed when the<br/>@@ -379,6 +374,33 @@<br/> =back<br/> <br/> <br/>+=head2 Script Context<br/>+<br/>+Scripts compiled by this module now compile scripts as<br/>+I&lt;script contexts&gt;, which, in part, means they can maintain state<br/>+information. For example:<br/>+<br/>+ use Mac::OSA::Simple;<br/>+ my $script = compile_applescript(&lt;&lt;&#39;SCRIPT&#39;) or die $^E;<br/>+ property foo: 20<br/>+ set foo to foo + 1<br/>+ SCRIPT<br/>+ print $script-&gt;execute, &quot;\n&quot; for 0..2;<br/>+<br/>+Returns:<br/>+ 21<br/>+ 22<br/>+ 23<br/>+<br/>+Whereas in previous versions of this module, it would have returned:<br/>+ 21<br/>+ 21<br/>+ 21<br/>+<br/>+For a script that on disk, to maintain state information<br/>+in the saved version, remember to call C&lt;$script-&gt;save(LIST)&gt;.<br/>+<br/>+<br/> =head1 TODO<br/> <br/> Work on error handling. We don&#39;t want to die when a toolbox function<br/>@@ -398,6 +420,11 @@<br/> =head1 HISTORY<br/> <br/> =over 4<br/>+<br/>+=item v1.01, Tuesday, January 22, 2002<br/>+<br/>+Save scripts as script contexts. (Bart Lateur)<br/>+<br/> <br/> =item v1.00, Tuesday, January 22, 2002<br/> <br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg277.html Sun, 08 Sep 2002 15:40:05 +0000 Change 17857: Add Mac OS X Note by Chris Nandor Change 17857 by pudge@pudge-mobile on 2002/09/08 04:46:31<br/><br/> Add Mac OS X Note<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/lib/Mac/Glue.pm#7 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/lib/Mac/Glue.pm#7 (text) ====<br/>Index: macperl/macos/lib/Mac/Glue.pm<br/>--- macperl/macos/lib/Mac/Glue.pm#6~16464~ Tue May 7 20:43:39 2002<br/>+++ macperl/macos/lib/Mac/Glue.pm Sat Sep 7 21:46:31 2002<br/>@@ -1313,6 +1313,18 @@<br/> <br/> So, now that you are convinced this is cool, let&#39;s continue.<br/> <br/>+<br/>+=head2 Mac OS X<br/>+<br/>+Mac::Glue is MacPerl only, and does not work with perl under Mac OS X.<br/>+However, it works with MacPerl under the Classic environment in Mac OS X.<br/>+Mac::Glue now has ininitial support to create glues for Mac OS X apps,<br/>+under Classic. You won&#39;t be able to create glues for many apps while<br/>+running Mac OS natively, since Mac OS X will need to launch the app;<br/>+also, there are known problems with launching the apps, so you may need<br/>+to start the app manually first before creating the glue.<br/>+<br/>+<br/> =head2 Creating a Glue<br/> <br/> In order to script an application with Mac::Glue, a glue must be created<br/>@@ -1333,7 +1345,6 @@<br/> Along with the glue file is a POD file containing documentation for the<br/> glue, listing all the events (with parameters), classes (with<br/> properties), and enumerators, and descriptions of each.<br/>-<br/> <br/> =head2 Using a Glue<br/> <br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg276.html Sun, 08 Sep 2002 15:39:59 +0000 Change 17856: Remove workaround for fixed GUSI bug #553817 by Chris Nandor Change 17856 by pudge@pudge-mobile on 2002/09/08 04:46:03<br/><br/> Remove workaround for fixed GUSI bug #553817<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#8 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#8 (text) ====<br/>Index: macperl/macos/MacPerlTests.cmd<br/>--- macperl/macos/MacPerlTests.cmd#7~17659~ Mon Jul 29 11:19:00 2002<br/>+++ macperl/macos/MacPerlTests.cmd Sat Sep 7 21:46:03 2002<br/>@@ -6,8 +6,6 @@<br/> <br/> perl -le &#39;symlink &quot;::macos:perl&quot;, &quot;:perl&quot; unless -e &quot;:perl&quot;&#39;<br/> <br/>-# weird bug in GUSI for opening file instead of directory<br/>-perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/> # set up environment<br/> set -e MACPERL &quot;&quot;<br/> set -e PERL5LIB &quot;&quot;<br/>@@ -35,12 +33,8 @@<br/> :perl -I::lib :cmd:elsif.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :cmd:for.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :cmd:for.t &gt;&gt; ::macos:MacPerlTests.out<br/>-<br/>-perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :cmd:mod.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :cmd:mod.t &gt;&gt; ::macos:MacPerlTests.out<br/>-perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>-<br/> echo &quot;:perl -I::lib :cmd:subval.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :cmd:subval.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :cmd:switch.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -177,12 +171,8 @@<br/> :perl -I::lib :lib:filefind.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:filefunc.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:filefunc.t &gt;&gt; ::macos:MacPerlTests.out<br/>-<br/>-perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :lib:filehand.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:filehand.t &gt;&gt; ::macos:MacPerlTests.out<br/>-perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>-<br/> echo &quot;:perl -I::lib :lib:filepath.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:filepath.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:filespec.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -201,12 +191,8 @@<br/> :perl -I::lib :lib:gdbm.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:getopt.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:getopt.t &gt;&gt; ::macos:MacPerlTests.out<br/>-<br/>-perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :lib:glob-basic.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:glob-basic.t &gt;&gt; ::macos:MacPerlTests.out<br/>-perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>-<br/> echo &quot;:perl -I::lib :lib:glob-case.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:glob-case.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:glob-global.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -233,8 +219,6 @@<br/> :perl -I::lib :lib:io_dup.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:io_linenum.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:io_linenum.t &gt;&gt; ::macos:MacPerlTests.out<br/>-<br/>-perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :lib:io_multihomed.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:io_multihomed.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:io_pipe.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -435,8 +419,6 @@<br/> :perl -I::lib :op:mkdir.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:my.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:my.t &gt;&gt; ::macos:MacPerlTests.out<br/>-<br/>-perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/> echo &quot;:perl -I::lib :op:my_stash.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:my_stash.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:nothr5005.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -507,12 +489,8 @@<br/> :perl -I::lib :op:substr.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:sysio.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:sysio.t &gt;&gt; ::macos:MacPerlTests.out<br/>-<br/>-perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib -T :op:taint.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib -T :op:taint.t &gt;&gt; ::macos:MacPerlTests.out<br/>-perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>-<br/> echo &quot;:perl -I::lib :op:tie.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:tie.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:tiearray.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg275.html Sun, 08 Sep 2002 15:39:57 +0000 Change 17855: Add ChooseFSObject/GetFolder by Chris Nandor Change 17855 by pudge@pudge-mobile on 2002/09/08 04:36:08<br/><br/> Add ChooseFSObject/GetFolder<br/> From Thomas Wegner<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/Perl.r#4 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/ChooseFSObject.c#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/ChooseFSObject.h#1 add<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/Makefile.PL#2 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/StandardFile.pm#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/StandardFile.xs#3 edit<br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/t/ChooseFSObject.t#1 add<br/>.... //depot/maint-5.6/macperl/macos/macperl/MacPerl.r#10 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/Perl.r#4 (text) ====<br/>Index: macperl/macos/Perl.r<br/>--- macperl/macos/Perl.r#3~14397~ Wed Jan 23 12:03:19 2002<br/>+++ macperl/macos/Perl.r Sat Sep 7 21:36:08 2002<br/>@@ -5,6 +5,9 @@<br/> * as specified in the README file.<br/> *<br/> * $Log: Perl.r,v $<br/>+ * Revision 1.9 2002/09/05 23:36:33 pudge<br/>+ * Add dialogs for the new Choose stuff in StandardFile from Thomas<br/>+ *<br/> * Revision 1.8 2002/01/23 05:45:39 pudge<br/> * Update text<br/> *<br/>@@ -64,6 +67,92 @@<br/> include &quot;Perl.rsrc&quot;;<br/> #define MPAppName &quot;perl&quot;<br/> #include &quot;MPVersion.r&quot;;<br/>+<br/>+<br/>+/************* Custom Standard File Choose Folder Dialog *********************/<br/>+<br/>+resource &#39;DLOG&#39; (193, &quot;Std File CustomGetFolder&quot;, purgeable) {<br/>+ {45, 25, 257, 368},<br/>+ dBoxProc,<br/>+ invisible,<br/>+ noGoAway,<br/>+ 0x0,<br/>+ 193,<br/>+ &quot;&quot;,<br/>+ noAutoCenter<br/>+};<br/>+<br/>+<br/>+resource &#39;DITL&#39; (193, &quot;Std File CustomGetFolder&quot;, purgeable) {<br/>+ { /* array DITLarray: 11 elements */<br/>+ /* [1] */<br/>+ {141, 244, 161, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Open&quot;<br/>+ },<br/>+ /* [2] */<br/>+ {110, 244, 130, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Cancel&quot;<br/>+ },<br/>+ /* [3] */<br/>+ {0, 0, 0, 0},<br/>+ HelpItem {<br/>+ disabled,<br/>+ HMScanhdlg {<br/>+ -6042<br/>+ }<br/>+ },<br/>+ /* [4] */<br/>+ {16, 235, 32, 337},<br/>+ UserItem {<br/>+ enabled<br/>+ },<br/>+ /* [5] */<br/>+ {40, 244, 60, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Eject&quot;<br/>+ },<br/>+ /* [6] */<br/>+ {68, 244, 88, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Desktop&quot;<br/>+ },<br/>+ /* [7] */<br/>+ {63, 12, 193, 230},<br/>+ UserItem {<br/>+ enabled<br/>+ },<br/>+ /* [8] */<br/>+ {40, 12, 59, 230},<br/>+ UserItem {<br/>+ enabled<br/>+ },<br/>+ /* [9] */<br/>+ {99, 243, 100, 335},<br/>+ Picture {<br/>+ disabled,<br/>+ 11<br/>+ },<br/>+ /* [10] */<br/>+ {171, 244, 191, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Directory&quot;<br/>+ },<br/>+ /* [11] */<br/>+ {14, 29, 34, 214},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Select Current Directory:&quot;<br/>+ }<br/>+ }<br/>+};<br/>+<br/> <br/> resource &#39;DLOG&#39; (2001) {<br/> { 0, 0, 150, 400},<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/ChooseFSObject.c#1 (text) ====<br/>Index: macperl/macos/ext/Mac/StandardFile/ChooseFSObject.c<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/StandardFile/ChooseFSObject.c Sat Sep 7 21:36:08 2002<br/>@@ -0,0 +1,294 @@<br/>+/**************************************************************************<br/>+Project : MacPerl <br/>+File : ChooseFSObject.c - Choose File System Objects<br/>+Author : Thomas Wegner<br/>+<br/>+<br/>+Language : MPW C<br/>+<br/>+$Log: ChooseFSObject.c,v $<br/>+Revision 1.1 2002/09/05 23:31:37 pudge<br/>+Add new ChooseFSObject stuff from Thomas<br/>+<br/>+<br/>+<br/>+**************************************************************************/<br/>+<br/>+#include &lt;MacTypes.h&gt;<br/>+#include &lt;Files.h&gt;<br/>+#include &lt;ControlDefinitions.h&gt;<br/>+#include &lt;Dialogs.h&gt;<br/>+#include &lt;LowMem.h&gt;<br/>+#include &lt;StandardFile.h&gt;<br/>+#include &lt;GUSIFileSpec.h&gt;<br/>+#include &lt;string.h&gt;<br/>+<br/>+<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// Utilities<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+<br/>+<br/>+static ControlHandle GetDialogCtrl(DialogPtr dlg, short item)<br/>+{<br/>+ short kind;<br/>+ Handle hdl;<br/>+ Rect box;<br/>+ <br/>+ GetDialogItem(dlg, item, &amp;kind, &amp;hdl, &amp;box);<br/>+ return (ControlHandle) hdl;<br/>+}<br/>+<br/>+<br/>+<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// Standard File <br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+<br/>+<br/>+// volume vRefNum of the selected directory when we return from the Standard File dialog<br/>+static short currentVol; <br/>+// directory parID of the selected directory when we return from the Standard File dialog<br/>+static long currentDir; <br/>+<br/>+static StandardFileReply reply; <br/>+static short isAliasFlag = 1 &lt;&lt; 15;<br/>+<br/>+<br/>+// File filter proc for StdFChooseFolder<br/>+//<br/>+static pascal Boolean StdFFolderFFilter(CInfoPBPtr pb, Ptr DataPtr)<br/>+{<br/>+ return !(pb-&gt;hFileInfo.ioFlAttrib &amp; ioDirMask);<br/>+}<br/>+<br/>+// Dialog hook for StdFChooseFolder<br/>+// When our dialog hook is called, the StandardFileReply struct that we&#39;ve passed to <br/>+// Standard File has been filled in for the current selection. <br/>+//<br/>+// Old IM Vol. IV, p. 75 and old Tech Note 80 give some hints about the low memory <br/>+// globals SFSaveDisk and CurDirStore.<br/>+//<br/>+static pascal short StdFGetDirDlgHook(short item, DialogPtr dialog, Ptr DataPtr)<br/>+{<br/>+ switch (item) {<br/>+ <br/>+ case sfHookFirstCall:<br/>+ // specify where in the file system we open our dialog<br/>+ reply.sfFile.vRefNum = currentVol;<br/>+ reply.sfFile.parID = currentDir;<br/>+ reply.sfFile.name[0] = 0;<br/>+ return sfHookChangeSelection;<br/>+ <br/>+ case 10: <br/>+ // &lt;Directory&gt; button <br/>+ if ( reply.sfIsFolder || reply.sfIsVolume || (reply.sfFlags &amp; isAliasFlag) ) {<br/>+ <br/>+ FSSpec dir = reply.sfFile;<br/>+ <br/>+ if (reply.sfFlags &amp; isAliasFlag) { <br/>+ // resolve that alias file, then we have its parent directory in parID<br/>+ // GUSIFSpResolve( &amp;dir );<br/>+ Boolean targetIsFolder;<br/>+ Boolean wasAliased;<br/>+ ResolveAliasFile( &amp;dir, true, &amp;targetIsFolder, &amp;wasAliased);<br/>+ }<br/>+ <br/>+ // we need to move into the directory, to get its directory id, i.e. <br/>+ // the parent directory (parID) of the empty file name<br/>+ GUSIFSpDown( &amp;dir, &quot;\p&quot; );<br/>+ <br/>+ currentVol = dir.vRefNum;<br/>+ currentDir = dir.parID; <br/>+ <br/>+ // fake Open button item number <br/>+ return sfItemOpenButton;<br/>+ }<br/>+ break;<br/>+ <br/>+ case 11: <br/>+ // &quot;Select Current Directory:&quot; button<br/>+ <br/>+ currentVol = - ( LMGetSFSaveDisk() ); // access SFSaveDisk <br/>+ currentDir = LMGetCurDirStore() ; // access CurDirStore<br/>+ <br/>+ // fake Open button item number<br/>+ return sfItemOpenButton;<br/>+ <br/>+ case sfHookNullEvent:<br/>+ if ( reply.sfIsFolder || reply.sfIsVolume || (reply.sfFlags &amp; isAliasFlag) )<br/>+ // enable Directory button<br/>+ HiliteControl(GetDialogCtrl(dialog, 10), 0);<br/>+ else<br/>+ // disable Directory button<br/>+ HiliteControl(GetDialogCtrl(dialog, 10), 255);<br/>+ break;<br/>+ }<br/>+ <br/>+ return item;<br/>+}<br/>+<br/>+<br/>+<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// * StdFChooseFolder<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// Choose a folder with Standard File<br/>+//<br/>+<br/>+static pascal Boolean StdFChooseFolder(FSSpec * defaultSpec, FSSpec * result)<br/>+{<br/>+ Point where = {-1, -1};<br/>+ FSSpec selFolder = {0, 0, &quot;\p&quot;};<br/>+ FileFilterYDUPP fileFilterYDUPP;<br/>+ DlgHookYDUPP dialogHookYDUPP;<br/>+<br/>+ fileFilterYDUPP = NewFileFilterYDUPP( StdFFolderFFilter );<br/>+ dialogHookYDUPP = NewDlgHookYDUPP( StdFGetDirDlgHook );<br/>+ <br/>+ if (defaultSpec) { <br/>+ GUSIFSpDown( defaultSpec, &quot;\p&quot; ); <br/>+ <br/>+ currentVol = defaultSpec-&gt;vRefNum;<br/>+ currentDir = defaultSpec-&gt;parID;<br/>+ <br/>+ } else {<br/>+ <br/>+ currentVol = - ( LMGetSFSaveDisk() ); // access SFSaveDisk<br/>+ currentDir = LMGetCurDirStore(); // access CurDirStore <br/>+<br/>+ }<br/>+ <br/>+ <br/>+ CustomGetFile(<br/>+ fileFilterYDUPP, // file filter<br/>+ -1, // numTypes<br/>+ nil, // typeList<br/>+ &amp;reply, // reply record<br/>+ 193, // dialog resource id<br/>+ where, // where <br/>+ dialogHookYDUPP, // dialog hook<br/>+ nil, // modal filter proc<br/>+ nil, // active list<br/>+ nil, // activate proc<br/>+ nil // appl data pointer <br/>+ );<br/>+<br/>+<br/>+ if (reply.sfGood) { <br/>+ selFolder.vRefNum = currentVol;<br/>+ selFolder.parID = currentDir;<br/>+ <br/>+ *result = selFolder;<br/>+ <br/>+ }<br/>+<br/>+ // dispose proc pointers<br/>+ DisposeFileFilterYDUPP( fileFilterYDUPP );<br/>+ DisposeDlgHookYDUPP( dialogHookYDUPP );<br/>+<br/>+ return reply.sfGood;<br/>+<br/>+}<br/>+<br/>+<br/>+// Simple dialog hook for StdFChooseFile <br/>+//<br/>+static pascal short StdFInitDlgHook(short item, DialogPtr dialog, Ptr DataPtr)<br/>+{<br/>+ switch (item) {<br/>+ <br/>+ case sfHookFirstCall:<br/>+ // specify where in the file system we open our dialog<br/>+ reply.sfFile.vRefNum = currentVol;<br/>+ reply.sfFile.parID = currentDir;<br/>+ reply.sfFile.name[0] = 0;<br/>+ return sfHookChangeSelection;<br/>+ }<br/>+ <br/>+ return item;<br/>+}<br/>+<br/>+<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// * StdFChooseFile<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// Choose a file with Standard File<br/>+//<br/>+static pascal Boolean StdFChooseFile(FSSpec * defaultSpec, FSSpec * result)<br/>+{<br/>+ Point where = {-1, -1};<br/>+ DlgHookYDUPP dialogHookYDUPP;<br/>+<br/>+ dialogHookYDUPP = NewDlgHookYDUPP( StdFInitDlgHook );<br/>+ <br/>+ if (defaultSpec) { <br/>+ GUSIFSpDown( defaultSpec, &quot;\p&quot; ); <br/>+ <br/>+ currentVol = defaultSpec-&gt;vRefNum;<br/>+ currentDir = defaultSpec-&gt;parID;<br/>+ <br/>+ } else {<br/>+ <br/>+ currentVol = - ( LMGetSFSaveDisk() ); // access SFSaveDisk<br/>+ currentDir = LMGetCurDirStore(); // access CurDirStore <br/>+ }<br/>+ <br/>+ <br/>+ CustomGetFile(<br/>+ nil, // file filter<br/>+ -1, // numTypes<br/>+ nil, // typeList<br/>+ &amp;reply, // reply record<br/>+ -6042, // standard dialog resource id<br/>+ where, // where <br/>+ dialogHookYDUPP, // dialog hook<br/>+ nil, // modal filter proc<br/>+ nil, // active list<br/>+ nil, // activate proc<br/>+ nil // appl data pointer <br/>+ );<br/>+<br/>+<br/>+ if (reply.sfGood) { <br/>+ *result = reply.sfFile;<br/>+ }<br/>+<br/>+ // dispose proc pointer<br/>+ DisposeDlgHookYDUPP( dialogHookYDUPP );<br/>+<br/>+ return reply.sfGood;<br/>+<br/>+}<br/>+<br/>+<br/>+<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// * StdFChooseFSObject<br/>+//&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;&#139;<br/>+// Choose a folder or file object with Standard File<br/>+//<br/>+<br/>+pascal Boolean StdFChooseFSObject(char * path, Boolean folder, Boolean hasDefault)<br/>+{<br/>+ FSSpec defaultSpec;<br/>+ FSSpec result;<br/>+ Boolean good;<br/>+<br/>+ if (hasDefault)<br/>+ hasDefault = ( GUSIPath2FSp(path, &amp;defaultSpec) == noErr );<br/>+ <br/>+ if (folder) <br/>+ {<br/>+ good = StdFChooseFolder( hasDefault ? &amp;defaultSpec : nil, &amp;result);<br/>+ }<br/>+ else <br/>+ {<br/>+ good = StdFChooseFile( hasDefault ? &amp;defaultSpec : nil, &amp;result);<br/>+ }<br/>+<br/>+ if (good)<br/>+ strcpy( path, GUSIFSp2FullPath(&amp;result) );<br/>+ <br/>+ return good;<br/>+}<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/ChooseFSObject.h#1 (text) ====<br/>Index: macperl/macos/ext/Mac/StandardFile/ChooseFSObject.h<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/StandardFile/ChooseFSObject.h Sat Sep 7 21:36:08 2002<br/>@@ -0,0 +1,27 @@<br/>+/**************************************************************************<br/>+Project : MacPerl <br/>+File : ChooseFSObject.h - Choose File System Objects<br/>+Author : Thomas Wegner<br/>+<br/>+<br/>+Language : MPW C<br/>+<br/>+$Log: ChooseFSObject.h,v $<br/>+Revision 1.1 2002/09/05 23:31:37 pudge<br/>+Add new ChooseFSObject stuff from Thomas<br/>+<br/>+<br/>+<br/>+**************************************************************************/<br/>+<br/>+#ifndef __CHOOSEFSOBJECT__<br/>+#define __CHOOSEFSOBJECT__<br/>+<br/>+#include &lt;MacTypes.h&gt;<br/>+#include &lt;Files.h&gt;<br/>+<br/>+// Choose a folder or file object with Standard File<br/>+pascal Boolean StdFChooseFSObject(char * path, Boolean folder, Boolean hasDefault);<br/>+<br/>+<br/>+#endif /* __CHOOSEFSOBJECT__ */<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/Makefile.PL#2 (text) ====<br/>Index: macperl/macos/ext/Mac/StandardFile/Makefile.PL<br/>--- macperl/macos/ext/Mac/StandardFile/Makefile.PL#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/StandardFile/Makefile.PL Sat Sep 7 21:36:08 2002<br/>@@ -6,4 +6,5 @@<br/> &#39;LINKTYPE&#39; =&gt; &#39;static dynamic&#39;,<br/> TYPEMAPS =&gt; &#39;::QuickDraw:typemap ::Events:typemap ::Files:typemap&#39;,<br/> XSPROTOARG =&gt; &#39;-noprototypes&#39;, # XXX remove later?<br/>+ &#39;OBJECT&#39; =&gt; &#39;ChooseFSObject$(OBJ_EXT) StandardFile$(OBJ_EXT)&#39;,<br/> );<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/StandardFile.pm#3 (text) ====<br/>Index: macperl/macos/ext/Mac/StandardFile/StandardFile.pm<br/>--- macperl/macos/ext/Mac/StandardFile/StandardFile.pm#2~12323~ Wed Oct 3 11:42:37 2001<br/>+++ macperl/macos/ext/Mac/StandardFile/StandardFile.pm Sat Sep 7 21:36:08 2002<br/>@@ -23,14 +23,15 @@<br/> use DynaLoader ();<br/> <br/> use vars qw($VERSION @ISA @EXPORT);<br/>- $VERSION = &#39;1.00&#39;;<br/>+ $VERSION = &#39;1.10&#39;;<br/> @ISA = qw(Exporter DynaLoader);<br/> @EXPORT = qw(<br/> StandardPutFile<br/> StandardGetFile<br/> CustomPutFile<br/> CustomGetFile<br/>- StandardOpenDialog<br/>+ ChooseFSObject<br/>+ StandardGetFolder<br/> <br/> putDlgID<br/> putSave<br/>@@ -80,6 +81,9 @@<br/> sfStatWarnDialogRefCon<br/> sfLockWarnDialogRefCon<br/> sfErrorDialogRefCon<br/>+ <br/>+ kGetFolder<br/>+ kGetFile<br/> );<br/> }<br/> <br/>@@ -252,6 +256,12 @@<br/> <br/> Refcons to distinguish the dialogs.<br/> <br/>+=item kGetFolder<br/>+<br/>+=item kGetFile<br/>+<br/>+These constants may be passed to the FOLDER parameter of the ChooseFSObject function.<br/>+<br/> =cut<br/> sub sfMainDialogRefCon () { 0x73746466; } # &#39;stdf&#39;<br/> sub sfNewFolderDialogRefCon () { 0x6E666472; } # &#39;nfdr&#39;<br/>@@ -260,10 +270,33 @@<br/> sub sfLockWarnDialogRefCon () { 0x6C6F636B; } # &#39;lock&#39;<br/> sub sfErrorDialogRefCon () { 0x65727220; } # &#39;err &#39;<br/> <br/>+sub kGetFolder () { 1; }<br/>+sub kGetFile () { 0; }<br/>+<br/> =back<br/> <br/> =include StandardFile.xs<br/> <br/>+=cut<br/>+<br/>+=item StandardGetFolder [ DEFAULTPATH ]<br/>+<br/>+Choose a folder. Implemented via ChooseFSObject (see above).<br/>+Optionally, the DEFAULTPATH parameter specifies a directory where Standard File<br/>+starts the choose dialog. DEFAULTPATH should be a valid relative or full path.<br/>+This function is a MacPerl supplement, you will not find it anywhere in Inside Macintosh. <br/>+It will NOT work with versions of the MacPerl application and tool prior to 5.6.1r2.<br/>+<br/>+=cut<br/>+<br/>+sub StandardGetFolder {<br/>+ if (@_ &gt; 1) {<br/>+ croak(&quot;Usage: Mac::StandardFile::StandardGetFolder( [ DEFAULTPATH ] )&quot;);<br/>+ }<br/>+ ChooseFSObject(kGetFolder, $_[1]);<br/>+} <br/>+<br/>+<br/> =head1 BUGS/LIMITATIONS<br/> <br/> =head1 FILES<br/>@@ -271,6 +304,8 @@<br/> =head1 AUTHOR(S)<br/> <br/> Matthias Ulrich Neeracher &lt;neeracher@mac.com&gt; <br/>+<br/>+Thomas Wegner &lt;t_wegner@gmx.net&gt; contributed the ChooseFSObject function.<br/> <br/> =cut<br/> <br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/StandardFile.xs#3 (text) ====<br/>Index: macperl/macos/ext/Mac/StandardFile/StandardFile.xs<br/>--- macperl/macos/ext/Mac/StandardFile/StandardFile.xs#2~14072~ Fri Jan 4 12:37:44 2002<br/>+++ macperl/macos/ext/Mac/StandardFile/StandardFile.xs Sat Sep 7 21:36:08 2002<br/>@@ -17,6 +17,7 @@<br/> #include &lt;Types.h&gt;<br/> #include &lt;StandardFile.h&gt;<br/> #include &lt;GUSIFileSpec.h&gt;<br/>+#include &quot;ChooseFSObject.h&quot;<br/> <br/> typedef struct {<br/> SV * fileFilter;<br/>@@ -368,6 +369,69 @@<br/> OUTPUT:<br/> RETVAL<br/> <br/>+<br/>+<br/>+=item ChooseFSObject FOLDER [, DEFAULTPATH ]<br/>+<br/>+Choose a folder or file with Standard File. ChooseFSObject returns a full<br/>+path to the selected file system object if the user confirms the dialog,<br/>+or undef if the dialog is canceled. In the FOLDER parameter you should<br/>+pass 1 (i.e. true) or the constant kGetFolder if you want to choose a folder<br/>+or volume (which is a special kind of folder). Or you pass 0 (i.e. false) or<br/>+the constant kGetFile to choose a file. Optionally, the DEFAULTPATH <br/>+parameter specifies a directory where Standard File starts the choose dialog.<br/>+DEFAULTPATH should be a valid relative or full path. This function is a<br/>+MacPerl supplement, you will not find it anywhere in Inside Macintosh. It<br/>+will NOT work with versions of the MacPerl application and tool prior to<br/>+5.6.1r2.<br/>+<br/>+=cut<br/>+void<br/>+ChooseFSObject(folder, ...)<br/>+<br/>+ Boolean folder;<br/>+ CODE:<br/>+ {<br/>+ STRLEN len;<br/>+ char * defaultPath;<br/>+ char path[256];<br/>+ Str255 msg;<br/>+ Boolean hasDefault;<br/>+ <br/>+ if ((items &lt; 1) || (items &gt; 2)) {<br/>+ <br/>+ croak(&quot;Usage: Mac::StandardFile::ChooseFSObject( FOLDER [, DEFAULTPATH ] )&quot;);<br/>+ <br/>+ } else if (items == 2 ) {<br/>+ <br/>+ defaultPath = (char *) SvPV_nolen(ST(1));<br/>+ len = strlen(defaultPath);<br/>+ <br/>+ if ( len &gt; 255 ) {<br/>+ hasDefault = false;<br/>+ } else {<br/>+ hasDefault = true;<br/>+ strcpy( path, defaultPath ); <br/>+ }<br/>+ <br/>+ } else if (items == 1 ) {<br/>+ <br/>+ hasDefault = false;<br/>+ <br/>+ }<br/>+ <br/>+ if ( StdFChooseFSObject( path, folder, hasDefault ) ) <br/>+ {<br/>+ ST(0) = sv_2mortal(newSVpv(path, 0));<br/>+ }<br/>+ else <br/>+ {<br/>+ ST(0) = &amp;PL_sv_undef;<br/>+ } <br/>+ <br/>+ }<br/>+<br/>+<br/> =back <br/> <br/>-=cut<br/>\ No newline at end of file<br/>+=cut<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/t/ChooseFSObject.t#1 (text) ====<br/>Index: macperl/macos/ext/Mac/StandardFile/t/ChooseFSObject.t<br/>--- /dev/null Tue May 5 13:32:27 1998<br/>+++ macperl/macos/ext/Mac/StandardFile/t/ChooseFSObject.t Sat Sep 7 21:36:08 2002<br/>@@ -0,0 +1,20 @@<br/>+#! perl -w<br/>+use Mac::StandardFile;<br/>+use File::Spec;<br/>+<br/>+# choose a folder or volume <br/>+$path = ChooseFSObject( kGetFolder, File::Spec-&gt;rootdir );<br/>+if ($path) {<br/>+ print &quot;path = $path \n&quot;;<br/>+} else {<br/>+ print &quot;User canceled. \n&quot;;<br/>+}<br/>+<br/>+# choose a file <br/>+$path = ChooseFSObject( kGetFile );<br/>+if ($path) {<br/>+ print &quot;path = $path \n&quot;;<br/>+} else {<br/>+ print &quot;User canceled. \n&quot;;<br/>+}<br/>+<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/MacPerl.r#10 (text) ====<br/>Index: macperl/macos/macperl/MacPerl.r<br/>--- macperl/macos/macperl/MacPerl.r#9~15098~ Thu Mar 7 19:19:44 2002<br/>+++ macperl/macos/macperl/MacPerl.r Sat Sep 7 21:36:08 2002<br/>@@ -9,6 +9,9 @@<br/> Language : MPW C<br/> <br/> $Log: MacPerl.r,v $<br/>+Revision 1.18 2002/09/05 23:28:17 pudge<br/>+Add dialogs for the new Choose stuff in StandardFile from Thomas<br/>+<br/> Revision 1.17 2002/03/08 04:12:03 pudge<br/> Cosmetic fixes (Thomas Wegner)<br/> <br/>@@ -877,6 +880,92 @@<br/> }<br/> }<br/> };<br/>+<br/>+<br/>+/************* Custom Standard File Choose Folder Dialog *********************/<br/>+<br/>+resource &#39;DLOG&#39; (193, &quot;Std File CustomGetFolder&quot;, purgeable) {<br/>+ {45, 25, 257, 368},<br/>+ dBoxProc,<br/>+ invisible,<br/>+ noGoAway,<br/>+ 0x0,<br/>+ 193,<br/>+ &quot;&quot;,<br/>+ noAutoCenter<br/>+};<br/>+<br/>+<br/>+resource &#39;DITL&#39; (193, &quot;Std File CustomGetFolder&quot;, purgeable) {<br/>+ { /* array DITLarray: 11 elements */<br/>+ /* [1] */<br/>+ {141, 244, 161, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Open&quot;<br/>+ },<br/>+ /* [2] */<br/>+ {110, 244, 130, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Cancel&quot;<br/>+ },<br/>+ /* [3] */<br/>+ {0, 0, 0, 0},<br/>+ HelpItem {<br/>+ disabled,<br/>+ HMScanhdlg {<br/>+ -6042<br/>+ }<br/>+ },<br/>+ /* [4] */<br/>+ {16, 235, 32, 337},<br/>+ UserItem {<br/>+ enabled<br/>+ },<br/>+ /* [5] */<br/>+ {40, 244, 60, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Eject&quot;<br/>+ },<br/>+ /* [6] */<br/>+ {68, 244, 88, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Desktop&quot;<br/>+ },<br/>+ /* [7] */<br/>+ {63, 12, 193, 230},<br/>+ UserItem {<br/>+ enabled<br/>+ },<br/>+ /* [8] */<br/>+ {40, 12, 59, 230},<br/>+ UserItem {<br/>+ enabled<br/>+ },<br/>+ /* [9] */<br/>+ {99, 243, 100, 335},<br/>+ Picture {<br/>+ disabled,<br/>+ 11<br/>+ },<br/>+ /* [10] */<br/>+ {171, 244, 191, 334},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Directory&quot;<br/>+ },<br/>+ /* [11] */<br/>+ {14, 29, 34, 214},<br/>+ Button {<br/>+ enabled,<br/>+ &quot;Select Current Directory:&quot;<br/>+ }<br/>+ }<br/>+};<br/>+<br/> <br/> /************************** Save Dialog **************************/<br/> <br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg274.html Sun, 08 Sep 2002 15:39:55 +0000 Change 17854: Fix URL encoding for MacPerl Help/Shuck by Chris Nandor Change 17854 by pudge@pudge-mobile on 2002/09/08 04:35:08<br/><br/> Fix URL encoding for MacPerl Help/Shuck<br/> Bug exposed in Mac OS X 10.2; MacPerl Bug #598449<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/macperl/MPHelp.c#4 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/MPHelp.c#4 (text) ====<br/>Index: macperl/macos/macperl/MPHelp.c<br/>--- macperl/macos/macperl/MPHelp.c#3~14399~ Wed Jan 23 13:00:29 2002<br/>+++ macperl/macos/macperl/MPHelp.c Sat Sep 7 21:35:08 2002<br/>@@ -5,6 +5,9 @@<br/> Language : MPW C<br/> <br/> $Log: MPHelp.c,v $<br/>+Revision 1.4 2002/09/05 23:21:59 pudge<br/>+Fix URL encoding (bug exposed in Mac OS X 10.2; MacPerl Bug #598449)<br/>+<br/> Revision 1.3 2002/01/23 21:56:53 pudge<br/> Don&#39;t crash if very long word selected for help (bug #506672)<br/> <br/>@@ -354,6 +357,8 @@<br/> }<br/> } <br/> <br/>+char * gHex = &quot;0123456789ABCDEF&quot;;<br/>+<br/> void LaunchHelpURL(char * urlPtr, int urlLen)<br/> {<br/> int len;<br/>@@ -382,36 +387,32 @@<br/> urlPtr += strlen(urlPtr)+1;<br/> urlPtr[-1] = &#39;:&#39;;<br/> urlPath = url+strlen(url);<br/>- for (path = GUSIFSp2FullPath(&amp;here); *path; path++)<br/>- switch (*path) {<br/>- case &#39;:&#39;: /* Translate directory separators */<br/>+ for (path = GUSIFSp2FullPath(&amp;here); *path; path++) {<br/>+ if (*path == &#39;:&#39;) {<br/> *urlPath++ = &#39;/&#39;;<br/>- break;<br/>- case &#39;&lt;&#39;: /* Encode dangerous characters */<br/>- case &#39;&gt;&#39;: <br/>- case &#39;+&#39;:<br/>- case &#39;\&quot;&#39;:<br/>- case &#39;*&#39;:<br/>- case &#39;%&#39;:<br/>- case &#39;&amp;&#39;:<br/>- case &#39;/&#39;:<br/>- case &#39;(&#39;:<br/>- case &#39;)&#39;:<br/>- case &#39;=&#39;:<br/>- case &#39;?&#39;:<br/>- case &#39;\&#39;&#39;:<br/>- case &#39;`&#39;:<br/>- case &#39;^&#39;:<br/>- case &#39;$&#39;:<br/>- case &#39;#&#39;:<br/>- case &#39; &#39;:<br/>- sprintf(urlPath, &quot;%%%02X&quot;, *path);<br/>- urlPath += 3;<br/>- break;<br/>- default:<br/>+ }<br/>+ // encode everything *except* unreserved chars,<br/>+ // see RFC 2396<br/>+ else if (isalnum(*path) || // A-Z a-z 0-9<br/>+ *path == &#39;-&#39; ||<br/>+ *path == &#39;_&#39; ||<br/>+ *path == &#39;.&#39; ||<br/>+ *path == &#39;!&#39; ||<br/>+ *path == &#39;~&#39; ||<br/>+ *path == &#39;*&#39; ||<br/>+ *path == &#39;\&#39;&#39; ||<br/>+ *path == &#39;(&#39; ||<br/>+ *path == &#39;)&#39; ||<br/>+ *path == &#39;/&#39;) { // &#39;/&#39; is because this is a Mac!<br/> *urlPath++ = *path;<br/>- break;<br/> }<br/>+ else {<br/>+ *urlPath++ = &#39;%&#39;;<br/>+ *urlPath++ = gHex[(*path &gt;&gt; 4) &amp; 15];<br/>+ *urlPath++ = gHex[*path &amp; 15];<br/>+ }<br/>+ }<br/>+<br/> if (urlPath[-1] != &#39;/&#39;)<br/> *urlPath++ = &#39;/&#39;;<br/> memcpy(urlPath, urlPtr, urlLen);<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg273.html Sun, 08 Sep 2002 15:39:49 +0000 Change 17852: File::Copy should only warn if there's something to warn about by Chris Nandor Change 17852 by pudge@pudge-mobile on 2002/09/08 04:32:53<br/><br/> File::Copy should only warn if there&#39;s something to warn about<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/lib/File/Copy.pm#4 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/lib/File/Copy.pm#4 (text) ====<br/>Index: macperl/lib/File/Copy.pm<br/>--- macperl/lib/File/Copy.pm#3~16473~ Tue May 7 20:52:28 2002<br/>+++ macperl/lib/File/Copy.pm Sat Sep 7 21:32:53 2002<br/>@@ -35,7 +35,7 @@<br/> if ($^O eq &#39;MacOS&#39;) {<br/> $macfiles = eval { require Mac::MoreFiles };<br/> warn &#39;Mac::MoreFiles could not be loaded; using non-native syscopy&#39;<br/>- if $^W;<br/>+ if $@ &amp;&amp; $^W;<br/> }<br/> <br/> sub _catname {<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg272.html Sun, 08 Sep 2002 15:39:46 +0000 Change 17853: TextEdit example show text extraction by Chris Nandor Change 17853 by pudge@pudge-mobile on 2002/09/08 04:33:43<br/><br/> TextEdit example show text extraction<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/TextEdit/t/SimpleText.t#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/TextEdit/t/SimpleText.t#2 (text) ====<br/>Index: macperl/macos/ext/Mac/TextEdit/t/SimpleText.t<br/>--- macperl/macos/ext/Mac/TextEdit/t/SimpleText.t#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/ext/Mac/TextEdit/t/SimpleText.t Sat Sep 7 21:33:43 2002<br/>@@ -18,13 +18,17 @@<br/> use Mac::TextEdit;<br/> <br/> $bounds = new Rect 50, 50, 550, 290;<br/>-$win = new MacWindow $bounds, &quot;Edit&quot;, 1, documentProc, 1;<br/>-$list= $win-&gt;new_textedit( <br/>- new Rect(15, 15, 485, 195),<br/>- new Rect(10, 10, 490, 200));<br/>+$win = new MacWindow $bounds, &quot;Edit&quot;, 1, documentProc, 1;<br/>+$list = $win-&gt;new_textedit( <br/>+ new Rect(15, 15, 485, 195),<br/>+ new Rect(10, 10, 490, 200));<br/> <br/> while ($win-&gt;window) {<br/> WaitNextEvent;<br/>+ $handle = $list-&gt;edit;<br/>+ $text = TEGetText($handle)-&gt;get if ref $handle;<br/> }<br/>+<br/>+print $text;<br/> <br/> dispose $win;<br/>End of Patch.<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/09/msg271.html Sun, 08 Sep 2002 15:39:46 +0000 Change 17668: Help fixes from Thomas Wegner by Chris Nandor Change 17668 by pudge@pudge-mobile on 2002/07/30 03:16:52<br/><br/> Help fixes from Thomas Wegner<br/><br/>Affected files ...<br/><br/>.... //depot/macperl/macos/macperl/BuildHelpIndex#2 edit<br/>.... //depot/macperl/macos/macperl/MacPerl.podhelp#4 edit<br/>.... //depot/maint-5.6/macperl/macos/macperl/BuildHelpIndex#2 edit<br/>.... //depot/maint-5.6/macperl/macos/macperl/MacPerl.podhelp#10 edit<br/>.... //depot/maint-5.8/macperl/macos/macperl/BuildHelpIndex#2 edit<br/>.... //depot/maint-5.8/macperl/macos/macperl/MacPerl.podhelp#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/macperl/macos/macperl/BuildHelpIndex#2 (text) ====<br/>Index: macperl/macos/macperl/BuildHelpIndex<br/>--- macperl/macos/macperl/BuildHelpIndex#1~16123~ Tue Apr 23 18:25:17 2002<br/>+++ macperl/macos/macperl/BuildHelpIndex Mon Jul 29 20:16:52 2002<br/>@@ -3,6 +3,461 @@<br/> <br/> #!perl -s<br/> <br/>+use Pod::Parser;<br/>+<br/>+package MyPodParseLink;<br/>+<br/>+##############################################################################<br/>+# Since Pod::ParseLink is (a) not part of the standard library prior to Perl <br/>+# 5.8, and (b) I needed to make a little change for compatibility with Shuck, <br/>+# its code was copied over here. All credits go to Russ Allbery.<br/>+##############################################################################<br/>+<br/>+# Parse the name and section portion of a link into a name and section.<br/>+sub _parse_section {<br/>+ my ($link) = @_;<br/>+ $link =~ s/^\s+//;<br/>+ $link =~ s/\s+$//;<br/>+<br/>+ # If the whole link is enclosed in quotes, interpret it all as a section<br/>+ # even if it contains a slash.<br/>+ return (undef, $1) if ($link =~ /^&quot;\s*(.*?)\s*&quot;$/);<br/>+<br/>+ # Split into page and section on slash, and then clean up quoting in the<br/>+ # section. If there is no section and the name contains spaces, also<br/>+ # guess that it&#39;s an old section link.<br/>+ my ($page, $section) = split (/\s*\/\s*/, $link, 2);<br/>+ $section =~ s/^&quot;\s*(.*?)\s*&quot;$/$1/ if $section;<br/>+ if ($page &amp;&amp; $page =~ / / &amp;&amp; !defined ($section)) {<br/>+ $section = $page;<br/>+ $page = undef;<br/>+ } else {<br/>+ $page = undef unless $page;<br/>+ $section = undef unless $section;<br/>+ }<br/>+ return ($page, $section);<br/>+}<br/>+<br/>+# Infer link text from the page and section.<br/>+sub _infer_text {<br/>+ my ($page, $section) = @_;<br/>+ my $inferred;<br/>+ if ($page &amp;&amp; !$section) {<br/>+ $inferred = $page;<br/>+ } elsif (!$page &amp;&amp; $section) {<br/>+ $inferred = &#39;&quot;&#39; . $section . &#39;&quot;&#39;;<br/>+ } elsif ($page &amp;&amp; $section) {<br/>+ # The string &#39;the section &#39; string is prepended for compatibility with <br/>+ # Shuck (this is the only difference from Pod::ParseLink)<br/>+ $inferred = &#39;the section &#39; . &#39;&quot;&#39; . $section . &#39;&quot; in &#39; . $page; <br/>+ }<br/>+ return $inferred;<br/>+}<br/>+<br/>+# Given the contents of an L&lt;&gt; formatting code, parse it into the link text,<br/>+# the possibly inferred link text, the name or URL, the section, and the type<br/>+# of link (pod, man, or url).<br/>+sub parselink {<br/>+ my ($link) = @_;<br/>+ $link =~ s/\s+/ /g;<br/>+ if ($link =~ /\A\w+:[^:\s]\S*\Z/) {<br/>+ return (undef, $link, $link, undef, &#39;url&#39;);<br/>+ } else {<br/>+ my $text;<br/>+ if ($link =~ /\|/) {<br/>+ ($text, $link) = split (/\|/, $link, 2);<br/>+ }<br/>+ my ($name, $section) = _parse_section ($link);<br/>+ my $inferred = $text || _infer_text ($name, $section);<br/>+ my $type = ($name &amp;&amp; $name =~ /\(\S*\)/) ? &#39;man&#39; : &#39;pod&#39;;<br/>+ return ($text, $inferred, $name, $section, $type);<br/>+ }<br/>+}<br/>+<br/>+<br/>+##############################################################################<br/>+# And now our Pod::Parser subclass, MyPodIndexer<br/>+# (A lot of this code was borrowed from Pod::Text, credits to Russ Allbery.)<br/>+##############################################################################<br/>+package MyPodIndexer;<br/>+@ISA = qw(Pod::Parser);<br/>+<br/>+# Table of supported E&lt;&gt; escapes for the Macintosh standard Roman character set.<br/>+# (These are exactly the same escapes as known by Shuck. This list is incomplete<br/>+# since the Macintosh standard Roman character set doesn&#39;t contain all characters<br/>+# defined in the ISO 8559-1 (Latin 1) character set.)<br/>+%ESCAPES = (<br/>+ &#39;amp&#39; =&gt; &#39;&amp;&#39;, # ampersand<br/>+ &#39;apos&#39; =&gt; &quot;&#39;&quot;, # apostrophe<br/>+ &#39;lt&#39; =&gt; &#39;&lt;&#39;, # left chevron, less-than<br/>+ &#39;gt&#39; =&gt; &#39;&gt;&#39;, # right chevron, greater-than<br/>+ &#39;quot&#39; =&gt; &#39;&quot;&#39;, # double quote<br/>+ &#39;sol&#39; =&gt; &#39;/&#39;, # solidus (forward slash)<br/>+ &#39;verbar&#39; =&gt; &#39;|&#39;, # vertical bar<br/>+<br/>+ &quot;Aacute&quot; =&gt; &quot;&Aacute;&quot;, # capital A, acute accent<br/>+ &quot;aacute&quot; =&gt; &quot;&aacute;&quot;, # small a, acute accent<br/>+ &quot;Acirc&quot; =&gt; &quot;&Acirc;&quot;, # capital A, circumflex accent<br/>+ &quot;acirc&quot; =&gt; &quot;&acirc;&quot;, # small a, circumflex accent<br/>+ &quot;AElig&quot; =&gt; &quot;&AElig;&quot;, # capital AE diphthong (ligature)<br/>+ &quot;aelig&quot; =&gt; &quot;&aelig;&quot;, # small ae diphthong (ligature)<br/>+ &quot;Agrave&quot; =&gt; &quot;&Agrave;&quot;, # capital A, grave accent<br/>+ &quot;agrave&quot; =&gt; &quot;&agrave;&quot;, # small a, grave accent<br/>+ &quot;Aring&quot; =&gt; &quot;&Aring;&quot;, # capital A, ring<br/>+ &quot;aring&quot; =&gt; &quot;&aring;&quot;, # small a, ring<br/>+ &quot;Atilde&quot; =&gt; &quot;&Atilde;&quot;, # capital A, tilde<br/>+ &quot;atilde&quot; =&gt; &quot;&atilde;&quot;, # small a, tilde<br/>+ &quot;Auml&quot; =&gt; &quot;&Auml;&quot;, # capital A, dieresis or umlaut mark<br/>+ &quot;auml&quot; =&gt; &quot;&auml;&quot;, # small a, dieresis or umlaut mark<br/>+ &quot;Ccedil&quot; =&gt; &quot;&Ccedil;&quot;, # capital C, cedilla<br/>+ &quot;ccedil&quot; =&gt; &quot;&ccedil;&quot;, # small c, cedilla<br/>+ &quot;Eacute&quot; =&gt; &quot;&Eacute;&quot;, # capital E, acute accent<br/>+ &quot;eacute&quot; =&gt; &quot;&eacute;&quot;, # small e, acute accent<br/>+ &quot;Ecirc&quot; =&gt; &quot;&Ecirc;&quot;, # capital E, circumflex accent<br/>+ &quot;ecirc&quot; =&gt; &quot;&ecirc;&quot;, # small e, circumflex accent<br/>+ &quot;Egrave&quot; =&gt; &quot;&Egrave;&quot;, # capital E, grave accent<br/>+ &quot;egrave&quot; =&gt; &quot;&egrave;&quot;, # small e, grave accent<br/>+ &quot;ETH&quot; =&gt; &quot;Eth&quot;, # capital Eth, Icelandic<br/>+ &quot;eth&quot; =&gt; &quot;eth&quot;, # small eth, Icelandic<br/>+ &quot;Euml&quot; =&gt; &quot;&Euml;&quot;, # capital E, dieresis or umlaut mark<br/>+ &quot;euml&quot; =&gt; &quot;&euml;&quot;, # small e, dieresis or umlaut mark<br/>+ &quot;Iacute&quot; =&gt; &quot;&Iacute;&quot;, # capital I, acute accent<br/>+ &quot;iacute&quot; =&gt; &quot;&iacute;&quot;, # small i, acute accent<br/>+ &quot;Icirc&quot; =&gt; &quot;&Icirc;&quot;, # capital I, circumflex accent<br/>+ &quot;icirc&quot; =&gt; &quot;&icirc;&quot;, # small i, circumflex accent<br/>+ &quot;Igrave&quot; =&gt; &quot;&Igrave;&quot;, # capital I, grave accent<br/>+ &quot;igrave&quot; =&gt; &quot;&igrave;&quot;, # small i, grave accent<br/>+ &quot;Iuml&quot; =&gt; &quot;&Iuml;&quot;, # capital I, dieresis or umlaut mark<br/>+ &quot;iuml&quot; =&gt; &quot;&iuml;&quot;, # small i, dieresis or umlaut mark<br/>+ &quot;Ntilde&quot; =&gt; &quot;&Ntilde;&quot;, # capital N, tilde<br/>+ &quot;ntilde&quot; =&gt; &quot;&ntilde;&quot;, # small n, tilde<br/>+ &quot;Oacute&quot; =&gt; &quot;&Oacute;&quot;, # capital O, acute accent<br/>+ &quot;oacute&quot; =&gt; &quot;&oacute;&quot;, # small o, acute accent<br/>+ &quot;Ocirc&quot; =&gt; &quot;&Ocirc;&quot;, # capital O, circumflex accent<br/>+ &quot;ocirc&quot; =&gt; &quot;&ocirc;&quot;, # small o, circumflex accent<br/>+ &quot;Ograve&quot; =&gt; &quot;&Ograve;&quot;, # capital O, grave accent<br/>+ &quot;ograve&quot; =&gt; &quot;&ograve;&quot;, # small o, grave accent<br/>+ &quot;Oslash&quot; =&gt; &quot;&Oslash;&quot;, # capital O, slash<br/>+ &quot;oslash&quot; =&gt; &quot;&oslash;&quot;, # small o, slash<br/>+ &quot;Otilde&quot; =&gt; &quot;&Otilde;&quot;, # capital O, tilde<br/>+ &quot;otilde&quot; =&gt; &quot;&otilde;&quot;, # small o, tilde<br/>+ &quot;Ouml&quot; =&gt; &quot;&Ouml;&quot;, # capital O, dieresis or umlaut mark<br/>+ &quot;ouml&quot; =&gt; &quot;&ouml;&quot;, # small o, dieresis or umlaut mark<br/>+ &quot;szlig&quot; =&gt; &quot;&szlig;&quot;, # small sharp s, German (sz ligature)<br/>+ &quot;THORN&quot; =&gt; &quot;Thorn&quot;, # capital THORN, Icelandic<br/>+ &quot;thorn&quot; =&gt; &quot;thorn&quot;, # small thorn, Icelandic<br/>+ &quot;Uacute&quot; =&gt; &quot;&Uacute;&quot;, # capital U, acute accent<br/>+ &quot;uacute&quot; =&gt; &quot;&uacute;&quot;, # small u, acute accent<br/>+ &quot;Ucirc&quot; =&gt; &quot;&Ucirc;&quot;, # capital U, circumflex accent<br/>+ &quot;ucirc&quot; =&gt; &quot;&ucirc;&quot;, # small u, circumflex accent<br/>+ &quot;Ugrave&quot; =&gt; &quot;&Ugrave;&quot;, # capital U, grave accent<br/>+ &quot;ugrave&quot; =&gt; &quot;&ugrave;&quot;, # small u, grave accent<br/>+ &quot;Uuml&quot; =&gt; &quot;&Uuml;&quot;, # capital U, dieresis or umlaut mark<br/>+ &quot;uuml&quot; =&gt; &quot;&uuml;&quot;, # small u, dieresis or umlaut mark<br/>+ &quot;Yacute&quot; =&gt; &quot;&acute;Y&quot;, # capital Y, acute accent<br/>+ &quot;yacute&quot; =&gt; &quot;&acute;y&quot;, # small y, acute accent<br/>+ &quot;yuml&quot; =&gt; &quot;&yuml;&quot;, # small y, dieresis or umlaut mark<br/>+<br/>+ &quot;laquo&quot; =&gt; &quot;&laquo;&quot;, # left pointing double angle quotation mark<br/>+ &quot;lchevron&quot; =&gt; &quot;&laquo;&quot;, # synonym (backwards compatibility)<br/>+ &quot;raquo&quot; =&gt; &quot;&raquo;&quot;, # right pointing double angle quotation mark<br/>+ &quot;rchevron&quot; =&gt; &quot;&raquo;&quot;, # synonym (backwards compatibility)<br/>+<br/>+ &quot;iexcl&quot; =&gt; &quot;&iexcl;&quot;, # inverted exclamation mark<br/>+ &quot;cent&quot; =&gt; &quot;&cent;&quot;, # cent sign<br/>+ &quot;pound&quot; =&gt; &quot;&pound;&quot;, # (UK) pound sign<br/>+<br/>+ &quot;yen&quot; =&gt; &quot;&yen;&quot;, # yen sign<br/>+<br/>+ &quot;sect&quot; =&gt; &quot;&sect;&quot;, # section sign<br/>+ &quot;uml&quot; =&gt; &quot;&uml;&quot;, # diaresis<br/>+ &quot;copy&quot; =&gt; &quot;&copy;&quot;, # Copyright symbol<br/>+ &quot;ordf&quot; =&gt; &quot;&ordf;&quot;, # feminine ordinal indicator<br/>+ &quot;not&quot; =&gt; &quot;&not;&quot;, # not sign<br/>+ <br/>+ &quot;reg&quot; =&gt; &quot;&reg;&quot;, # registered trademark<br/>+ &quot;macr&quot; =&gt; &quot;&macr;&quot;, # macron, overline<br/>+ &quot;deg&quot; =&gt; &quot;&deg;&quot;, # degree sign<br/>+ &quot;plusmn&quot; =&gt; &quot;&plusmn;&quot;, # plus-minus sign<br/>+<br/>+ &quot;acute&quot; =&gt; &quot;&acute;&quot;, # acute accent<br/>+ &quot;micro&quot; =&gt; &quot;&micro;&quot;, # micro sign<br/>+ &quot;para&quot; =&gt; &quot;&para;&quot;, # pilcrow sign = paragraph sign<br/>+ &quot;middot&quot; =&gt; &quot;&middot;&quot;, # middle dot = Georgian comma<br/>+ &quot;cedil&quot; =&gt; &quot;&cedil;&quot;, # cedilla<br/>+<br/>+ &quot;ordm&quot; =&gt; &quot;&ordm;&quot;, # masculine ordinal indicator<br/>+<br/>+ &quot;iquest&quot; =&gt; &quot;&iquest;&quot;, # inverted question mark<br/>+ &quot;times&quot; =&gt; &quot;x&quot;, # multiplication sign (just an x)<br/>+ &quot;divide&quot; =&gt; &quot;&divide;&quot;, # division sign<br/>+<br/>+ &quot;nbsp&quot; =&gt; &quot;&nbsp;&quot;, # non-breaking space<br/>+);<br/>+<br/>+<br/>+# This array maps the ISO 8559-1 (Latin-1) character set to the Mac standard Roman character set.<br/>+# Latin 1: The first 127 characters are equal to ASCII. (0x00 - 0x7F, 0 - 127, where 127 is non-printable)<br/>+# The next 32 characters are non-printable. (0x80 - 0x9F, 128 - 159) <br/>+# The last 96 characters are shown below. (0xA0 - 0xFF, 160 - 255)<br/>+#<br/>+# (subtract 160 from the Latin-1 char code to get the array index)<br/>+@Latin1_to_MacRoman_MAP = ( <br/>+<br/>+ 0xCA, # 0 -- 0xA0, 160, &#39; &#39; -&gt; nonbreaking space<br/>+ 0xC1, # 1 -- 0xA1, 161, &#39;&iexcl;&#39; -&gt; inverted exclamation mark<br/>+ 0xA2, # 2 -- 0xA2, 162, &#39;&cent;&#39; -&gt; cent sign<br/>+ 0xA3, # 3 -- 0xA3, 163, &#39;&pound;&#39; -&gt; (UK) pound sign<br/>+ 0xDB, # 4 -- 0xA4, 164, &#39;&curren;&#39; -&gt; currency sign (some fonts display it as Euro sign; select e.g. Futura to see it)<br/>+ 0xB4, # 5 -- 0xA5, 165, &#39;&yen;&#39; -&gt; yen sign<br/>+ 0x00, # 6 -- 0xA6, 166, n/a -&gt; broken vertical bar (not in the Mac standard Roman character set)<br/>+ 0xA4, # 7 -- 0xA7, 167, &#39;&sect;&#39; -&gt; section sign<br/>+ 0xAC, # 8 -- 0xA8, 168, &#39;&uml;&#39; -&gt; diaresis<br/>+ 0xA9, # 9 -- 0xA9, 169, &#39;&copy;&#39; -&gt; Copyright symbol<br/>+<br/>+ 0xBB, # 10 -- 0xAA, 170, &#39;&ordf;&#39; -&gt; feminine ordinal indicator <br/>+ 0xC7, # 11 -- 0xAB, 171, &#39;&laquo;&#39; -&gt; left pointing double angle quotation mark, guillemotleft<br/>+ 0xC2, # 12 -- 0xAC, 172, &#39;&not;&#39; -&gt; (logical) not sign<br/>+ 0xD0, # 13 -- 0xAD, 173, &#39;&shy;&#39; -&gt; soft (discretionary) hyphen (endash)<br/>+ 0xA8, # 14 -- 0xAE, 174, &#39;&reg;&#39; -&gt; registered<br/>+ 0xF8, # 15 -- 0xAF, 175, &#39;&macr;&#39; -&gt; macron, overline<br/>+ 0xA1, # 16 -- 0xB0, 176, &#39;&deg;&#39; -&gt; degree sign<br/>+ 0xB1, # 17 -- 0xB1, 177, &#39;&plusmn;&#39; -&gt; plus-minus sign<br/>+ 0x00, # 18 -- 0xB2, 178, n/a -&gt; superscript 2 (not in the Mac standard Roman character set)<br/>+ 0x00, # 19 -- 0xB3, 179, n/a -&gt; superscript 3 (not in the Mac standard Roman character set)<br/>+<br/>+ 0xAB, # 20 -- 0xB4, 180, &#39;&acute;&#39; -&gt; acute accent<br/>+ 0xB5, # 21 -- 0xB5, 181, &#39;&micro;&#39; -&gt; micro sign<br/>+ 0xA6, # 22 -- 0xB6, 182, &#39;&para;&#39; -&gt; pilcrow sign = paragraph sign<br/>+ 0xE1, # 23 -- 0xB7, 183, &#39;&middot;&#39; -&gt; middle dot or periodcentered = Georgian comma<br/>+ 0xFC, # 24 -- 0xB8, 184, &#39;&cedil;&#39; -&gt; cedilla<br/>+ 0x00, # 25 -- 0xB9, 185, n/a -&gt; superscript 1 (not in the Mac standard Roman character set)<br/>+ 0xBC, # 26 -- 0xBA, 186, &#39;&ordm;&#39; -&gt; masculine ordinal indicator<br/>+ 0xC8, # 27 -- 0xBB, 187, &#39;&raquo;&#39; -&gt; right pointing double angle quotation mark, guillemotright<br/>+ 0x00, # 28 -- 0xBC, 188, n/a -&gt; vulgar fraction one quarter (not in the Mac standard Roman character set)<br/>+ 0x00, # 29 -- 0xBD, 189, n/a -&gt; vulgar fraction one half (not in the Mac standard Roman character set)<br/>+<br/>+ 0x00, # 30 -- 0xBE, 190, n/a -&gt; vulgar fraction three quarters (not in the Mac standard Roman character set)<br/>+ 0xC0, # 31 -- 0xBF, 191, &#39;&iquest;&#39; -&gt; inverted question mark<br/>+ 0xCB, # 32 -- 0xC0, 192, &#39;&Agrave;&#39; -&gt; capital A, grave accent<br/>+ 0xE7, # 33 -- 0xC1, 193, &#39;&Aacute;&#39; -&gt; capital A, acute accent<br/>+ 0xE5, # 34 -- 0xC2, 194, &#39;&Acirc;&#39; -&gt; capital A, circumflex accent<br/>+ 0xCC, # 35 -- 0xC3, 195, &#39;&Atilde;&#39; -&gt; capital A, tilde<br/>+ 0x80, # 36 -- 0xC4, 196, &#39;&Auml;&#39; -&gt; capital A, dieresis or umlaut mark<br/>+ 0x81, # 37 -- 0xC5, 197, &#39;&Aring;&#39; -&gt; capital A, ring<br/>+ 0xAE, # 38 -- 0xC6, 198, &#39;&AElig;&#39; -&gt; capital AE diphthong (ligature)<br/>+ 0x82, # 39 -- 0xC7, 199, &#39;&Ccedil;&#39; -&gt; capital C, cedilla<br/>+ <br/>+ 0xE9, # 40 -- 0xC8, 200, &#39;&Egrave;&#39; -&gt; capital E, grave accent<br/>+ 0x83, # 41 -- 0xC9, 201, &#39;&Eacute;&#39; -&gt; capital E, acute accent<br/>+ 0xE6, # 42 -- 0xCA, 202, &#39;&Ecirc;&#39; -&gt; capital E, circumflex accent<br/>+ 0xE8, # 43 -- 0xCB, 203, &#39;&Euml;&#39; -&gt; capital E, dieresis or umlaut mark<br/>+ 0xED, # 44 -- 0xCC, 204, &#39;&Igrave;&#39; -&gt; capital I, grave accent<br/>+ 0xEA, # 45 -- 0xCD, 205, &#39;&Iacute;&#39; -&gt; capital I, acute accent<br/>+ 0xEB, # 46 -- 0xCE, 206, &#39;&Icirc;&#39; -&gt; capital I, circumflex accent<br/>+ 0xEC, # 47 -- 0xCF, 207, &#39;&Iuml;&#39; -&gt; capital I, dieresis or umlaut mark <br/>+ 0x00, # 48 -- 0xD0, 208, n/a -&gt; capital Eth, Icelandic (not in the Mac standard Roman character set)<br/>+ 0x84, # 49 -- 0xD1, 209, &#39;&Ntilde;&#39; -&gt; capital N, tilde<br/>+<br/>+ 0xF1, # 50 -- 0xD2, 210, &#39;&Ograve;&#39; -&gt; capital O, grave accent<br/>+ 0xEE, # 51 -- 0xD3, 211, &#39;&Oacute;&#39; -&gt; capital O, acute accent<br/>+ 0xEF, # 52 -- 0xD4, 212, &#39;&Ocirc;&#39; -&gt; capital O, circumflex accent<br/>+ 0xCD, # 53 -- 0xD5, 213, &#39;&Otilde;&#39; -&gt; capital O, tilde<br/>+ 0x85, # 54 -- 0xD6, 214, &#39;&Ouml;&#39; -&gt; capital O, dieresis or umlaut mark<br/>+ 0x00, # 55 -- 0xD7, 215, n/a -&gt; multiplication sign (not in the Mac standard Roman character set)<br/>+ 0xAF, # 56 -- 0xD8, 216, &#39;&Oslash;&#39; -&gt; capital O, slash<br/>+ 0xF4, # 57 -- 0xD9, 217, &#39;&Ugrave;&#39; -&gt; capital U, grave accent<br/>+ 0xF2, # 58 -- 0xDA, 218, &#39;&Uacute;&#39; -&gt; capital U, acute accent<br/>+ 0xF3, # 59 -- 0xDB, 219, &#39;&Ucirc;&#39; -&gt; capital U, circumflex accent<br/>+ <br/>+ 0x86, # 60 -- 0xDC, 220, &#39;&Uuml;&#39; -&gt; capital U, dieresis or umlaut mark<br/>+ 0x00, # 61 -- 0xDD, 221, n/a -&gt; capital Y, acute accent (not in the Mac standard Roman character set)<br/>+ 0x00, # 62 -- 0xDE, 222, n/a -&gt; capital THORN, Icelandic (not in the Mac standard Roman character set)<br/>+ 0xA7, # 63 -- 0xDF, 223, &#39;&szlig;&#39; -&gt; small sharp s, German (sz ligature)<br/>+ 0x88, # 64 -- 0xE0, 224, &#39;&agrave;&#39; -&gt; small a, grave accent<br/>+ 0x87, # 65 -- 0xE1, 225, &#39;&aacute;&#39; -&gt; small a, acute accent<br/>+ 0x89, # 66 -- 0xE2, 226, &#39;&acirc;&#39; -&gt; small a, circumflex accent<br/>+ 0x8B, # 67 -- 0xE3, 227, &#39;&atilde;&#39; -&gt; small a, tilde<br/>+ 0x8A, # 69 -- 0xE4, 228, &#39;&auml;&#39; -&gt; small a, dieresis or umlaut mark<br/>+ 0x8C, # 69 -- 0xE5, 229, &#39;&aring;&#39; -&gt; small a, ring<br/>+<br/>+ 0xBE, # 70 -- 0xE6, 230, &#39;&aelig;&#39; -&gt; small ae diphthong (ligature)<br/>+ 0x8D, # 71 -- 0xE7, 231, &#39;&ccedil;&#39; -&gt; small c, cedilla<br/>+ 0x8F, # 72 -- 0xE8, 232, &#39;&egrave;&#39; -&gt; small e, grave accent<br/>+ 0x8E, # 73 -- 0xE9, 233, &#39;&eacute;&#39; -&gt; small e, acute accent<br/>+ 0x90, # 74 -- 0xEA, 234, &#39;&ecirc;&#39; -&gt; small e, circumflex accent<br/>+ 0x91, # 75 -- 0xEB, 235, &#39;&euml;&#39; -&gt; small e, dieresis or umlaut mark<br/>+ 0x93, # 76 -- 0xEC, 236, &#39;&igrave;&#39; -&gt; small i, grave accent <br/>+ 0x92, # 77 -- 0xED, 237, &#39;&iacute;&#39; -&gt; small i, acute accent<br/>+ 0x94, # 78 -- 0xEE, 238, &#39;&icirc;&#39; -&gt; small i, circumflex accent<br/>+ 0x95, # 79 -- 0xEF, 239, &#39;&iuml;&#39; -&gt; small i, dieresis or umlaut mark<br/>+<br/>+ 0x00, # 80 -- 0xF0, 240, n/a -&gt; small eth, Icelandic (not in the Mac standard Roman character set)<br/>+ 0x96, # 81 -- 0xF1, 241, &#39;&ntilde;&#39; -&gt; small n, tilde<br/>+ 0x98, # 82 -- 0xF2, 242, &#39;&ograve;&#39; -&gt; small o, grave accent<br/>+ 0x97, # 83 -- 0xF3, 243, &#39;&oacute;&#39; -&gt; small o, acute accent<br/>+ 0x99, # 84 -- 0xF4, 244, &#39;&ocirc;&#39; -&gt; small o, circumflex accent<br/>+ 0x9B, # 85 -- 0xF5, 245, &#39;&otilde;&#39; -&gt; small o, tilde<br/>+ 0xBB, # 86 -- 0xF6, 246, &#39;&ouml;&#39; -&gt; small o, dieresis or umlaut mark <br/>+ 0xD6, # 87 -- 0xF7, 247, &#39;&divide;&#39; -&gt; division sign<br/>+ 0xBF, # 88 -- 0xF8, 248, &#39;&oslash;&#39; -&gt; small o, slash<br/>+ 0x9D, # 89 -- 0xF9, 249, &#39;&ugrave;&#39; -&gt; small u, grave accent<br/>+<br/>+ 0x9C, # 90 -- 0xFA, 250, &#39;&uacute;&#39; -&gt; small u, acute accent<br/>+ 0x9E, # 91 -- 0xFB, 251, &#39;&ucirc;&#39; -&gt; small u, circumflex accent<br/>+ 0x9F, # 92 -- 0xFC, 252, &#39;&uuml;&#39; -&gt; small u, dieresis or umlaut mark<br/>+ 0x00, # 93 -- 0xFD, 253, n/a -&gt; small y, acute accent (not in the Mac standard Roman character set)<br/>+ 0x00, # 94 -- 0xFE, 254, n/a -&gt; small thorn, Icelandic (not in the Mac standard Roman character set)<br/>+ 0xD8 # 95 -- 0xFF, 255, &#39;&yuml;&#39; -&gt; small y, dieresis or umlaut mark<br/>+<br/>+);<br/>+<br/>+ <br/>+ <br/>+sub command {<br/>+ my ($parser, $command, $paragraph, $line_num) = @_;<br/>+ my $out_fh = $parser-&gt;output_handle();<br/>+ my $expansion;<br/>+ <br/>+ # interpret the command and its text <br/>+ # for indexing, only =heads and =items are of interest<br/>+ if ( ($command eq &#39;head1&#39;) || ($command eq &#39;head2&#39;) ||<br/>+ ($command eq &#39;head3&#39;) || ($command eq &#39;head4&#39;) ||<br/>+ ($command eq &#39;item&#39;) ) <br/>+ {<br/>+ # expand formatting codes<br/>+ $expansion = $parser-&gt;interpolate($paragraph, $line_num);<br/>+ # print to out file<br/>+ print $out_fh &#39;=&#39; . $command . &#39; &#39; . $expansion;<br/>+ }<br/>+}<br/>+<br/>+sub verbatim {<br/>+ my ($parser, $paragraph, $line_num) = @_; <br/>+ # do nothing<br/>+}<br/>+<br/>+sub textblock {<br/>+ my ($parser, $paragraph, $line_num) = @_; <br/>+ # do nothing<br/>+}<br/>+<br/>+<br/>+# Handle links. Most of the work is done by MyPodParseLink.<br/>+sub seq_Link {<br/>+ my ($self, $link, $seq) = @_;<br/>+ my ($text, $type) = (MyPodParseLink::parselink ($link))[1,4];<br/>+ my ($file, $line) = $seq-&gt;file_line;<br/>+ $text = $self-&gt;interpolate ($text, $line);<br/>+ $text = &#39;&lt;&#39; . $text . &#39;&gt;&#39; if $type eq &#39;url&#39;;<br/>+ return $text || &#39;&#39;;<br/>+}<br/>+<br/>+# Called for a formatting code. Gets the command, argument, and a<br/>+# Pod::InteriorSequence object and is expected to return the resulting text.<br/>+sub interior_sequence {<br/>+ my ($parser, $seq_command, $seq_argument, $pod_seq) = @_;<br/>+<br/>+ my $parent = $pod_seq-&gt;nested;<br/>+ while (defined $parent) {<br/>+ return $pod_seq-&gt;raw_text if ($parent-&gt;cmd_name eq &#39;L&#39;);<br/>+ $parent = $parent-&gt;nested;<br/>+ }<br/>+ <br/>+ # get filename and line number <br/>+ my ($file, $line) = $pod_seq-&gt;file_line;<br/>+<br/>+ # Index entries are ignored in plain text.<br/>+ return &#39;&#39; if ($seq_command eq &#39;X&#39; || $seq_command eq &#39;Z&#39;);<br/>+ <br/>+ # Expand escapes into the actual character now, warning if invalid.<br/>+ if ($seq_command eq &#39;E&#39;) {<br/>+ <br/>+ my $is_Number = 0;<br/>+ if ( $seq_argument =~ m/^(0x[a-fA-F0-9]+)$/ ) { <br/>+ # hexadecimal<br/>+ $charCode = hex($1);<br/>+ $is_Number = 1;<br/>+ }<br/>+ elsif ( $seq_argument =~ m/^(0[0-7]+)$/ ) {<br/>+ # octal<br/>+ $charCode = oct($1);<br/>+ $is_Number = 1;<br/>+ }<br/>+ elsif ( $seq_argument =~ m/^(0|(?:[1-9][0-9]*))$/) {<br/>+ # decimal, but not e.g. 099<br/>+ $charCode = $1;<br/>+ $is_Number = 1;<br/>+ }<br/>+ <br/>+ if ($is_Number) { # $seq_argument is a character number<br/>+ <br/>+ if ( ($charCode &lt; 0) || ($charCode &gt; 255) ) {<br/>+ warn &quot;$file:$line: Character code out of range: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ <br/>+ } <br/>+ else {<br/>+ <br/>+ if ($charCode &lt; 32) { <br/>+ # standard ASCII, non-printable <br/>+ warn &quot;$file:$line: Character is non-printable: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ elsif ( ($charCode &gt;= 32) &amp;&amp; ($charCode &lt; 127) ) { <br/>+ # standard ASCII <br/>+ return chr($charCode); <br/>+ }<br/>+ elsif ( ($charCode &gt;= 127) &amp;&amp; ($charCode &lt; 160) ) {<br/>+ # 127 : standard ASCII, but non-printable (DEL)<br/>+ # 128 - 159 : not defined in ISO 8559-1 (Latin-1) <br/>+ warn &quot;$file:$line: Character is non-printable: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ else { <br/>+ # 160 - 255 (0xA0 - 0xFF)<br/>+ # map ISO 8559-1 (Latin-1) to Mac standard Roman <br/>+ my $MacCharCode = $Latin1_to_MacRoman_MAP[$charCode-160];<br/>+ if ($MacCharCode == 0) { <br/>+ # not in Mac Roman<br/>+ warn &quot;$file:$line: Character is not in the Macintosh standard Roman character set: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;; <br/>+ } <br/>+ else {<br/>+ return chr($MacCharCode);<br/>+ }<br/>+ }<br/>+ }<br/>+ <br/>+ } <br/>+ else {<br/>+ return $ESCAPES{$seq_argument} if defined $ESCAPES{$seq_argument};<br/>+ warn &quot;$file:$line: Unknown escape: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ }<br/>+<br/>+ # For all the other formatting codes, empty content produces no output.<br/>+ return if $seq_argument eq &#39;&#39;;<br/>+ <br/>+ # L gets dispatched to another method, anything else returns its argument <br/>+ if ($seq_command eq &#39;B&#39;) { return &quot;$seq_argument&quot;;}<br/>+ elsif ($seq_command eq &#39;C&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;F&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;I&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;S&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;L&#39;) { return $parser-&gt;seq_Link ($seq_argument, $pod_seq) }<br/>+ else {<br/>+ warn &quot;$file:$line: Unknown formatting code: $$seq_command&lt;${seq_argument}&gt;\n&quot;;<br/>+ } <br/>+}<br/>+<br/>+<br/>+##############################################################################<br/>+# MAIN <br/>+##############################################################################<br/>+package main;<br/>+<br/> ($index = shift @ARGV) || die &quot;No help index specified&quot;;<br/> <br/> dbmopen(%INDEX, $index, 0666) || die &quot;Couldn&#39;t open index file \&quot;$index\&quot;&quot;;<br/>@@ -123,6 +578,15 @@<br/> local($file, $var) = @_;<br/> local(%rename, %alias);<br/> <br/>+ # Create a parser object <br/>+ my $parser = new MyPodIndexer(); <br/>+ $file =~ m/([^:]+)\.pod$/;<br/>+ my $indexfile = $1 . &#39;.idx&#39;; # our temporary index file <br/>+<br/>+ # Read POD from file.pod and write to file.idx<br/>+ # (create the index file in our current directory, which normally is &quot;:macperl_src:macperl:&quot;)<br/>+ $parser-&gt;parse_from_file (&quot;::perl$file&quot;, &quot;:$indexfile&quot;);<br/>+ <br/> $url = $file;<br/> if ($url =~ /^:/) {<br/> $url = $&#39;;<br/>@@ -132,7 +596,7 @@<br/> $url =~ s|:|/|g; <br/> $url = &quot;pod://$url&quot;;<br/> }<br/>- open(INDEX, &quot;::perl$file&quot;) ||&nbsp;die &quot;Can&#39;t open index file \&quot;$file\&quot;&quot;;<br/>+ open(INDEX, &quot;:$indexfile&quot;) ||&nbsp;die &quot;Can&#39;t open index file \&quot;$indexfile\&quot;&quot;;<br/> while (&lt;&gt;) {<br/> if (/\@end/) {<br/> goto startindex;<br/>@@ -154,7 +618,13 @@<br/> while (&lt;INDEX&gt;) {<br/> if (/^=item\s+(.*\S)\s*$/) {<br/> $name = $1;<br/>- next if ($name eq &quot;*&quot;);<br/>+ <br/>+ # bullet lists and numbered lists are not indexed by Shuck<br/>+ next if ($name eq &quot;*&quot;); # skip =item *<br/>+ next if ($name =~ m/^\d+\.?$/); # skip =item 1/2./0377 (decimal, octal)<br/>+ next if ($name =~ m/^0x[0-9a-fA-F]+$/); # skip =item 0x20 (hex)<br/>+ next if ($name =~ m/^0b[01]+$/); # skip =item 0b1100 (binary)<br/>+ <br/> if ($name =~ /^\$([A-Za-z_]+|\^[A-Z]|&lt;I&lt;digit&gt;&gt;|.)(.?)/) {<br/> if ($2 eq &quot;{&quot;) {<br/> $key = &quot;\%$1&quot;;<br/>@@ -192,4 +662,7 @@<br/> warn &quot;\&quot;$value\&quot; undefined&quot; unless $INDEX{$value};<br/> $INDEX{$lastkey = $key} ||= $INDEX{$value};<br/> }<br/>+ <br/>+ close INDEX;<br/>+ unlink $indexfile;<br/> }<br/><br/>==== //depot/macperl/macos/macperl/MacPerl.podhelp#4 (text) ====<br/>Index: macperl/macos/macperl/MacPerl.podhelp<br/>--- macperl/macos/macperl/MacPerl.podhelp#3~16977~ Sun Jun 2 10:21:45 2002<br/>+++ macperl/macos/macperl/MacPerl.podhelp Mon Jul 29 20:16:52 2002<br/>@@ -87,10 +87,8 @@<br/> pod:pod/perlop.pod Operators and precedence (perlop)<br/> pod:pod/perlsub.pod Subroutines (perlsub)<br/> pod:pod/perlfunc.pod Builtin functions (perlfunc)<br/>-@sub Function Tutorials<br/> pod:pod/perlopentut.pod open() tutorial (perlopentut)<br/> pod:pod/perlpacktut.pod pack() and unpack() tutorial (perlpacktut)<br/>-@end<br/> @sep<br/> pod:pod/perlpod.pod Plain old documentation (perlpod)<br/> pod:pod/perlpodspec.pod Plain old documentation format specification (perlpod)<br/>@@ -122,13 +120,11 @@<br/> @sep<br/> pod:pod/perlsec.pod Security (perlsec)<br/> @sep<br/>-@sub Modules<br/>-pod:pod/perlmod.pod How they work (perlmod)<br/>+pod:pod/perlmod.pod How modules work (perlmod)<br/> pod:pod/perlmodlib.pod How to write and use (perlmodlib)<br/> pod:pod/perlmodstyle.pod How to write with style (perlmodstyle)<br/> pod:pod/perlmodinstall.pod How to install from CPAN (perlmodinstall)<br/> pod:pod/perlnewmod.pod Preparing a new module for distribution (perlnewmod)<br/>-@end<br/> @sep<br/> pod:pod/perlutil.pod Utilities packaged with the Perl distribution (perlutil)<br/> pod:pod/perlfilter.pod Source filters (perlfilter)<br/>@@ -209,7 +205,8 @@<br/> @alias ^ Bitwise Or and Exclusive Or<br/> @alias &amp;&amp; C-style Logical And<br/> @alias || C-style Logical Or<br/>-@alias .. Range Operator<br/>+@alias .. Range Operators<br/>+@alias ... Range Operators<br/> @alias ? Conditional Operator<br/> @alias : Conditional Operator<br/> @alias = Assignment Operators<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/BuildHelpIndex#2 (text) ====<br/>Index: macperl/macos/macperl/BuildHelpIndex<br/>--- macperl/macos/macperl/BuildHelpIndex#1~11243~ Mon Jul 9 15:16:12 2001<br/>+++ macperl/macos/macperl/BuildHelpIndex Mon Jul 29 20:16:52 2002<br/>@@ -3,6 +3,461 @@<br/> <br/> #!perl -s<br/> <br/>+use Pod::Parser;<br/>+<br/>+package MyPodParseLink;<br/>+<br/>+##############################################################################<br/>+# Since Pod::ParseLink is (a) not part of the standard library prior to Perl <br/>+# 5.8, and (b) I needed to make a little change for compatibility with Shuck, <br/>+# its code was copied over here. All credits go to Russ Allbery.<br/>+##############################################################################<br/>+<br/>+# Parse the name and section portion of a link into a name and section.<br/>+sub _parse_section {<br/>+ my ($link) = @_;<br/>+ $link =~ s/^\s+//;<br/>+ $link =~ s/\s+$//;<br/>+<br/>+ # If the whole link is enclosed in quotes, interpret it all as a section<br/>+ # even if it contains a slash.<br/>+ return (undef, $1) if ($link =~ /^&quot;\s*(.*?)\s*&quot;$/);<br/>+<br/>+ # Split into page and section on slash, and then clean up quoting in the<br/>+ # section. If there is no section and the name contains spaces, also<br/>+ # guess that it&#39;s an old section link.<br/>+ my ($page, $section) = split (/\s*\/\s*/, $link, 2);<br/>+ $section =~ s/^&quot;\s*(.*?)\s*&quot;$/$1/ if $section;<br/>+ if ($page &amp;&amp; $page =~ / / &amp;&amp; !defined ($section)) {<br/>+ $section = $page;<br/>+ $page = undef;<br/>+ } else {<br/>+ $page = undef unless $page;<br/>+ $section = undef unless $section;<br/>+ }<br/>+ return ($page, $section);<br/>+}<br/>+<br/>+# Infer link text from the page and section.<br/>+sub _infer_text {<br/>+ my ($page, $section) = @_;<br/>+ my $inferred;<br/>+ if ($page &amp;&amp; !$section) {<br/>+ $inferred = $page;<br/>+ } elsif (!$page &amp;&amp; $section) {<br/>+ $inferred = &#39;&quot;&#39; . $section . &#39;&quot;&#39;;<br/>+ } elsif ($page &amp;&amp; $section) {<br/>+ # The string &#39;the section &#39; string is prepended for compatibility with <br/>+ # Shuck (this is the only difference from Pod::ParseLink)<br/>+ $inferred = &#39;the section &#39; . &#39;&quot;&#39; . $section . &#39;&quot; in &#39; . $page; <br/>+ }<br/>+ return $inferred;<br/>+}<br/>+<br/>+# Given the contents of an L&lt;&gt; formatting code, parse it into the link text,<br/>+# the possibly inferred link text, the name or URL, the section, and the type<br/>+# of link (pod, man, or url).<br/>+sub parselink {<br/>+ my ($link) = @_;<br/>+ $link =~ s/\s+/ /g;<br/>+ if ($link =~ /\A\w+:[^:\s]\S*\Z/) {<br/>+ return (undef, $link, $link, undef, &#39;url&#39;);<br/>+ } else {<br/>+ my $text;<br/>+ if ($link =~ /\|/) {<br/>+ ($text, $link) = split (/\|/, $link, 2);<br/>+ }<br/>+ my ($name, $section) = _parse_section ($link);<br/>+ my $inferred = $text || _infer_text ($name, $section);<br/>+ my $type = ($name &amp;&amp; $name =~ /\(\S*\)/) ? &#39;man&#39; : &#39;pod&#39;;<br/>+ return ($text, $inferred, $name, $section, $type);<br/>+ }<br/>+}<br/>+<br/>+<br/>+##############################################################################<br/>+# And now our Pod::Parser subclass, MyPodIndexer<br/>+# (A lot of this code was borrowed from Pod::Text, credits to Russ Allbery.)<br/>+##############################################################################<br/>+package MyPodIndexer;<br/>+@ISA = qw(Pod::Parser);<br/>+<br/>+# Table of supported E&lt;&gt; escapes for the Macintosh standard Roman character set.<br/>+# (These are exactly the same escapes as known by Shuck. This list is incomplete<br/>+# since the Macintosh standard Roman character set doesn&#39;t contain all characters<br/>+# defined in the ISO 8559-1 (Latin 1) character set.)<br/>+%ESCAPES = (<br/>+ &#39;amp&#39; =&gt; &#39;&amp;&#39;, # ampersand<br/>+ &#39;apos&#39; =&gt; &quot;&#39;&quot;, # apostrophe<br/>+ &#39;lt&#39; =&gt; &#39;&lt;&#39;, # left chevron, less-than<br/>+ &#39;gt&#39; =&gt; &#39;&gt;&#39;, # right chevron, greater-than<br/>+ &#39;quot&#39; =&gt; &#39;&quot;&#39;, # double quote<br/>+ &#39;sol&#39; =&gt; &#39;/&#39;, # solidus (forward slash)<br/>+ &#39;verbar&#39; =&gt; &#39;|&#39;, # vertical bar<br/>+<br/>+ &quot;Aacute&quot; =&gt; &quot;&Aacute;&quot;, # capital A, acute accent<br/>+ &quot;aacute&quot; =&gt; &quot;&aacute;&quot;, # small a, acute accent<br/>+ &quot;Acirc&quot; =&gt; &quot;&Acirc;&quot;, # capital A, circumflex accent<br/>+ &quot;acirc&quot; =&gt; &quot;&acirc;&quot;, # small a, circumflex accent<br/>+ &quot;AElig&quot; =&gt; &quot;&AElig;&quot;, # capital AE diphthong (ligature)<br/>+ &quot;aelig&quot; =&gt; &quot;&aelig;&quot;, # small ae diphthong (ligature)<br/>+ &quot;Agrave&quot; =&gt; &quot;&Agrave;&quot;, # capital A, grave accent<br/>+ &quot;agrave&quot; =&gt; &quot;&agrave;&quot;, # small a, grave accent<br/>+ &quot;Aring&quot; =&gt; &quot;&Aring;&quot;, # capital A, ring<br/>+ &quot;aring&quot; =&gt; &quot;&aring;&quot;, # small a, ring<br/>+ &quot;Atilde&quot; =&gt; &quot;&Atilde;&quot;, # capital A, tilde<br/>+ &quot;atilde&quot; =&gt; &quot;&atilde;&quot;, # small a, tilde<br/>+ &quot;Auml&quot; =&gt; &quot;&Auml;&quot;, # capital A, dieresis or umlaut mark<br/>+ &quot;auml&quot; =&gt; &quot;&auml;&quot;, # small a, dieresis or umlaut mark<br/>+ &quot;Ccedil&quot; =&gt; &quot;&Ccedil;&quot;, # capital C, cedilla<br/>+ &quot;ccedil&quot; =&gt; &quot;&ccedil;&quot;, # small c, cedilla<br/>+ &quot;Eacute&quot; =&gt; &quot;&Eacute;&quot;, # capital E, acute accent<br/>+ &quot;eacute&quot; =&gt; &quot;&eacute;&quot;, # small e, acute accent<br/>+ &quot;Ecirc&quot; =&gt; &quot;&Ecirc;&quot;, # capital E, circumflex accent<br/>+ &quot;ecirc&quot; =&gt; &quot;&ecirc;&quot;, # small e, circumflex accent<br/>+ &quot;Egrave&quot; =&gt; &quot;&Egrave;&quot;, # capital E, grave accent<br/>+ &quot;egrave&quot; =&gt; &quot;&egrave;&quot;, # small e, grave accent<br/>+ &quot;ETH&quot; =&gt; &quot;Eth&quot;, # capital Eth, Icelandic<br/>+ &quot;eth&quot; =&gt; &quot;eth&quot;, # small eth, Icelandic<br/>+ &quot;Euml&quot; =&gt; &quot;&Euml;&quot;, # capital E, dieresis or umlaut mark<br/>+ &quot;euml&quot; =&gt; &quot;&euml;&quot;, # small e, dieresis or umlaut mark<br/>+ &quot;Iacute&quot; =&gt; &quot;&Iacute;&quot;, # capital I, acute accent<br/>+ &quot;iacute&quot; =&gt; &quot;&iacute;&quot;, # small i, acute accent<br/>+ &quot;Icirc&quot; =&gt; &quot;&Icirc;&quot;, # capital I, circumflex accent<br/>+ &quot;icirc&quot; =&gt; &quot;&icirc;&quot;, # small i, circumflex accent<br/>+ &quot;Igrave&quot; =&gt; &quot;&Igrave;&quot;, # capital I, grave accent<br/>+ &quot;igrave&quot; =&gt; &quot;&igrave;&quot;, # small i, grave accent<br/>+ &quot;Iuml&quot; =&gt; &quot;&Iuml;&quot;, # capital I, dieresis or umlaut mark<br/>+ &quot;iuml&quot; =&gt; &quot;&iuml;&quot;, # small i, dieresis or umlaut mark<br/>+ &quot;Ntilde&quot; =&gt; &quot;&Ntilde;&quot;, # capital N, tilde<br/>+ &quot;ntilde&quot; =&gt; &quot;&ntilde;&quot;, # small n, tilde<br/>+ &quot;Oacute&quot; =&gt; &quot;&Oacute;&quot;, # capital O, acute accent<br/>+ &quot;oacute&quot; =&gt; &quot;&oacute;&quot;, # small o, acute accent<br/>+ &quot;Ocirc&quot; =&gt; &quot;&Ocirc;&quot;, # capital O, circumflex accent<br/>+ &quot;ocirc&quot; =&gt; &quot;&ocirc;&quot;, # small o, circumflex accent<br/>+ &quot;Ograve&quot; =&gt; &quot;&Ograve;&quot;, # capital O, grave accent<br/>+ &quot;ograve&quot; =&gt; &quot;&ograve;&quot;, # small o, grave accent<br/>+ &quot;Oslash&quot; =&gt; &quot;&Oslash;&quot;, # capital O, slash<br/>+ &quot;oslash&quot; =&gt; &quot;&oslash;&quot;, # small o, slash<br/>+ &quot;Otilde&quot; =&gt; &quot;&Otilde;&quot;, # capital O, tilde<br/>+ &quot;otilde&quot; =&gt; &quot;&otilde;&quot;, # small o, tilde<br/>+ &quot;Ouml&quot; =&gt; &quot;&Ouml;&quot;, # capital O, dieresis or umlaut mark<br/>+ &quot;ouml&quot; =&gt; &quot;&ouml;&quot;, # small o, dieresis or umlaut mark<br/>+ &quot;szlig&quot; =&gt; &quot;&szlig;&quot;, # small sharp s, German (sz ligature)<br/>+ &quot;THORN&quot; =&gt; &quot;Thorn&quot;, # capital THORN, Icelandic<br/>+ &quot;thorn&quot; =&gt; &quot;thorn&quot;, # small thorn, Icelandic<br/>+ &quot;Uacute&quot; =&gt; &quot;&Uacute;&quot;, # capital U, acute accent<br/>+ &quot;uacute&quot; =&gt; &quot;&uacute;&quot;, # small u, acute accent<br/>+ &quot;Ucirc&quot; =&gt; &quot;&Ucirc;&quot;, # capital U, circumflex accent<br/>+ &quot;ucirc&quot; =&gt; &quot;&ucirc;&quot;, # small u, circumflex accent<br/>+ &quot;Ugrave&quot; =&gt; &quot;&Ugrave;&quot;, # capital U, grave accent<br/>+ &quot;ugrave&quot; =&gt; &quot;&ugrave;&quot;, # small u, grave accent<br/>+ &quot;Uuml&quot; =&gt; &quot;&Uuml;&quot;, # capital U, dieresis or umlaut mark<br/>+ &quot;uuml&quot; =&gt; &quot;&uuml;&quot;, # small u, dieresis or umlaut mark<br/>+ &quot;Yacute&quot; =&gt; &quot;&acute;Y&quot;, # capital Y, acute accent<br/>+ &quot;yacute&quot; =&gt; &quot;&acute;y&quot;, # small y, acute accent<br/>+ &quot;yuml&quot; =&gt; &quot;&yuml;&quot;, # small y, dieresis or umlaut mark<br/>+<br/>+ &quot;laquo&quot; =&gt; &quot;&laquo;&quot;, # left pointing double angle quotation mark<br/>+ &quot;lchevron&quot; =&gt; &quot;&laquo;&quot;, # synonym (backwards compatibility)<br/>+ &quot;raquo&quot; =&gt; &quot;&raquo;&quot;, # right pointing double angle quotation mark<br/>+ &quot;rchevron&quot; =&gt; &quot;&raquo;&quot;, # synonym (backwards compatibility)<br/>+<br/>+ &quot;iexcl&quot; =&gt; &quot;&iexcl;&quot;, # inverted exclamation mark<br/>+ &quot;cent&quot; =&gt; &quot;&cent;&quot;, # cent sign<br/>+ &quot;pound&quot; =&gt; &quot;&pound;&quot;, # (UK) pound sign<br/>+<br/>+ &quot;yen&quot; =&gt; &quot;&yen;&quot;, # yen sign<br/>+<br/>+ &quot;sect&quot; =&gt; &quot;&sect;&quot;, # section sign<br/>+ &quot;uml&quot; =&gt; &quot;&uml;&quot;, # diaresis<br/>+ &quot;copy&quot; =&gt; &quot;&copy;&quot;, # Copyright symbol<br/>+ &quot;ordf&quot; =&gt; &quot;&ordf;&quot;, # feminine ordinal indicator<br/>+ &quot;not&quot; =&gt; &quot;&not;&quot;, # not sign<br/>+ <br/>+ &quot;reg&quot; =&gt; &quot;&reg;&quot;, # registered trademark<br/>+ &quot;macr&quot; =&gt; &quot;&macr;&quot;, # macron, overline<br/>+ &quot;deg&quot; =&gt; &quot;&deg;&quot;, # degree sign<br/>+ &quot;plusmn&quot; =&gt; &quot;&plusmn;&quot;, # plus-minus sign<br/>+<br/>+ &quot;acute&quot; =&gt; &quot;&acute;&quot;, # acute accent<br/>+ &quot;micro&quot; =&gt; &quot;&micro;&quot;, # micro sign<br/>+ &quot;para&quot; =&gt; &quot;&para;&quot;, # pilcrow sign = paragraph sign<br/>+ &quot;middot&quot; =&gt; &quot;&middot;&quot;, # middle dot = Georgian comma<br/>+ &quot;cedil&quot; =&gt; &quot;&cedil;&quot;, # cedilla<br/>+<br/>+ &quot;ordm&quot; =&gt; &quot;&ordm;&quot;, # masculine ordinal indicator<br/>+<br/>+ &quot;iquest&quot; =&gt; &quot;&iquest;&quot;, # inverted question mark<br/>+ &quot;times&quot; =&gt; &quot;x&quot;, # multiplication sign (just an x)<br/>+ &quot;divide&quot; =&gt; &quot;&divide;&quot;, # division sign<br/>+<br/>+ &quot;nbsp&quot; =&gt; &quot;&nbsp;&quot;, # non-breaking space<br/>+);<br/>+<br/>+<br/>+# This array maps the ISO 8559-1 (Latin-1) character set to the Mac standard Roman character set.<br/>+# Latin 1: The first 127 characters are equal to ASCII. (0x00 - 0x7F, 0 - 127, where 127 is non-printable)<br/>+# The next 32 characters are non-printable. (0x80 - 0x9F, 128 - 159) <br/>+# The last 96 characters are shown below. (0xA0 - 0xFF, 160 - 255)<br/>+#<br/>+# (subtract 160 from the Latin-1 char code to get the array index)<br/>+@Latin1_to_MacRoman_MAP = ( <br/>+<br/>+ 0xCA, # 0 -- 0xA0, 160, &#39; &#39; -&gt; nonbreaking space<br/>+ 0xC1, # 1 -- 0xA1, 161, &#39;&iexcl;&#39; -&gt; inverted exclamation mark<br/>+ 0xA2, # 2 -- 0xA2, 162, &#39;&cent;&#39; -&gt; cent sign<br/>+ 0xA3, # 3 -- 0xA3, 163, &#39;&pound;&#39; -&gt; (UK) pound sign<br/>+ 0xDB, # 4 -- 0xA4, 164, &#39;&curren;&#39; -&gt; currency sign (some fonts display it as Euro sign; select e.g. Futura to see it)<br/>+ 0xB4, # 5 -- 0xA5, 165, &#39;&yen;&#39; -&gt; yen sign<br/>+ 0x00, # 6 -- 0xA6, 166, n/a -&gt; broken vertical bar (not in the Mac standard Roman character set)<br/>+ 0xA4, # 7 -- 0xA7, 167, &#39;&sect;&#39; -&gt; section sign<br/>+ 0xAC, # 8 -- 0xA8, 168, &#39;&uml;&#39; -&gt; diaresis<br/>+ 0xA9, # 9 -- 0xA9, 169, &#39;&copy;&#39; -&gt; Copyright symbol<br/>+<br/>+ 0xBB, # 10 -- 0xAA, 170, &#39;&ordf;&#39; -&gt; feminine ordinal indicator <br/>+ 0xC7, # 11 -- 0xAB, 171, &#39;&laquo;&#39; -&gt; left pointing double angle quotation mark, guillemotleft<br/>+ 0xC2, # 12 -- 0xAC, 172, &#39;&not;&#39; -&gt; (logical) not sign<br/>+ 0xD0, # 13 -- 0xAD, 173, &#39;&shy;&#39; -&gt; soft (discretionary) hyphen (endash)<br/>+ 0xA8, # 14 -- 0xAE, 174, &#39;&reg;&#39; -&gt; registered<br/>+ 0xF8, # 15 -- 0xAF, 175, &#39;&macr;&#39; -&gt; macron, overline<br/>+ 0xA1, # 16 -- 0xB0, 176, &#39;&deg;&#39; -&gt; degree sign<br/>+ 0xB1, # 17 -- 0xB1, 177, &#39;&plusmn;&#39; -&gt; plus-minus sign<br/>+ 0x00, # 18 -- 0xB2, 178, n/a -&gt; superscript 2 (not in the Mac standard Roman character set)<br/>+ 0x00, # 19 -- 0xB3, 179, n/a -&gt; superscript 3 (not in the Mac standard Roman character set)<br/>+<br/>+ 0xAB, # 20 -- 0xB4, 180, &#39;&acute;&#39; -&gt; acute accent<br/>+ 0xB5, # 21 -- 0xB5, 181, &#39;&micro;&#39; -&gt; micro sign<br/>+ 0xA6, # 22 -- 0xB6, 182, &#39;&para;&#39; -&gt; pilcrow sign = paragraph sign<br/>+ 0xE1, # 23 -- 0xB7, 183, &#39;&middot;&#39; -&gt; middle dot or periodcentered = Georgian comma<br/>+ 0xFC, # 24 -- 0xB8, 184, &#39;&cedil;&#39; -&gt; cedilla<br/>+ 0x00, # 25 -- 0xB9, 185, n/a -&gt; superscript 1 (not in the Mac standard Roman character set)<br/>+ 0xBC, # 26 -- 0xBA, 186, &#39;&ordm;&#39; -&gt; masculine ordinal indicator<br/>+ 0xC8, # 27 -- 0xBB, 187, &#39;&raquo;&#39; -&gt; right pointing double angle quotation mark, guillemotright<br/>+ 0x00, # 28 -- 0xBC, 188, n/a -&gt; vulgar fraction one quarter (not in the Mac standard Roman character set)<br/>+ 0x00, # 29 -- 0xBD, 189, n/a -&gt; vulgar fraction one half (not in the Mac standard Roman character set)<br/>+<br/>+ 0x00, # 30 -- 0xBE, 190, n/a -&gt; vulgar fraction three quarters (not in the Mac standard Roman character set)<br/>+ 0xC0, # 31 -- 0xBF, 191, &#39;&iquest;&#39; -&gt; inverted question mark<br/>+ 0xCB, # 32 -- 0xC0, 192, &#39;&Agrave;&#39; -&gt; capital A, grave accent<br/>+ 0xE7, # 33 -- 0xC1, 193, &#39;&Aacute;&#39; -&gt; capital A, acute accent<br/>+ 0xE5, # 34 -- 0xC2, 194, &#39;&Acirc;&#39; -&gt; capital A, circumflex accent<br/>+ 0xCC, # 35 -- 0xC3, 195, &#39;&Atilde;&#39; -&gt; capital A, tilde<br/>+ 0x80, # 36 -- 0xC4, 196, &#39;&Auml;&#39; -&gt; capital A, dieresis or umlaut mark<br/>+ 0x81, # 37 -- 0xC5, 197, &#39;&Aring;&#39; -&gt; capital A, ring<br/>+ 0xAE, # 38 -- 0xC6, 198, &#39;&AElig;&#39; -&gt; capital AE diphthong (ligature)<br/>+ 0x82, # 39 -- 0xC7, 199, &#39;&Ccedil;&#39; -&gt; capital C, cedilla<br/>+ <br/>+ 0xE9, # 40 -- 0xC8, 200, &#39;&Egrave;&#39; -&gt; capital E, grave accent<br/>+ 0x83, # 41 -- 0xC9, 201, &#39;&Eacute;&#39; -&gt; capital E, acute accent<br/>+ 0xE6, # 42 -- 0xCA, 202, &#39;&Ecirc;&#39; -&gt; capital E, circumflex accent<br/>+ 0xE8, # 43 -- 0xCB, 203, &#39;&Euml;&#39; -&gt; capital E, dieresis or umlaut mark<br/>+ 0xED, # 44 -- 0xCC, 204, &#39;&Igrave;&#39; -&gt; capital I, grave accent<br/>+ 0xEA, # 45 -- 0xCD, 205, &#39;&Iacute;&#39; -&gt; capital I, acute accent<br/>+ 0xEB, # 46 -- 0xCE, 206, &#39;&Icirc;&#39; -&gt; capital I, circumflex accent<br/>+ 0xEC, # 47 -- 0xCF, 207, &#39;&Iuml;&#39; -&gt; capital I, dieresis or umlaut mark <br/>+ 0x00, # 48 -- 0xD0, 208, n/a -&gt; capital Eth, Icelandic (not in the Mac standard Roman character set)<br/>+ 0x84, # 49 -- 0xD1, 209, &#39;&Ntilde;&#39; -&gt; capital N, tilde<br/>+<br/>+ 0xF1, # 50 -- 0xD2, 210, &#39;&Ograve;&#39; -&gt; capital O, grave accent<br/>+ 0xEE, # 51 -- 0xD3, 211, &#39;&Oacute;&#39; -&gt; capital O, acute accent<br/>+ 0xEF, # 52 -- 0xD4, 212, &#39;&Ocirc;&#39; -&gt; capital O, circumflex accent<br/>+ 0xCD, # 53 -- 0xD5, 213, &#39;&Otilde;&#39; -&gt; capital O, tilde<br/>+ 0x85, # 54 -- 0xD6, 214, &#39;&Ouml;&#39; -&gt; capital O, dieresis or umlaut mark<br/>+ 0x00, # 55 -- 0xD7, 215, n/a -&gt; multiplication sign (not in the Mac standard Roman character set)<br/>+ 0xAF, # 56 -- 0xD8, 216, &#39;&Oslash;&#39; -&gt; capital O, slash<br/>+ 0xF4, # 57 -- 0xD9, 217, &#39;&Ugrave;&#39; -&gt; capital U, grave accent<br/>+ 0xF2, # 58 -- 0xDA, 218, &#39;&Uacute;&#39; -&gt; capital U, acute accent<br/>+ 0xF3, # 59 -- 0xDB, 219, &#39;&Ucirc;&#39; -&gt; capital U, circumflex accent<br/>+ <br/>+ 0x86, # 60 -- 0xDC, 220, &#39;&Uuml;&#39; -&gt; capital U, dieresis or umlaut mark<br/>+ 0x00, # 61 -- 0xDD, 221, n/a -&gt; capital Y, acute accent (not in the Mac standard Roman character set)<br/>+ 0x00, # 62 -- 0xDE, 222, n/a -&gt; capital THORN, Icelandic (not in the Mac standard Roman character set)<br/>+ 0xA7, # 63 -- 0xDF, 223, &#39;&szlig;&#39; -&gt; small sharp s, German (sz ligature)<br/>+ 0x88, # 64 -- 0xE0, 224, &#39;&agrave;&#39; -&gt; small a, grave accent<br/>+ 0x87, # 65 -- 0xE1, 225, &#39;&aacute;&#39; -&gt; small a, acute accent<br/>+ 0x89, # 66 -- 0xE2, 226, &#39;&acirc;&#39; -&gt; small a, circumflex accent<br/>+ 0x8B, # 67 -- 0xE3, 227, &#39;&atilde;&#39; -&gt; small a, tilde<br/>+ 0x8A, # 69 -- 0xE4, 228, &#39;&auml;&#39; -&gt; small a, dieresis or umlaut mark<br/>+ 0x8C, # 69 -- 0xE5, 229, &#39;&aring;&#39; -&gt; small a, ring<br/>+<br/>+ 0xBE, # 70 -- 0xE6, 230, &#39;&aelig;&#39; -&gt; small ae diphthong (ligature)<br/>+ 0x8D, # 71 -- 0xE7, 231, &#39;&ccedil;&#39; -&gt; small c, cedilla<br/>+ 0x8F, # 72 -- 0xE8, 232, &#39;&egrave;&#39; -&gt; small e, grave accent<br/>+ 0x8E, # 73 -- 0xE9, 233, &#39;&eacute;&#39; -&gt; small e, acute accent<br/>+ 0x90, # 74 -- 0xEA, 234, &#39;&ecirc;&#39; -&gt; small e, circumflex accent<br/>+ 0x91, # 75 -- 0xEB, 235, &#39;&euml;&#39; -&gt; small e, dieresis or umlaut mark<br/>+ 0x93, # 76 -- 0xEC, 236, &#39;&igrave;&#39; -&gt; small i, grave accent <br/>+ 0x92, # 77 -- 0xED, 237, &#39;&iacute;&#39; -&gt; small i, acute accent<br/>+ 0x94, # 78 -- 0xEE, 238, &#39;&icirc;&#39; -&gt; small i, circumflex accent<br/>+ 0x95, # 79 -- 0xEF, 239, &#39;&iuml;&#39; -&gt; small i, dieresis or umlaut mark<br/>+<br/>+ 0x00, # 80 -- 0xF0, 240, n/a -&gt; small eth, Icelandic (not in the Mac standard Roman character set)<br/>+ 0x96, # 81 -- 0xF1, 241, &#39;&ntilde;&#39; -&gt; small n, tilde<br/>+ 0x98, # 82 -- 0xF2, 242, &#39;&ograve;&#39; -&gt; small o, grave accent<br/>+ 0x97, # 83 -- 0xF3, 243, &#39;&oacute;&#39; -&gt; small o, acute accent<br/>+ 0x99, # 84 -- 0xF4, 244, &#39;&ocirc;&#39; -&gt; small o, circumflex accent<br/>+ 0x9B, # 85 -- 0xF5, 245, &#39;&otilde;&#39; -&gt; small o, tilde<br/>+ 0xBB, # 86 -- 0xF6, 246, &#39;&ouml;&#39; -&gt; small o, dieresis or umlaut mark <br/>+ 0xD6, # 87 -- 0xF7, 247, &#39;&divide;&#39; -&gt; division sign<br/>+ 0xBF, # 88 -- 0xF8, 248, &#39;&oslash;&#39; -&gt; small o, slash<br/>+ 0x9D, # 89 -- 0xF9, 249, &#39;&ugrave;&#39; -&gt; small u, grave accent<br/>+<br/>+ 0x9C, # 90 -- 0xFA, 250, &#39;&uacute;&#39; -&gt; small u, acute accent<br/>+ 0x9E, # 91 -- 0xFB, 251, &#39;&ucirc;&#39; -&gt; small u, circumflex accent<br/>+ 0x9F, # 92 -- 0xFC, 252, &#39;&uuml;&#39; -&gt; small u, dieresis or umlaut mark<br/>+ 0x00, # 93 -- 0xFD, 253, n/a -&gt; small y, acute accent (not in the Mac standard Roman character set)<br/>+ 0x00, # 94 -- 0xFE, 254, n/a -&gt; small thorn, Icelandic (not in the Mac standard Roman character set)<br/>+ 0xD8 # 95 -- 0xFF, 255, &#39;&yuml;&#39; -&gt; small y, dieresis or umlaut mark<br/>+<br/>+);<br/>+<br/>+ <br/>+ <br/>+sub command {<br/>+ my ($parser, $command, $paragraph, $line_num) = @_;<br/>+ my $out_fh = $parser-&gt;output_handle();<br/>+ my $expansion;<br/>+ <br/>+ # interpret the command and its text <br/>+ # for indexing, only =heads and =items are of interest<br/>+ if ( ($command eq &#39;head1&#39;) || ($command eq &#39;head2&#39;) ||<br/>+ ($command eq &#39;head3&#39;) || ($command eq &#39;head4&#39;) ||<br/>+ ($command eq &#39;item&#39;) ) <br/>+ {<br/>+ # expand formatting codes<br/>+ $expansion = $parser-&gt;interpolate($paragraph, $line_num);<br/>+ # print to out file<br/>+ print $out_fh &#39;=&#39; . $command . &#39; &#39; . $expansion;<br/>+ }<br/>+}<br/>+<br/>+sub verbatim {<br/>+ my ($parser, $paragraph, $line_num) = @_; <br/>+ # do nothing<br/>+}<br/>+<br/>+sub textblock {<br/>+ my ($parser, $paragraph, $line_num) = @_; <br/>+ # do nothing<br/>+}<br/>+<br/>+<br/>+# Handle links. Most of the work is done by MyPodParseLink.<br/>+sub seq_Link {<br/>+ my ($self, $link, $seq) = @_;<br/>+ my ($text, $type) = (MyPodParseLink::parselink ($link))[1,4];<br/>+ my ($file, $line) = $seq-&gt;file_line;<br/>+ $text = $self-&gt;interpolate ($text, $line);<br/>+ $text = &#39;&lt;&#39; . $text . &#39;&gt;&#39; if $type eq &#39;url&#39;;<br/>+ return $text || &#39;&#39;;<br/>+}<br/>+<br/>+# Called for a formatting code. Gets the command, argument, and a<br/>+# Pod::InteriorSequence object and is expected to return the resulting text.<br/>+sub interior_sequence {<br/>+ my ($parser, $seq_command, $seq_argument, $pod_seq) = @_;<br/>+<br/>+ my $parent = $pod_seq-&gt;nested;<br/>+ while (defined $parent) {<br/>+ return $pod_seq-&gt;raw_text if ($parent-&gt;cmd_name eq &#39;L&#39;);<br/>+ $parent = $parent-&gt;nested;<br/>+ }<br/>+ <br/>+ # get filename and line number <br/>+ my ($file, $line) = $pod_seq-&gt;file_line;<br/>+<br/>+ # Index entries are ignored in plain text.<br/>+ return &#39;&#39; if ($seq_command eq &#39;X&#39; || $seq_command eq &#39;Z&#39;);<br/>+ <br/>+ # Expand escapes into the actual character now, warning if invalid.<br/>+ if ($seq_command eq &#39;E&#39;) {<br/>+ <br/>+ my $is_Number = 0;<br/>+ if ( $seq_argument =~ m/^(0x[a-fA-F0-9]+)$/ ) { <br/>+ # hexadecimal<br/>+ $charCode = hex($1);<br/>+ $is_Number = 1;<br/>+ }<br/>+ elsif ( $seq_argument =~ m/^(0[0-7]+)$/ ) {<br/>+ # octal<br/>+ $charCode = oct($1);<br/>+ $is_Number = 1;<br/>+ }<br/>+ elsif ( $seq_argument =~ m/^(0|(?:[1-9][0-9]*))$/) {<br/>+ # decimal, but not e.g. 099<br/>+ $charCode = $1;<br/>+ $is_Number = 1;<br/>+ }<br/>+ <br/>+ if ($is_Number) { # $seq_argument is a character number<br/>+ <br/>+ if ( ($charCode &lt; 0) || ($charCode &gt; 255) ) {<br/>+ warn &quot;$file:$line: Character code out of range: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ <br/>+ } <br/>+ else {<br/>+ <br/>+ if ($charCode &lt; 32) { <br/>+ # standard ASCII, non-printable <br/>+ warn &quot;$file:$line: Character is non-printable: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ elsif ( ($charCode &gt;= 32) &amp;&amp; ($charCode &lt; 127) ) { <br/>+ # standard ASCII <br/>+ return chr($charCode); <br/>+ }<br/>+ elsif ( ($charCode &gt;= 127) &amp;&amp; ($charCode &lt; 160) ) {<br/>+ # 127 : standard ASCII, but non-printable (DEL)<br/>+ # 128 - 159 : not defined in ISO 8559-1 (Latin-1) <br/>+ warn &quot;$file:$line: Character is non-printable: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ else { <br/>+ # 160 - 255 (0xA0 - 0xFF)<br/>+ # map ISO 8559-1 (Latin-1) to Mac standard Roman <br/>+ my $MacCharCode = $Latin1_to_MacRoman_MAP[$charCode-160];<br/>+ if ($MacCharCode == 0) { <br/>+ # not in Mac Roman<br/>+ warn &quot;$file:$line: Character is not in the Macintosh standard Roman character set: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;; <br/>+ } <br/>+ else {<br/>+ return chr($MacCharCode);<br/>+ }<br/>+ }<br/>+ }<br/>+ <br/>+ } <br/>+ else {<br/>+ return $ESCAPES{$seq_argument} if defined $ESCAPES{$seq_argument};<br/>+ warn &quot;$file:$line: Unknown escape: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ }<br/>+<br/>+ # For all the other formatting codes, empty content produces no output.<br/>+ return if $seq_argument eq &#39;&#39;;<br/>+ <br/>+ # L gets dispatched to another method, anything else returns its argument <br/>+ if ($seq_command eq &#39;B&#39;) { return &quot;$seq_argument&quot;;}<br/>+ elsif ($seq_command eq &#39;C&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;F&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;I&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;S&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;L&#39;) { return $parser-&gt;seq_Link ($seq_argument, $pod_seq) }<br/>+ else {<br/>+ warn &quot;$file:$line: Unknown formatting code: $$seq_command&lt;${seq_argument}&gt;\n&quot;;<br/>+ } <br/>+}<br/>+<br/>+<br/>+##############################################################################<br/>+# MAIN <br/>+##############################################################################<br/>+package main;<br/>+<br/> ($index = shift @ARGV) || die &quot;No help index specified&quot;;<br/> <br/> dbmopen(%INDEX, $index, 0666) || die &quot;Couldn&#39;t open index file \&quot;$index\&quot;&quot;;<br/>@@ -123,6 +578,15 @@<br/> local($file, $var) = @_;<br/> local(%rename, %alias);<br/> <br/>+ # Create a parser object <br/>+ my $parser = new MyPodIndexer(); <br/>+ $file =~ m/([^:]+)\.pod$/;<br/>+ my $indexfile = $1 . &#39;.idx&#39;; # our temporary index file <br/>+<br/>+ # Read POD from file.pod and write to file.idx<br/>+ # (create the index file in our current directory, which normally is &quot;:macperl_src:macperl:&quot;)<br/>+ $parser-&gt;parse_from_file (&quot;::perl$file&quot;, &quot;:$indexfile&quot;);<br/>+ <br/> $url = $file;<br/> if ($url =~ /^:/) {<br/> $url = $&#39;;<br/>@@ -132,7 +596,7 @@<br/> $url =~ s|:|/|g; <br/> $url = &quot;pod://$url&quot;;<br/> }<br/>- open(INDEX, &quot;::perl$file&quot;) ||&nbsp;die &quot;Can&#39;t open index file \&quot;$file\&quot;&quot;;<br/>+ open(INDEX, &quot;:$indexfile&quot;) ||&nbsp;die &quot;Can&#39;t open index file \&quot;$indexfile\&quot;&quot;;<br/> while (&lt;&gt;) {<br/> if (/\@end/) {<br/> goto startindex;<br/>@@ -154,7 +618,13 @@<br/> while (&lt;INDEX&gt;) {<br/> if (/^=item\s+(.*\S)\s*$/) {<br/> $name = $1;<br/>- next if ($name eq &quot;*&quot;);<br/>+ <br/>+ # bullet lists and numbered lists are not indexed by Shuck<br/>+ next if ($name eq &quot;*&quot;); # skip =item *<br/>+ next if ($name =~ m/^\d+\.?$/); # skip =item 1/2./0377 (decimal, octal)<br/>+ next if ($name =~ m/^0x[0-9a-fA-F]+$/); # skip =item 0x20 (hex)<br/>+ next if ($name =~ m/^0b[01]+$/); # skip =item 0b1100 (binary)<br/>+ <br/> if ($name =~ /^\$([A-Za-z_]+|\^[A-Z]|&lt;I&lt;digit&gt;&gt;|.)(.?)/) {<br/> if ($2 eq &quot;{&quot;) {<br/> $key = &quot;\%$1&quot;;<br/>@@ -192,4 +662,7 @@<br/> warn &quot;\&quot;$value\&quot; undefined&quot; unless $INDEX{$value};<br/> $INDEX{$lastkey = $key} ||= $INDEX{$value};<br/> }<br/>+ <br/>+ close INDEX;<br/>+ unlink $indexfile;<br/> }<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/MacPerl.podhelp#10 (text) ====<br/>Index: macperl/macos/macperl/MacPerl.podhelp<br/>--- macperl/macos/macperl/MacPerl.podhelp#9~16472~ Tue May 7 20:51:06 2002<br/>+++ macperl/macos/macperl/MacPerl.podhelp Mon Jul 29 20:16:52 2002<br/>@@ -180,7 +180,8 @@<br/> @alias ^ Bitwise Or and Exclusive Or<br/> @alias &amp;&amp; C-style Logical And<br/> @alias || C-style Logical Or<br/>-@alias .. Range Operator<br/>+@alias .. Range Operators<br/>+@alias ... Range Operators<br/> @alias ? Conditional Operator<br/> @alias : Conditional Operator<br/> @alias = Assignment Operators<br/><br/>==== //depot/maint-5.8/macperl/macos/macperl/BuildHelpIndex#2 (text) ====<br/>Index: macperl/macos/macperl/BuildHelpIndex<br/>--- macperl/macos/macperl/BuildHelpIndex#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/macperl/BuildHelpIndex Mon Jul 29 20:16:52 2002<br/>@@ -3,6 +3,461 @@<br/> <br/> #!perl -s<br/> <br/>+use Pod::Parser;<br/>+<br/>+package MyPodParseLink;<br/>+<br/>+##############################################################################<br/>+# Since Pod::ParseLink is (a) not part of the standard library prior to Perl <br/>+# 5.8, and (b) I needed to make a little change for compatibility with Shuck, <br/>+# its code was copied over here. All credits go to Russ Allbery.<br/>+##############################################################################<br/>+<br/>+# Parse the name and section portion of a link into a name and section.<br/>+sub _parse_section {<br/>+ my ($link) = @_;<br/>+ $link =~ s/^\s+//;<br/>+ $link =~ s/\s+$//;<br/>+<br/>+ # If the whole link is enclosed in quotes, interpret it all as a section<br/>+ # even if it contains a slash.<br/>+ return (undef, $1) if ($link =~ /^&quot;\s*(.*?)\s*&quot;$/);<br/>+<br/>+ # Split into page and section on slash, and then clean up quoting in the<br/>+ # section. If there is no section and the name contains spaces, also<br/>+ # guess that it&#39;s an old section link.<br/>+ my ($page, $section) = split (/\s*\/\s*/, $link, 2);<br/>+ $section =~ s/^&quot;\s*(.*?)\s*&quot;$/$1/ if $section;<br/>+ if ($page &amp;&amp; $page =~ / / &amp;&amp; !defined ($section)) {<br/>+ $section = $page;<br/>+ $page = undef;<br/>+ } else {<br/>+ $page = undef unless $page;<br/>+ $section = undef unless $section;<br/>+ }<br/>+ return ($page, $section);<br/>+}<br/>+<br/>+# Infer link text from the page and section.<br/>+sub _infer_text {<br/>+ my ($page, $section) = @_;<br/>+ my $inferred;<br/>+ if ($page &amp;&amp; !$section) {<br/>+ $inferred = $page;<br/>+ } elsif (!$page &amp;&amp; $section) {<br/>+ $inferred = &#39;&quot;&#39; . $section . &#39;&quot;&#39;;<br/>+ } elsif ($page &amp;&amp; $section) {<br/>+ # The string &#39;the section &#39; string is prepended for compatibility with <br/>+ # Shuck (this is the only difference from Pod::ParseLink)<br/>+ $inferred = &#39;the section &#39; . &#39;&quot;&#39; . $section . &#39;&quot; in &#39; . $page; <br/>+ }<br/>+ return $inferred;<br/>+}<br/>+<br/>+# Given the contents of an L&lt;&gt; formatting code, parse it into the link text,<br/>+# the possibly inferred link text, the name or URL, the section, and the type<br/>+# of link (pod, man, or url).<br/>+sub parselink {<br/>+ my ($link) = @_;<br/>+ $link =~ s/\s+/ /g;<br/>+ if ($link =~ /\A\w+:[^:\s]\S*\Z/) {<br/>+ return (undef, $link, $link, undef, &#39;url&#39;);<br/>+ } else {<br/>+ my $text;<br/>+ if ($link =~ /\|/) {<br/>+ ($text, $link) = split (/\|/, $link, 2);<br/>+ }<br/>+ my ($name, $section) = _parse_section ($link);<br/>+ my $inferred = $text || _infer_text ($name, $section);<br/>+ my $type = ($name &amp;&amp; $name =~ /\(\S*\)/) ? &#39;man&#39; : &#39;pod&#39;;<br/>+ return ($text, $inferred, $name, $section, $type);<br/>+ }<br/>+}<br/>+<br/>+<br/>+##############################################################################<br/>+# And now our Pod::Parser subclass, MyPodIndexer<br/>+# (A lot of this code was borrowed from Pod::Text, credits to Russ Allbery.)<br/>+##############################################################################<br/>+package MyPodIndexer;<br/>+@ISA = qw(Pod::Parser);<br/>+<br/>+# Table of supported E&lt;&gt; escapes for the Macintosh standard Roman character set.<br/>+# (These are exactly the same escapes as known by Shuck. This list is incomplete<br/>+# since the Macintosh standard Roman character set doesn&#39;t contain all characters<br/>+# defined in the ISO 8559-1 (Latin 1) character set.)<br/>+%ESCAPES = (<br/>+ &#39;amp&#39; =&gt; &#39;&amp;&#39;, # ampersand<br/>+ &#39;apos&#39; =&gt; &quot;&#39;&quot;, # apostrophe<br/>+ &#39;lt&#39; =&gt; &#39;&lt;&#39;, # left chevron, less-than<br/>+ &#39;gt&#39; =&gt; &#39;&gt;&#39;, # right chevron, greater-than<br/>+ &#39;quot&#39; =&gt; &#39;&quot;&#39;, # double quote<br/>+ &#39;sol&#39; =&gt; &#39;/&#39;, # solidus (forward slash)<br/>+ &#39;verbar&#39; =&gt; &#39;|&#39;, # vertical bar<br/>+<br/>+ &quot;Aacute&quot; =&gt; &quot;&Aacute;&quot;, # capital A, acute accent<br/>+ &quot;aacute&quot; =&gt; &quot;&aacute;&quot;, # small a, acute accent<br/>+ &quot;Acirc&quot; =&gt; &quot;&Acirc;&quot;, # capital A, circumflex accent<br/>+ &quot;acirc&quot; =&gt; &quot;&acirc;&quot;, # small a, circumflex accent<br/>+ &quot;AElig&quot; =&gt; &quot;&AElig;&quot;, # capital AE diphthong (ligature)<br/>+ &quot;aelig&quot; =&gt; &quot;&aelig;&quot;, # small ae diphthong (ligature)<br/>+ &quot;Agrave&quot; =&gt; &quot;&Agrave;&quot;, # capital A, grave accent<br/>+ &quot;agrave&quot; =&gt; &quot;&agrave;&quot;, # small a, grave accent<br/>+ &quot;Aring&quot; =&gt; &quot;&Aring;&quot;, # capital A, ring<br/>+ &quot;aring&quot; =&gt; &quot;&aring;&quot;, # small a, ring<br/>+ &quot;Atilde&quot; =&gt; &quot;&Atilde;&quot;, # capital A, tilde<br/>+ &quot;atilde&quot; =&gt; &quot;&atilde;&quot;, # small a, tilde<br/>+ &quot;Auml&quot; =&gt; &quot;&Auml;&quot;, # capital A, dieresis or umlaut mark<br/>+ &quot;auml&quot; =&gt; &quot;&auml;&quot;, # small a, dieresis or umlaut mark<br/>+ &quot;Ccedil&quot; =&gt; &quot;&Ccedil;&quot;, # capital C, cedilla<br/>+ &quot;ccedil&quot; =&gt; &quot;&ccedil;&quot;, # small c, cedilla<br/>+ &quot;Eacute&quot; =&gt; &quot;&Eacute;&quot;, # capital E, acute accent<br/>+ &quot;eacute&quot; =&gt; &quot;&eacute;&quot;, # small e, acute accent<br/>+ &quot;Ecirc&quot; =&gt; &quot;&Ecirc;&quot;, # capital E, circumflex accent<br/>+ &quot;ecirc&quot; =&gt; &quot;&ecirc;&quot;, # small e, circumflex accent<br/>+ &quot;Egrave&quot; =&gt; &quot;&Egrave;&quot;, # capital E, grave accent<br/>+ &quot;egrave&quot; =&gt; &quot;&egrave;&quot;, # small e, grave accent<br/>+ &quot;ETH&quot; =&gt; &quot;Eth&quot;, # capital Eth, Icelandic<br/>+ &quot;eth&quot; =&gt; &quot;eth&quot;, # small eth, Icelandic<br/>+ &quot;Euml&quot; =&gt; &quot;&Euml;&quot;, # capital E, dieresis or umlaut mark<br/>+ &quot;euml&quot; =&gt; &quot;&euml;&quot;, # small e, dieresis or umlaut mark<br/>+ &quot;Iacute&quot; =&gt; &quot;&Iacute;&quot;, # capital I, acute accent<br/>+ &quot;iacute&quot; =&gt; &quot;&iacute;&quot;, # small i, acute accent<br/>+ &quot;Icirc&quot; =&gt; &quot;&Icirc;&quot;, # capital I, circumflex accent<br/>+ &quot;icirc&quot; =&gt; &quot;&icirc;&quot;, # small i, circumflex accent<br/>+ &quot;Igrave&quot; =&gt; &quot;&Igrave;&quot;, # capital I, grave accent<br/>+ &quot;igrave&quot; =&gt; &quot;&igrave;&quot;, # small i, grave accent<br/>+ &quot;Iuml&quot; =&gt; &quot;&Iuml;&quot;, # capital I, dieresis or umlaut mark<br/>+ &quot;iuml&quot; =&gt; &quot;&iuml;&quot;, # small i, dieresis or umlaut mark<br/>+ &quot;Ntilde&quot; =&gt; &quot;&Ntilde;&quot;, # capital N, tilde<br/>+ &quot;ntilde&quot; =&gt; &quot;&ntilde;&quot;, # small n, tilde<br/>+ &quot;Oacute&quot; =&gt; &quot;&Oacute;&quot;, # capital O, acute accent<br/>+ &quot;oacute&quot; =&gt; &quot;&oacute;&quot;, # small o, acute accent<br/>+ &quot;Ocirc&quot; =&gt; &quot;&Ocirc;&quot;, # capital O, circumflex accent<br/>+ &quot;ocirc&quot; =&gt; &quot;&ocirc;&quot;, # small o, circumflex accent<br/>+ &quot;Ograve&quot; =&gt; &quot;&Ograve;&quot;, # capital O, grave accent<br/>+ &quot;ograve&quot; =&gt; &quot;&ograve;&quot;, # small o, grave accent<br/>+ &quot;Oslash&quot; =&gt; &quot;&Oslash;&quot;, # capital O, slash<br/>+ &quot;oslash&quot; =&gt; &quot;&oslash;&quot;, # small o, slash<br/>+ &quot;Otilde&quot; =&gt; &quot;&Otilde;&quot;, # capital O, tilde<br/>+ &quot;otilde&quot; =&gt; &quot;&otilde;&quot;, # small o, tilde<br/>+ &quot;Ouml&quot; =&gt; &quot;&Ouml;&quot;, # capital O, dieresis or umlaut mark<br/>+ &quot;ouml&quot; =&gt; &quot;&ouml;&quot;, # small o, dieresis or umlaut mark<br/>+ &quot;szlig&quot; =&gt; &quot;&szlig;&quot;, # small sharp s, German (sz ligature)<br/>+ &quot;THORN&quot; =&gt; &quot;Thorn&quot;, # capital THORN, Icelandic<br/>+ &quot;thorn&quot; =&gt; &quot;thorn&quot;, # small thorn, Icelandic<br/>+ &quot;Uacute&quot; =&gt; &quot;&Uacute;&quot;, # capital U, acute accent<br/>+ &quot;uacute&quot; =&gt; &quot;&uacute;&quot;, # small u, acute accent<br/>+ &quot;Ucirc&quot; =&gt; &quot;&Ucirc;&quot;, # capital U, circumflex accent<br/>+ &quot;ucirc&quot; =&gt; &quot;&ucirc;&quot;, # small u, circumflex accent<br/>+ &quot;Ugrave&quot; =&gt; &quot;&Ugrave;&quot;, # capital U, grave accent<br/>+ &quot;ugrave&quot; =&gt; &quot;&ugrave;&quot;, # small u, grave accent<br/>+ &quot;Uuml&quot; =&gt; &quot;&Uuml;&quot;, # capital U, dieresis or umlaut mark<br/>+ &quot;uuml&quot; =&gt; &quot;&uuml;&quot;, # small u, dieresis or umlaut mark<br/>+ &quot;Yacute&quot; =&gt; &quot;&acute;Y&quot;, # capital Y, acute accent<br/>+ &quot;yacute&quot; =&gt; &quot;&acute;y&quot;, # small y, acute accent<br/>+ &quot;yuml&quot; =&gt; &quot;&yuml;&quot;, # small y, dieresis or umlaut mark<br/>+<br/>+ &quot;laquo&quot; =&gt; &quot;&laquo;&quot;, # left pointing double angle quotation mark<br/>+ &quot;lchevron&quot; =&gt; &quot;&laquo;&quot;, # synonym (backwards compatibility)<br/>+ &quot;raquo&quot; =&gt; &quot;&raquo;&quot;, # right pointing double angle quotation mark<br/>+ &quot;rchevron&quot; =&gt; &quot;&raquo;&quot;, # synonym (backwards compatibility)<br/>+<br/>+ &quot;iexcl&quot; =&gt; &quot;&iexcl;&quot;, # inverted exclamation mark<br/>+ &quot;cent&quot; =&gt; &quot;&cent;&quot;, # cent sign<br/>+ &quot;pound&quot; =&gt; &quot;&pound;&quot;, # (UK) pound sign<br/>+<br/>+ &quot;yen&quot; =&gt; &quot;&yen;&quot;, # yen sign<br/>+<br/>+ &quot;sect&quot; =&gt; &quot;&sect;&quot;, # section sign<br/>+ &quot;uml&quot; =&gt; &quot;&uml;&quot;, # diaresis<br/>+ &quot;copy&quot; =&gt; &quot;&copy;&quot;, # Copyright symbol<br/>+ &quot;ordf&quot; =&gt; &quot;&ordf;&quot;, # feminine ordinal indicator<br/>+ &quot;not&quot; =&gt; &quot;&not;&quot;, # not sign<br/>+ <br/>+ &quot;reg&quot; =&gt; &quot;&reg;&quot;, # registered trademark<br/>+ &quot;macr&quot; =&gt; &quot;&macr;&quot;, # macron, overline<br/>+ &quot;deg&quot; =&gt; &quot;&deg;&quot;, # degree sign<br/>+ &quot;plusmn&quot; =&gt; &quot;&plusmn;&quot;, # plus-minus sign<br/>+<br/>+ &quot;acute&quot; =&gt; &quot;&acute;&quot;, # acute accent<br/>+ &quot;micro&quot; =&gt; &quot;&micro;&quot;, # micro sign<br/>+ &quot;para&quot; =&gt; &quot;&para;&quot;, # pilcrow sign = paragraph sign<br/>+ &quot;middot&quot; =&gt; &quot;&middot;&quot;, # middle dot = Georgian comma<br/>+ &quot;cedil&quot; =&gt; &quot;&cedil;&quot;, # cedilla<br/>+<br/>+ &quot;ordm&quot; =&gt; &quot;&ordm;&quot;, # masculine ordinal indicator<br/>+<br/>+ &quot;iquest&quot; =&gt; &quot;&iquest;&quot;, # inverted question mark<br/>+ &quot;times&quot; =&gt; &quot;x&quot;, # multiplication sign (just an x)<br/>+ &quot;divide&quot; =&gt; &quot;&divide;&quot;, # division sign<br/>+<br/>+ &quot;nbsp&quot; =&gt; &quot;&nbsp;&quot;, # non-breaking space<br/>+);<br/>+<br/>+<br/>+# This array maps the ISO 8559-1 (Latin-1) character set to the Mac standard Roman character set.<br/>+# Latin 1: The first 127 characters are equal to ASCII. (0x00 - 0x7F, 0 - 127, where 127 is non-printable)<br/>+# The next 32 characters are non-printable. (0x80 - 0x9F, 128 - 159) <br/>+# The last 96 characters are shown below. (0xA0 - 0xFF, 160 - 255)<br/>+#<br/>+# (subtract 160 from the Latin-1 char code to get the array index)<br/>+@Latin1_to_MacRoman_MAP = ( <br/>+<br/>+ 0xCA, # 0 -- 0xA0, 160, &#39; &#39; -&gt; nonbreaking space<br/>+ 0xC1, # 1 -- 0xA1, 161, &#39;&iexcl;&#39; -&gt; inverted exclamation mark<br/>+ 0xA2, # 2 -- 0xA2, 162, &#39;&cent;&#39; -&gt; cent sign<br/>+ 0xA3, # 3 -- 0xA3, 163, &#39;&pound;&#39; -&gt; (UK) pound sign<br/>+ 0xDB, # 4 -- 0xA4, 164, &#39;&curren;&#39; -&gt; currency sign (some fonts display it as Euro sign; select e.g. Futura to see it)<br/>+ 0xB4, # 5 -- 0xA5, 165, &#39;&yen;&#39; -&gt; yen sign<br/>+ 0x00, # 6 -- 0xA6, 166, n/a -&gt; broken vertical bar (not in the Mac standard Roman character set)<br/>+ 0xA4, # 7 -- 0xA7, 167, &#39;&sect;&#39; -&gt; section sign<br/>+ 0xAC, # 8 -- 0xA8, 168, &#39;&uml;&#39; -&gt; diaresis<br/>+ 0xA9, # 9 -- 0xA9, 169, &#39;&copy;&#39; -&gt; Copyright symbol<br/>+<br/>+ 0xBB, # 10 -- 0xAA, 170, &#39;&ordf;&#39; -&gt; feminine ordinal indicator <br/>+ 0xC7, # 11 -- 0xAB, 171, &#39;&laquo;&#39; -&gt; left pointing double angle quotation mark, guillemotleft<br/>+ 0xC2, # 12 -- 0xAC, 172, &#39;&not;&#39; -&gt; (logical) not sign<br/>+ 0xD0, # 13 -- 0xAD, 173, &#39;&shy;&#39; -&gt; soft (discretionary) hyphen (endash)<br/>+ 0xA8, # 14 -- 0xAE, 174, &#39;&reg;&#39; -&gt; registered<br/>+ 0xF8, # 15 -- 0xAF, 175, &#39;&macr;&#39; -&gt; macron, overline<br/>+ 0xA1, # 16 -- 0xB0, 176, &#39;&deg;&#39; -&gt; degree sign<br/>+ 0xB1, # 17 -- 0xB1, 177, &#39;&plusmn;&#39; -&gt; plus-minus sign<br/>+ 0x00, # 18 -- 0xB2, 178, n/a -&gt; superscript 2 (not in the Mac standard Roman character set)<br/>+ 0x00, # 19 -- 0xB3, 179, n/a -&gt; superscript 3 (not in the Mac standard Roman character set)<br/>+<br/>+ 0xAB, # 20 -- 0xB4, 180, &#39;&acute;&#39; -&gt; acute accent<br/>+ 0xB5, # 21 -- 0xB5, 181, &#39;&micro;&#39; -&gt; micro sign<br/>+ 0xA6, # 22 -- 0xB6, 182, &#39;&para;&#39; -&gt; pilcrow sign = paragraph sign<br/>+ 0xE1, # 23 -- 0xB7, 183, &#39;&middot;&#39; -&gt; middle dot or periodcentered = Georgian comma<br/>+ 0xFC, # 24 -- 0xB8, 184, &#39;&cedil;&#39; -&gt; cedilla<br/>+ 0x00, # 25 -- 0xB9, 185, n/a -&gt; superscript 1 (not in the Mac standard Roman character set)<br/>+ 0xBC, # 26 -- 0xBA, 186, &#39;&ordm;&#39; -&gt; masculine ordinal indicator<br/>+ 0xC8, # 27 -- 0xBB, 187, &#39;&raquo;&#39; -&gt; right pointing double angle quotation mark, guillemotright<br/>+ 0x00, # 28 -- 0xBC, 188, n/a -&gt; vulgar fraction one quarter (not in the Mac standard Roman character set)<br/>+ 0x00, # 29 -- 0xBD, 189, n/a -&gt; vulgar fraction one half (not in the Mac standard Roman character set)<br/>+<br/>+ 0x00, # 30 -- 0xBE, 190, n/a -&gt; vulgar fraction three quarters (not in the Mac standard Roman character set)<br/>+ 0xC0, # 31 -- 0xBF, 191, &#39;&iquest;&#39; -&gt; inverted question mark<br/>+ 0xCB, # 32 -- 0xC0, 192, &#39;&Agrave;&#39; -&gt; capital A, grave accent<br/>+ 0xE7, # 33 -- 0xC1, 193, &#39;&Aacute;&#39; -&gt; capital A, acute accent<br/>+ 0xE5, # 34 -- 0xC2, 194, &#39;&Acirc;&#39; -&gt; capital A, circumflex accent<br/>+ 0xCC, # 35 -- 0xC3, 195, &#39;&Atilde;&#39; -&gt; capital A, tilde<br/>+ 0x80, # 36 -- 0xC4, 196, &#39;&Auml;&#39; -&gt; capital A, dieresis or umlaut mark<br/>+ 0x81, # 37 -- 0xC5, 197, &#39;&Aring;&#39; -&gt; capital A, ring<br/>+ 0xAE, # 38 -- 0xC6, 198, &#39;&AElig;&#39; -&gt; capital AE diphthong (ligature)<br/>+ 0x82, # 39 -- 0xC7, 199, &#39;&Ccedil;&#39; -&gt; capital C, cedilla<br/>+ <br/>+ 0xE9, # 40 -- 0xC8, 200, &#39;&Egrave;&#39; -&gt; capital E, grave accent<br/>+ 0x83, # 41 -- 0xC9, 201, &#39;&Eacute;&#39; -&gt; capital E, acute accent<br/>+ 0xE6, # 42 -- 0xCA, 202, &#39;&Ecirc;&#39; -&gt; capital E, circumflex accent<br/>+ 0xE8, # 43 -- 0xCB, 203, &#39;&Euml;&#39; -&gt; capital E, dieresis or umlaut mark<br/>+ 0xED, # 44 -- 0xCC, 204, &#39;&Igrave;&#39; -&gt; capital I, grave accent<br/>+ 0xEA, # 45 -- 0xCD, 205, &#39;&Iacute;&#39; -&gt; capital I, acute accent<br/>+ 0xEB, # 46 -- 0xCE, 206, &#39;&Icirc;&#39; -&gt; capital I, circumflex accent<br/>+ 0xEC, # 47 -- 0xCF, 207, &#39;&Iuml;&#39; -&gt; capital I, dieresis or umlaut mark <br/>+ 0x00, # 48 -- 0xD0, 208, n/a -&gt; capital Eth, Icelandic (not in the Mac standard Roman character set)<br/>+ 0x84, # 49 -- 0xD1, 209, &#39;&Ntilde;&#39; -&gt; capital N, tilde<br/>+<br/>+ 0xF1, # 50 -- 0xD2, 210, &#39;&Ograve;&#39; -&gt; capital O, grave accent<br/>+ 0xEE, # 51 -- 0xD3, 211, &#39;&Oacute;&#39; -&gt; capital O, acute accent<br/>+ 0xEF, # 52 -- 0xD4, 212, &#39;&Ocirc;&#39; -&gt; capital O, circumflex accent<br/>+ 0xCD, # 53 -- 0xD5, 213, &#39;&Otilde;&#39; -&gt; capital O, tilde<br/>+ 0x85, # 54 -- 0xD6, 214, &#39;&Ouml;&#39; -&gt; capital O, dieresis or umlaut mark<br/>+ 0x00, # 55 -- 0xD7, 215, n/a -&gt; multiplication sign (not in the Mac standard Roman character set)<br/>+ 0xAF, # 56 -- 0xD8, 216, &#39;&Oslash;&#39; -&gt; capital O, slash<br/>+ 0xF4, # 57 -- 0xD9, 217, &#39;&Ugrave;&#39; -&gt; capital U, grave accent<br/>+ 0xF2, # 58 -- 0xDA, 218, &#39;&Uacute;&#39; -&gt; capital U, acute accent<br/>+ 0xF3, # 59 -- 0xDB, 219, &#39;&Ucirc;&#39; -&gt; capital U, circumflex accent<br/>+ <br/>+ 0x86, # 60 -- 0xDC, 220, &#39;&Uuml;&#39; -&gt; capital U, dieresis or umlaut mark<br/>+ 0x00, # 61 -- 0xDD, 221, n/a -&gt; capital Y, acute accent (not in the Mac standard Roman character set)<br/>+ 0x00, # 62 -- 0xDE, 222, n/a -&gt; capital THORN, Icelandic (not in the Mac standard Roman character set)<br/>+ 0xA7, # 63 -- 0xDF, 223, &#39;&szlig;&#39; -&gt; small sharp s, German (sz ligature)<br/>+ 0x88, # 64 -- 0xE0, 224, &#39;&agrave;&#39; -&gt; small a, grave accent<br/>+ 0x87, # 65 -- 0xE1, 225, &#39;&aacute;&#39; -&gt; small a, acute accent<br/>+ 0x89, # 66 -- 0xE2, 226, &#39;&acirc;&#39; -&gt; small a, circumflex accent<br/>+ 0x8B, # 67 -- 0xE3, 227, &#39;&atilde;&#39; -&gt; small a, tilde<br/>+ 0x8A, # 69 -- 0xE4, 228, &#39;&auml;&#39; -&gt; small a, dieresis or umlaut mark<br/>+ 0x8C, # 69 -- 0xE5, 229, &#39;&aring;&#39; -&gt; small a, ring<br/>+<br/>+ 0xBE, # 70 -- 0xE6, 230, &#39;&aelig;&#39; -&gt; small ae diphthong (ligature)<br/>+ 0x8D, # 71 -- 0xE7, 231, &#39;&ccedil;&#39; -&gt; small c, cedilla<br/>+ 0x8F, # 72 -- 0xE8, 232, &#39;&egrave;&#39; -&gt; small e, grave accent<br/>+ 0x8E, # 73 -- 0xE9, 233, &#39;&eacute;&#39; -&gt; small e, acute accent<br/>+ 0x90, # 74 -- 0xEA, 234, &#39;&ecirc;&#39; -&gt; small e, circumflex accent<br/>+ 0x91, # 75 -- 0xEB, 235, &#39;&euml;&#39; -&gt; small e, dieresis or umlaut mark<br/>+ 0x93, # 76 -- 0xEC, 236, &#39;&igrave;&#39; -&gt; small i, grave accent <br/>+ 0x92, # 77 -- 0xED, 237, &#39;&iacute;&#39; -&gt; small i, acute accent<br/>+ 0x94, # 78 -- 0xEE, 238, &#39;&icirc;&#39; -&gt; small i, circumflex accent<br/>+ 0x95, # 79 -- 0xEF, 239, &#39;&iuml;&#39; -&gt; small i, dieresis or umlaut mark<br/>+<br/>+ 0x00, # 80 -- 0xF0, 240, n/a -&gt; small eth, Icelandic (not in the Mac standard Roman character set)<br/>+ 0x96, # 81 -- 0xF1, 241, &#39;&ntilde;&#39; -&gt; small n, tilde<br/>+ 0x98, # 82 -- 0xF2, 242, &#39;&ograve;&#39; -&gt; small o, grave accent<br/>+ 0x97, # 83 -- 0xF3, 243, &#39;&oacute;&#39; -&gt; small o, acute accent<br/>+ 0x99, # 84 -- 0xF4, 244, &#39;&ocirc;&#39; -&gt; small o, circumflex accent<br/>+ 0x9B, # 85 -- 0xF5, 245, &#39;&otilde;&#39; -&gt; small o, tilde<br/>+ 0xBB, # 86 -- 0xF6, 246, &#39;&ouml;&#39; -&gt; small o, dieresis or umlaut mark <br/>+ 0xD6, # 87 -- 0xF7, 247, &#39;&divide;&#39; -&gt; division sign<br/>+ 0xBF, # 88 -- 0xF8, 248, &#39;&oslash;&#39; -&gt; small o, slash<br/>+ 0x9D, # 89 -- 0xF9, 249, &#39;&ugrave;&#39; -&gt; small u, grave accent<br/>+<br/>+ 0x9C, # 90 -- 0xFA, 250, &#39;&uacute;&#39; -&gt; small u, acute accent<br/>+ 0x9E, # 91 -- 0xFB, 251, &#39;&ucirc;&#39; -&gt; small u, circumflex accent<br/>+ 0x9F, # 92 -- 0xFC, 252, &#39;&uuml;&#39; -&gt; small u, dieresis or umlaut mark<br/>+ 0x00, # 93 -- 0xFD, 253, n/a -&gt; small y, acute accent (not in the Mac standard Roman character set)<br/>+ 0x00, # 94 -- 0xFE, 254, n/a -&gt; small thorn, Icelandic (not in the Mac standard Roman character set)<br/>+ 0xD8 # 95 -- 0xFF, 255, &#39;&yuml;&#39; -&gt; small y, dieresis or umlaut mark<br/>+<br/>+);<br/>+<br/>+ <br/>+ <br/>+sub command {<br/>+ my ($parser, $command, $paragraph, $line_num) = @_;<br/>+ my $out_fh = $parser-&gt;output_handle();<br/>+ my $expansion;<br/>+ <br/>+ # interpret the command and its text <br/>+ # for indexing, only =heads and =items are of interest<br/>+ if ( ($command eq &#39;head1&#39;) || ($command eq &#39;head2&#39;) ||<br/>+ ($command eq &#39;head3&#39;) || ($command eq &#39;head4&#39;) ||<br/>+ ($command eq &#39;item&#39;) ) <br/>+ {<br/>+ # expand formatting codes<br/>+ $expansion = $parser-&gt;interpolate($paragraph, $line_num);<br/>+ # print to out file<br/>+ print $out_fh &#39;=&#39; . $command . &#39; &#39; . $expansion;<br/>+ }<br/>+}<br/>+<br/>+sub verbatim {<br/>+ my ($parser, $paragraph, $line_num) = @_; <br/>+ # do nothing<br/>+}<br/>+<br/>+sub textblock {<br/>+ my ($parser, $paragraph, $line_num) = @_; <br/>+ # do nothing<br/>+}<br/>+<br/>+<br/>+# Handle links. Most of the work is done by MyPodParseLink.<br/>+sub seq_Link {<br/>+ my ($self, $link, $seq) = @_;<br/>+ my ($text, $type) = (MyPodParseLink::parselink ($link))[1,4];<br/>+ my ($file, $line) = $seq-&gt;file_line;<br/>+ $text = $self-&gt;interpolate ($text, $line);<br/>+ $text = &#39;&lt;&#39; . $text . &#39;&gt;&#39; if $type eq &#39;url&#39;;<br/>+ return $text || &#39;&#39;;<br/>+}<br/>+<br/>+# Called for a formatting code. Gets the command, argument, and a<br/>+# Pod::InteriorSequence object and is expected to return the resulting text.<br/>+sub interior_sequence {<br/>+ my ($parser, $seq_command, $seq_argument, $pod_seq) = @_;<br/>+<br/>+ my $parent = $pod_seq-&gt;nested;<br/>+ while (defined $parent) {<br/>+ return $pod_seq-&gt;raw_text if ($parent-&gt;cmd_name eq &#39;L&#39;);<br/>+ $parent = $parent-&gt;nested;<br/>+ }<br/>+ <br/>+ # get filename and line number <br/>+ my ($file, $line) = $pod_seq-&gt;file_line;<br/>+<br/>+ # Index entries are ignored in plain text.<br/>+ return &#39;&#39; if ($seq_command eq &#39;X&#39; || $seq_command eq &#39;Z&#39;);<br/>+ <br/>+ # Expand escapes into the actual character now, warning if invalid.<br/>+ if ($seq_command eq &#39;E&#39;) {<br/>+ <br/>+ my $is_Number = 0;<br/>+ if ( $seq_argument =~ m/^(0x[a-fA-F0-9]+)$/ ) { <br/>+ # hexadecimal<br/>+ $charCode = hex($1);<br/>+ $is_Number = 1;<br/>+ }<br/>+ elsif ( $seq_argument =~ m/^(0[0-7]+)$/ ) {<br/>+ # octal<br/>+ $charCode = oct($1);<br/>+ $is_Number = 1;<br/>+ }<br/>+ elsif ( $seq_argument =~ m/^(0|(?:[1-9][0-9]*))$/) {<br/>+ # decimal, but not e.g. 099<br/>+ $charCode = $1;<br/>+ $is_Number = 1;<br/>+ }<br/>+ <br/>+ if ($is_Number) { # $seq_argument is a character number<br/>+ <br/>+ if ( ($charCode &lt; 0) || ($charCode &gt; 255) ) {<br/>+ warn &quot;$file:$line: Character code out of range: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ <br/>+ } <br/>+ else {<br/>+ <br/>+ if ($charCode &lt; 32) { <br/>+ # standard ASCII, non-printable <br/>+ warn &quot;$file:$line: Character is non-printable: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ elsif ( ($charCode &gt;= 32) &amp;&amp; ($charCode &lt; 127) ) { <br/>+ # standard ASCII <br/>+ return chr($charCode); <br/>+ }<br/>+ elsif ( ($charCode &gt;= 127) &amp;&amp; ($charCode &lt; 160) ) {<br/>+ # 127 : standard ASCII, but non-printable (DEL)<br/>+ # 128 - 159 : not defined in ISO 8559-1 (Latin-1) <br/>+ warn &quot;$file:$line: Character is non-printable: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ else { <br/>+ # 160 - 255 (0xA0 - 0xFF)<br/>+ # map ISO 8559-1 (Latin-1) to Mac standard Roman <br/>+ my $MacCharCode = $Latin1_to_MacRoman_MAP[$charCode-160];<br/>+ if ($MacCharCode == 0) { <br/>+ # not in Mac Roman<br/>+ warn &quot;$file:$line: Character is not in the Macintosh standard Roman character set: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;; <br/>+ } <br/>+ else {<br/>+ return chr($MacCharCode);<br/>+ }<br/>+ }<br/>+ }<br/>+ <br/>+ } <br/>+ else {<br/>+ return $ESCAPES{$seq_argument} if defined $ESCAPES{$seq_argument};<br/>+ warn &quot;$file:$line: Unknown escape: E&lt;${seq_argument}&gt;\n&quot;;<br/>+ return &#39;E&lt;&#39; . $seq_argument . &#39;&gt;&#39;;<br/>+ }<br/>+ }<br/>+<br/>+ # For all the other formatting codes, empty content produces no output.<br/>+ return if $seq_argument eq &#39;&#39;;<br/>+ <br/>+ # L gets dispatched to another method, anything else returns its argument <br/>+ if ($seq_command eq &#39;B&#39;) { return &quot;$seq_argument&quot;;}<br/>+ elsif ($seq_command eq &#39;C&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;F&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;I&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;S&#39;) { return &quot;$seq_argument&quot;; }<br/>+ elsif ($seq_command eq &#39;L&#39;) { return $parser-&gt;seq_Link ($seq_argument, $pod_seq) }<br/>+ else {<br/>+ warn &quot;$file:$line: Unknown formatting code: $$seq_command&lt;${seq_argument}&gt;\n&quot;;<br/>+ } <br/>+}<br/>+<br/>+<br/>+##############################################################################<br/>+# MAIN <br/>+##############################################################################<br/>+package main;<br/>+<br/> ($index = shift @ARGV) || die &quot;No help index specified&quot;;<br/> <br/> dbmopen(%INDEX, $index, 0666) || die &quot;Couldn&#39;t open index file \&quot;$index\&quot;&quot;;<br/>@@ -123,6 +578,15 @@<br/> local($file, $var) = @_;<br/> local(%rename, %alias);<br/> <br/>+ # Create a parser object <br/>+ my $parser = new MyPodIndexer(); <br/>+ $file =~ m/([^:]+)\.pod$/;<br/>+ my $indexfile = $1 . &#39;.idx&#39;; # our temporary index file <br/>+<br/>+ # Read POD from file.pod and write to file.idx<br/>+ # (create the index file in our current directory, which normally is &quot;:macperl_src:macperl:&quot;)<br/>+ $parser-&gt;parse_from_file (&quot;::perl$file&quot;, &quot;:$indexfile&quot;);<br/>+ <br/> $url = $file;<br/> if ($url =~ /^:/) {<br/> $url = $&#39;;<br/>@@ -132,7 +596,7 @@<br/> $url =~ s|:|/|g; <br/> $url = &quot;pod://$url&quot;;<br/> }<br/>- open(INDEX, &quot;::perl$file&quot;) ||&nbsp;die &quot;Can&#39;t open index file \&quot;$file\&quot;&quot;;<br/>+ open(INDEX, &quot;:$indexfile&quot;) ||&nbsp;die &quot;Can&#39;t open index file \&quot;$indexfile\&quot;&quot;;<br/> while (&lt;&gt;) {<br/> if (/\@end/) {<br/> goto startindex;<br/>@@ -154,7 +618,13 @@<br/> while (&lt;INDEX&gt;) {<br/> if (/^=item\s+(.*\S)\s*$/) {<br/> $name = $1;<br/>- next if ($name eq &quot;*&quot;);<br/>+ <br/>+ # bullet lists and numbered lists are not indexed by Shuck<br/>+ next if ($name eq &quot;*&quot;); # skip =item *<br/>+ next if ($name =~ m/^\d+\.?$/); # skip =item 1/2./0377 (decimal, octal)<br/>+ next if ($name =~ m/^0x[0-9a-fA-F]+$/); # skip =item 0x20 (hex)<br/>+ next if ($name =~ m/^0b[01]+$/); # skip =item 0b1100 (binary)<br/>+ <br/> if ($name =~ /^\$([A-Za-z_]+|\^[A-Z]|&lt;I&lt;digit&gt;&gt;|.)(.?)/) {<br/> if ($2 eq &quot;{&quot;) {<br/> $key = &quot;\%$1&quot;;<br/>@@ -192,4 +662,7 @@<br/> warn &quot;\&quot;$value\&quot; undefined&quot; unless $INDEX{$value};<br/> $INDEX{$lastkey = $key} ||= $INDEX{$value};<br/> }<br/>+ <br/>+ close INDEX;<br/>+ unlink $indexfile;<br/> }<br/><br/>==== //depot/maint-5.8/macperl/macos/macperl/MacPerl.podhelp#2 (text) ====<br/>Index: macperl/macos/macperl/MacPerl.podhelp<br/>--- macperl/macos/macperl/MacPerl.podhelp#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/macperl/MacPerl.podhelp Mon Jul 29 20:16:52 2002<br/>@@ -87,10 +87,8 @@<br/> pod:pod/perlop.pod Operators and precedence (perlop)<br/> pod:pod/perlsub.pod Subroutines (perlsub)<br/> pod:pod/perlfunc.pod Builtin functions (perlfunc)<br/>-@sub Function Tutorials<br/> pod:pod/perlopentut.pod open() tutorial (perlopentut)<br/> pod:pod/perlpacktut.pod pack() and unpack() tutorial (perlpacktut)<br/>-@end<br/> @sep<br/> pod:pod/perlpod.pod Plain old documentation (perlpod)<br/> pod:pod/perlpodspec.pod Plain old documentation format specification (perlpod)<br/>@@ -122,13 +120,11 @@<br/> @sep<br/> pod:pod/perlsec.pod Security (perlsec)<br/> @sep<br/>-@sub Modules<br/>-pod:pod/perlmod.pod How they work (perlmod)<br/>+pod:pod/perlmod.pod How modules work (perlmod)<br/> pod:pod/perlmodlib.pod How to write and use (perlmodlib)<br/> pod:pod/perlmodstyle.pod How to write with style (perlmodstyle)<br/> pod:pod/perlmodinstall.pod How to install from CPAN (perlmodinstall)<br/> pod:pod/perlnewmod.pod Preparing a new module for distribution (perlnewmod)<br/>-@end<br/> @sep<br/> pod:pod/perlutil.pod Utilities packaged with the Perl distribution (perlutil)<br/> pod:pod/perlfilter.pod Source filters (perlfilter)<br/>@@ -209,7 +205,8 @@<br/> @alias ^ Bitwise Or and Exclusive Or<br/> @alias &amp;&amp; C-style Logical And<br/> @alias || C-style Logical Or<br/>-@alias .. Range Operator<br/>+@alias .. Range Operators<br/>+@alias ... Range Operators<br/> @alias ? Conditional Operator<br/> @alias : Conditional Operator<br/> @alias = Assignment Operators<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg270.html Tue, 30 Jul 2002 06:08:17 +0000 Change 17669: Silent warnings in MM_MacOS by Chris Nandor Change 17669 by pudge@pudge-mobile on 2002/07/30 03:18:47<br/><br/> Silent warnings in MM_MacOS<br/><br/>Affected files ...<br/><br/>.... //depot/macperl/lib/ExtUtils/MM_MacOS.pm#9 edit<br/><br/>Differences ...<br/><br/>==== //depot/macperl/lib/ExtUtils/MM_MacOS.pm#9 (text) ====<br/>Index: macperl/lib/ExtUtils/MM_MacOS.pm<br/>--- macperl/lib/ExtUtils/MM_MacOS.pm#8~17347~ Sat Jun 22 13:20:04 2002<br/>+++ macperl/lib/ExtUtils/MM_MacOS.pm Mon Jul 29 20:18:47 2002<br/>@@ -130,7 +130,7 @@<br/> # This Makefile is for the $self-&gt;{NAME} extension to perl.<br/> #<br/> # It was generated automatically by MakeMaker version<br/>-# $VERSION (Revision: $Revision) from the contents of<br/>+# $ExtUtils::MakeMaker::VERSION (Revision: $ExtUtils::MakeMaker::Revision) from the contents of<br/> # Makefile.PL. Don&#39;t edit this file, edit Makefile.PL instead.<br/> #<br/> # ANY CHANGES MADE HERE WILL BE LOST!<br/>@@ -182,7 +182,7 @@<br/> <br/> my $section;<br/> foreach $section ( @ExtUtils::MakeMaker::MM_Sections ){<br/>- next if ($self-&gt;{SKIPHASH}{$section} == 2);<br/>+ next if ($self-&gt;{SKIPHASH}{$section} &amp;&amp; $self-&gt;{SKIPHASH}{$section} == 2);<br/> print &quot;Processing Makefile &#39;$section&#39; section\n&quot; if ($Verbose &gt;= 2);<br/> $self-&gt;{ABSTRACT_FROM} = macify($self-&gt;{ABSTRACT_FROM})<br/> if $self-&gt;{ABSTRACT_FROM};<br/>@@ -347,9 +347,10 @@<br/> $self-&gt;{MACPERL_INC} = $self-&gt;{MACPERL_SRC};<br/> } else {<br/> # hmmmmmmm ... ?<br/>- $self-&gt;{PERL_LIB} ||= &quot;$ENV{MACPERL}site_perl&quot;;<br/>+ $self-&gt;{PERL_LIB} ||= &quot;$ENV{MACPERL}site_perl&quot;;<br/> $self-&gt;{PERL_ARCHLIB} = $self-&gt;{PERL_LIB};<br/> $self-&gt;{PERL_INC} = $ENV{MACPERL};<br/>+ $self-&gt;{PERL_SRC} = &#39;&#39;;<br/> # die &lt;&lt;END;<br/> #On MacOS, we need to build under the Perl source directory or have the MacPerl SDK<br/> #installed in the MacPerl folder.<br/>@@ -875,7 +876,7 @@<br/> <br/> sub cflags {<br/> my($self,$libperl) = @_;<br/>- my $optimize;<br/>+ my $optimize = &#39;&#39;;<br/> <br/> for (map { $_ . &quot;Optimize&quot; } qw(MWC MWCPPC MWC68K MPW MRC MRC SC)) {<br/> $optimize .= &quot;$_ = $self-&gt;{$_}&quot; if exists $self-&gt;{$_};<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg269.html Tue, 30 Jul 2002 06:08:05 +0000 Change 17670: Silent warnings in MM_MacOS by Chris Nandor Change 17670 by pudge@pudge-mobile on 2002/07/30 03:19:03<br/><br/> Silent warnings in MM_MacOS<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.8/macperl/lib/ExtUtils/MM_MacOS.pm#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/lib/ExtUtils/MM_MacOS.pm#2 (text) ====<br/>Index: macperl/lib/ExtUtils/MM_MacOS.pm<br/>--- macperl/lib/ExtUtils/MM_MacOS.pm#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/lib/ExtUtils/MM_MacOS.pm Mon Jul 29 20:19:03 2002<br/>@@ -130,7 +130,7 @@<br/> # This Makefile is for the $self-&gt;{NAME} extension to perl.<br/> #<br/> # It was generated automatically by MakeMaker version<br/>-# $VERSION (Revision: $Revision) from the contents of<br/>+# $ExtUtils::MakeMaker::VERSION (Revision: $ExtUtils::MakeMaker::Revision) from the contents of<br/> # Makefile.PL. Don&#39;t edit this file, edit Makefile.PL instead.<br/> #<br/> # ANY CHANGES MADE HERE WILL BE LOST!<br/>@@ -182,7 +182,7 @@<br/> <br/> my $section;<br/> foreach $section ( @ExtUtils::MakeMaker::MM_Sections ){<br/>- next if ($self-&gt;{SKIPHASH}{$section} == 2);<br/>+ next if ($self-&gt;{SKIPHASH}{$section} &amp;&amp; $self-&gt;{SKIPHASH}{$section} == 2);<br/> print &quot;Processing Makefile &#39;$section&#39; section\n&quot; if ($Verbose &gt;= 2);<br/> $self-&gt;{ABSTRACT_FROM} = macify($self-&gt;{ABSTRACT_FROM})<br/> if $self-&gt;{ABSTRACT_FROM};<br/>@@ -347,9 +347,10 @@<br/> $self-&gt;{MACPERL_INC} = $self-&gt;{MACPERL_SRC};<br/> } else {<br/> # hmmmmmmm ... ?<br/>- $self-&gt;{PERL_LIB} ||= &quot;$ENV{MACPERL}site_perl&quot;;<br/>+ $self-&gt;{PERL_LIB} ||= &quot;$ENV{MACPERL}site_perl&quot;;<br/> $self-&gt;{PERL_ARCHLIB} = $self-&gt;{PERL_LIB};<br/> $self-&gt;{PERL_INC} = $ENV{MACPERL};<br/>+ $self-&gt;{PERL_SRC} = &#39;&#39;;<br/> # die &lt;&lt;END;<br/> #On MacOS, we need to build under the Perl source directory or have the MacPerl SDK<br/> #installed in the MacPerl folder.<br/>@@ -875,7 +876,7 @@<br/> <br/> sub cflags {<br/> my($self,$libperl) = @_;<br/>- my $optimize;<br/>+ my $optimize = &#39;&#39;;<br/> <br/> for (map { $_ . &quot;Optimize&quot; } qw(MWC MWCPPC MWC68K MPW MRC MRC SC)) {<br/> $optimize .= &quot;$_ = $self-&gt;{$_}&quot; if exists $self-&gt;{$_};<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg268.html Tue, 30 Jul 2002 06:08:00 +0000 Change 17667: Integrate perl by Chris Nandor Change 17667 by pudge@pudge-mobile on 2002/07/29 20:42:43<br/><br/> Integrate perl<br/><br/>Affected files ...<br/><br/>.... //depot/macperl/AUTHORS#7 integrate<br/>.... //depot/macperl/Changes#14 integrate<br/>.... //depot/macperl/Changes5.8#1 branch<br/>.... //depot/macperl/Configure#12 integrate<br/>.... //depot/macperl/INSTALL#6 integrate<br/>.... //depot/macperl/MANIFEST#14 integrate<br/>.... //depot/macperl/NetWare/Makefile#7 integrate<br/>.... //depot/macperl/NetWare/t/NWScripts.pl#3 integrate<br/>.... //depot/macperl/Porting/config.sh#10 integrate<br/>.... //depot/macperl/Porting/config_H#10 integrate<br/>.... //depot/macperl/README.cygwin#7 integrate<br/>.... //depot/macperl/embed.fnc#7 integrate<br/>.... //depot/macperl/ext/Encode/Encode.pm#7 integrate<br/>.... //depot/macperl/ext/PerlIO/scalar/scalar.xs#2 integrate<br/>.... //depot/macperl/hints/darwin.sh#3 integrate<br/>.... //depot/macperl/lib/File/stat.pm#2 integrate<br/>.... //depot/macperl/lib/Unicode/Collate.pm#6 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/Changes#5 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/README#5 integrate<br/>.... //depot/macperl/lib/Unicode/Collate/t/test.t#5 integrate<br/>.... //depot/macperl/makedef.pl#12 integrate<br/>.... //depot/macperl/patchlevel.h#14 integrate<br/>.... //depot/macperl/perl.h#7 integrate<br/>.... //depot/macperl/pod/perl58delta.pod#1 branch<br/>.... //depot/macperl/pod/perldebug.pod#3 integrate<br/>.... //depot/macperl/pod/perldelta.pod#16 integrate<br/>.... //depot/macperl/pod/perlfunc.pod#11 integrate<br/>.... //depot/macperl/pod/perlhist.pod#5 integrate<br/>.... //depot/macperl/pod/perlnumber.pod#2 integrate<br/>.... //depot/macperl/pod/perlport.pod#8 integrate<br/>.... //depot/macperl/pod/perlthrtut.pod#9 integrate<br/>.... //depot/macperl/pod/perltoc.pod#11 integrate<br/>.... //depot/macperl/pod/perlvar.pod#7 integrate<br/>.... //depot/macperl/pp_sys.c#11 integrate<br/>.... //depot/macperl/regcomp.c#6 integrate<br/>.... //depot/macperl/sv.c#12 integrate<br/>.... //depot/macperl/util.c#10 integrate<br/>.... //depot/macperl/utils/perlbug.PL#4 integrate<br/><br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg267.html Mon, 29 Jul 2002 15:14:14 +0000 Change 17664: Neglected to include old bugfix from main branch by Chris Nandor Change 17664 by pudge@pudge-mobile on 2002/07/29 19:20:51<br/><br/> Neglected to include old bugfix from main branch<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/perl.c#11 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/perl.c#11 (text) ====<br/>Index: macperl/perl.c<br/>--- macperl/perl.c#10~17663~ Mon Jul 29 11:25:57 2002<br/>+++ macperl/perl.c Mon Jul 29 12:20:51 2002<br/>@@ -1010,7 +1010,7 @@<br/> #ifdef MACOS_TRADITIONAL<br/> /* ignore -e for Dev:Pseudo argument */<br/> if (argv[1] &amp;&amp; !strcmp(argv[1], &quot;Dev:Pseudo&quot;))<br/>- break; <br/>+ break;<br/> #endif<br/> if (PL_euid != PL_uid || PL_egid != PL_gid)<br/> Perl_croak(aTHX_ &quot;No -e allowed in setuid scripts&quot;);<br/>@@ -1452,7 +1452,9 @@<br/> <br/> if (PL_minus_c) {<br/> #ifdef MACOS_TRADITIONAL<br/>- PerlIO_printf(Perl_error_log, &quot;# %s syntax OK\n&quot;, MacPerl_MPWFileName(PL_origfilename));<br/>+ PerlIO_printf(Perl_error_log, &quot;%s%s syntax OK\n&quot;,<br/>+ (gMacPerl_ErrorFormat ? &quot;# &quot; : &quot;&quot;),<br/>+ MacPerl_MPWFileName(PL_origfilename));<br/> #else<br/> PerlIO_printf(Perl_error_log, &quot;%s syntax OK\n&quot;, PL_origfilename);<br/> #endif<br/>@@ -3063,6 +3065,7 @@<br/> forbid_setid(&quot;-x&quot;);<br/> #ifdef MACOS_TRADITIONAL<br/> /* Since the Mac OS does not honor #! arguments for us, we do it ourselves */<br/>+<br/> while (PL_doextract || gMacPerl_AlwaysExtract) {<br/> if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {<br/> if (!gMacPerl_AlwaysExtract)<br/>@@ -3073,10 +3076,10 @@<br/> Perl_croak(aTHX_ &quot;User aborted script\n&quot;);<br/> else<br/> PL_doextract = FALSE;<br/>- <br/>+<br/> /* Pater peccavi, file does not have #! */<br/> PerlIO_rewind(PL_rsfp);<br/>- <br/>+<br/> break;<br/> }<br/> #else<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg266.html Mon, 29 Jul 2002 14:30:49 +0000 Change 17665: Integrate from maint-5.6/macperl by Chris Nandor Change 17665 by pudge@pudge-mobile on 2002/07/29 19:39:58<br/><br/> Integrate from maint-5.6/macperl<br/> <br/> Changes 17660, 17661, 17662, 17663, 17664<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.8/macperl/macos/ext/Mac/Dialogs/Dialogs.pm#2 edit<br/>.... //depot/maint-5.8/macperl/macos/lib/Mac/AETE/App.pm#2 edit<br/>.... //depot/maint-5.8/macperl/macos/lib/Mac/AETE/Format/Glue.pm#2 edit<br/>.... //depot/maint-5.8/macperl/macos/lib/Mac/OSA/Simple.pm#2 edit<br/>.... //depot/maint-5.8/macperl/macos/macperl/Droplets/gluemac.plx#2 edit<br/>.... //depot/maint-5.8/macperl/perl.c#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.8/macperl/macos/ext/Mac/Dialogs/Dialogs.pm#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Dialogs/Dialogs.pm<br/>--- macperl/macos/ext/Mac/Dialogs/Dialogs.pm#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/ext/Mac/Dialogs/Dialogs.pm Mon Jul 29 12:39:58 2002<br/>@@ -475,9 +475,16 @@<br/> <br/> =cut<br/> sub click {<br/>- my($handled);<br/>- defined($handled = $_[0]-&gt;callhook(&quot;click&quot;, @_)) and return 1;<br/>- _dialogselect(@_);<br/>+ my($self, $pt) = @_;<br/>+ for my $pane (@{$self-&gt;{panes}}) { <br/>+ if ($pane-&gt;click($self, $pt)) {<br/>+ $self-&gt;advance_focus($pane);<br/>+ return 1; <br/>+ }<br/>+ };<br/>+ my($handled);<br/>+ defined($handled = $self-&gt;callhook(&quot;click&quot;, @_)) and return 1;<br/>+ _dialogselect(@_);<br/> }<br/> <br/> =item modal [FILTER]<br/>@@ -523,7 +530,7 @@<br/> $CurrentEvent-&gt;what(0);<br/> &amp;_dialogselect;<br/> $CurrentEvent-&gt;what($savedwhat);<br/>- &amp;MacWindow::idle;<br/>+ &amp;MacWindow::idle;<br/> }<br/> <br/> =item KIND = item_kind ITEM<br/><br/>==== //depot/maint-5.8/macperl/macos/lib/Mac/AETE/App.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/AETE/App.pm<br/>--- macperl/macos/lib/Mac/AETE/App.pm#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/lib/Mac/AETE/App.pm Mon Jul 29 12:39:58 2002<br/>@@ -111,13 +111,15 @@<br/> <br/> <br/> use strict;<br/>+use File::Basename;<br/>+use File::Spec::Functions qw(catfile);<br/> use Mac::AETE::Parser;<br/> use Mac::AppleEvents;<br/> use Mac::Files;<br/> use Mac::Memory;<br/> use Mac::Processes;<br/> use Mac::Resources;<br/>-use File::Basename;<br/>+use Symbol;<br/> <br/> use Carp;<br/> <br/>@@ -128,13 +130,14 @@<br/> my $self = {};<br/> my $aete_handle;<br/> <br/>- my($name, $running) = &amp;get_app_status_and_launch($target);<br/>+ my($name, $running, $sign) = &amp;get_app_status_and_launch($target);<br/> return unless $name;<br/> <br/> $self-&gt;{_target} = $name;<br/>+ $self-&gt;{ID} = $sign;<br/> <br/> if ($running) {<br/>- unless ($aete_handle = get_aete_via_event($target)) {<br/>+ unless ($aete_handle = get_aete_via_event($target, $sign)) {<br/> carp(&quot;The application is not scriptable&quot;);<br/> return;<br/> }<br/>@@ -164,53 +167,81 @@<br/> {<br/> my ($app_path) = @_;<br/> my ($name, $path, $suffix, $running, $ok_to_launch, $pname, $launch);<br/>- my ($psn, $psi);<br/>- <br/>+ my ($psn, $psi, $sign);<br/>+<br/> $running = 0;<br/>- fileparse_set_fstype(&quot;MacOS&quot;);<br/>- ($name,$path,$suffix) = fileparse($app_path, &quot;&quot;);<br/>- for $psn (keys %Process) {<br/>- $pname = $Process{$psn}-&gt;processName;<br/>-# print &quot;$pname&quot;, &quot; $name\n&quot;;<br/>- $running = 1, last if $pname eq $name;<br/>+ <br/>+ # test for package, works under Mac OS X/Classic too<br/>+ my $pkginfo = catfile($app_path, &#39;Contents&#39;, &#39;PkgInfo&#39;);<br/>+ if (-d $app_path &amp;&amp; -f $pkginfo) {<br/>+ my $fh = gensym();<br/>+ open $fh, &quot;&lt;&quot; . $pkginfo or croak &quot;Can&#39;t open $pkginfo: $!&quot;;<br/>+ (my($type), $sign) = (&lt;$fh&gt; =~ /^(.{4})(.{4})$/);<br/>+ for $psn (keys %Process) {<br/>+ $pname = $Process{$psn}-&gt;processName;<br/>+ $running = 1, $name = $pname, last<br/>+ if $sign eq $Process{$psn}-&gt;processSignature;<br/>+ }<br/>+ $ok_to_launch = !$running;<br/>+<br/>+ } else {<br/>+ fileparse_set_fstype(&quot;MacOS&quot;);<br/>+ ($name,$path,$suffix) = fileparse($app_path, &quot;&quot;);<br/>+ for $psn (keys %Process) {<br/>+ $pname = $Process{$psn}-&gt;processName;<br/>+# print &quot;$pname&quot;, &quot; $name\n&quot;;<br/>+ $running = 1, last if $pname eq $name;<br/>+ }<br/> }<br/>+<br/> if (!$running) {<br/>- my $RF = OpenResFile($app_path);<br/>- if (!defined($RF) || $RF == 0) {<br/>- carp(&quot;No Resource Fork available for &#39;$app_path&#39;: $^E&quot;);<br/>- return;<br/>+ unless (-d $app_path &amp;&amp; -f $pkginfo) {<br/>+ my $RF = OpenResFile($app_path);<br/>+ if (!defined($RF) || $RF == 0) {<br/>+ carp(&quot;No Resource Fork available for &#39;$app_path&#39;: $^E&quot;);<br/>+ return;<br/>+ }<br/>+ my $check_resource = Get1Resource(&#39;scsz&#39;, 0);<br/>+ if (!defined($check_resource) || $check_resource == 0) {<br/>+ $check_resource = Get1Resource(&#39;scsz&#39;, 128);<br/>+ }<br/>+ $ok_to_launch = defined($check_resource) &amp;&amp; $check_resource;<br/>+ CloseResFile($RF); # don&#39;t do anything with the resource now!<br/> }<br/>- my $check_resource = Get1Resource(&#39;scsz&#39;, 0);<br/>- if (!defined($check_resource) || $check_resource == 0) {<br/>- $check_resource = Get1Resource(&#39;scsz&#39;, 128);<br/>- }<br/>- $ok_to_launch = defined($check_resource) &amp;&amp; $check_resource;<br/>- CloseResFile($RF); # don&#39;t do anything with the resource now!<br/>- if ($ok_to_launch) { <br/>+ if ($ok_to_launch) {<br/> $launch = new LaunchParam(<br/> launchControlFlags =&gt; eval(launchContinue + launchNoFileFlags + launchDontSwitch),<br/> launchAppSpec =&gt; $app_path<br/> );<br/> LaunchApplication $launch;<br/> $running = 1;<br/>+ sleep 10;<br/> }<br/> }<br/>- <br/>+<br/> while (($psn, $psi) = each(%Process)) {<br/>- $pname = $psi-&gt;processName;<br/>- $running = 1, last if $pname eq $name;<br/>+ if (defined $sign) {<br/>+ $running = 1, $name = $psi-&gt;processName,<br/>+ last if $sign eq $psi-&gt;processSignature;<br/>+ } else {<br/>+ $running = 1, $sign = $psi-&gt;processSignature,<br/>+ last if $name eq $psi-&gt;processName;<br/>+ }<br/> }<br/> $name = $app_path if $name !~ /:/;<br/>- ($name, $running);<br/>+ ($name, $running, $sign);<br/> }<br/> <br/> sub get_aete_via_event<br/> {<br/>- my($target) = @_;<br/>- my $info = FSpGetFInfo($target);<br/>- <br/>- my $addr_desc = AECreateDesc(typeApplSignature, $info-&gt;fdCreator); <br/>- my $event = AEBuildAppleEvent(&#39;ascr&#39;, &#39;gdte&#39;, &#39;sign&#39;, $info-&gt;fdCreator, 0, 0, , &quot;&#39;----&#39;:0&quot;);<br/>+ my($target, $sign) = @_;<br/>+ if (!$sign) {<br/>+ my $info = FSpGetFInfo($target);<br/>+ $sign = $info-&gt;fdCreator;<br/>+ }<br/>+<br/>+ my $addr_desc = AECreateDesc(typeApplSignature, $sign); <br/>+ my $event = AEBuildAppleEvent(&#39;ascr&#39;, &#39;gdte&#39;, &#39;sign&#39;, $sign, 0, 0, , &quot;&#39;----&#39;:0&quot;);<br/> my $reply = AESend($event, kAEWaitReply);<br/> my @handles;<br/> if ($reply) {<br/><br/>==== //depot/maint-5.8/macperl/macos/lib/Mac/AETE/Format/Glue.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/AETE/Format/Glue.pm<br/>--- macperl/macos/lib/Mac/AETE/Format/Glue.pm#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/lib/Mac/AETE/Format/Glue.pm Mon Jul 29 12:39:58 2002<br/>@@ -1,11 +1,14 @@<br/> package Mac::AETE::Format::Glue;<br/>+use Carp;<br/> use Data::Dumper;<br/> use Fcntl;<br/> use File::Basename;<br/> use File::Path;<br/>+use File::Spec::Functions qw(catfile);<br/> use Mac::AETE::Parser;<br/> use Mac::Glue;<br/> use MLDBM (&#39;DB_File&#39;, $Mac::Glue::SERIALIZER);<br/>+use Symbol;<br/> <br/> use strict;<br/> use vars qw(@ISA $VERSION $TYPE);<br/>@@ -205,7 +208,19 @@<br/> <br/> sub write_title {<br/> my($self, $title) = @_;<br/>- $self-&gt;{ID} = (MacPerl::GetFileInfo($title))[0];<br/>+<br/>+ my $pkginfo = catfile($title, &#39;Contents&#39;, &#39;PkgInfo&#39;);<br/>+ if (-d $title &amp;&amp; -f $pkginfo) {<br/>+ my $fh = gensym();<br/>+ open $fh, &quot;&lt;&quot; . $pkginfo or croak &quot;Can&#39;t open $pkginfo: $!&quot;;<br/>+ my($type, $sign) = (&lt;$fh&gt; =~ /^(.{4})(.{4})$/);<br/>+ $self-&gt;{ID} = $sign;<br/>+ } else {<br/>+ $self-&gt;{ID} = (MacPerl::GetFileInfo($title))[0];<br/>+ }<br/>+ croak(&quot;Can&#39;t get application signature for $title&quot;)<br/>+ if !$self-&gt;{ID};<br/>+<br/> $self-&gt;{TITLE} = basename($self-&gt;{OUTPUT});<br/> }<br/> <br/><br/>==== //depot/maint-5.8/macperl/macos/lib/Mac/OSA/Simple.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/OSA/Simple.pm<br/>--- macperl/macos/lib/Mac/OSA/Simple.pm#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/lib/Mac/OSA/Simple.pm Mon Jul 29 12:39:58 2002<br/>@@ -17,7 +17,7 @@<br/> load_osa_script %ScriptComponents);<br/> @EXPORT_OK = @Mac::OSA::EXPORT;<br/> %EXPORT_TAGS = (all =&gt; [@EXPORT, @EXPORT_OK]);<br/>-$REVISION = &#39;$Id: Simple.pm,v 1.2 2002/01/23 05:45:12 pudge Exp $&#39;;<br/>+$REVISION = &#39;$Id: Simple.pm,v 1.3 2002/05/08 03:59:30 pudge Exp $&#39;;<br/> $VERSION = &#39;1.00&#39;;<br/> <br/> tie %ScriptComponents, &#39;Mac::OSA::Simple::Components&#39;;<br/><br/>==== //depot/maint-5.8/macperl/macos/macperl/Droplets/gluemac.plx#2 (text) ====<br/>Index: macperl/macos/macperl/Droplets/gluemac.plx<br/>--- macperl/macos/macperl/Droplets/gluemac.plx#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/macos/macperl/Droplets/gluemac.plx Mon Jul 29 12:39:58 2002<br/>@@ -18,6 +18,7 @@<br/> $drop = readlink $drop while -l $drop;<br/> <br/> # initialize<br/>+ $drop =~ s/:$//; # is dir/package ?<br/> ($file, $dir) = fileparse($drop, &#39;&#39;);<br/> $fixed = Mac::AETE::Format::Glue::fixname($file);<br/> $fixed = MacPerl::Ask(&#39;What is the glue name?&#39;, $fixed);<br/><br/>==== //depot/maint-5.8/macperl/perl.c#2 (text) ====<br/>Index: macperl/perl.c<br/>--- macperl/perl.c#1~17650~ Mon Jul 22 08:27:48 2002<br/>+++ macperl/perl.c Mon Jul 29 12:39:58 2002<br/>@@ -1158,7 +1158,7 @@<br/> #ifdef MACOS_TRADITIONAL<br/> /* ignore -e for Dev:Pseudo argument */<br/> if (argv[1] &amp;&amp; !strcmp(argv[1], &quot;Dev:Pseudo&quot;))<br/>- break;<br/>+ break;<br/> #endif<br/> if (PL_euid != PL_uid || PL_egid != PL_gid)<br/> Perl_croak(aTHX_ &quot;No -e allowed in setuid scripts&quot;);<br/>@@ -3274,6 +3274,9 @@<br/> S_find_beginning(pTHX)<br/> {<br/> register char *s, *s2;<br/>+#ifdef MACOS_TRADITIONAL<br/>+ int maclines = 0;<br/>+#endif<br/> <br/> /* skip forward in input to the real script? */<br/> <br/>@@ -3285,16 +3288,16 @@<br/> if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {<br/> if (!gMacPerl_AlwaysExtract)<br/> Perl_croak(aTHX_ &quot;No Perl script found in input\n&quot;);<br/>- <br/>+<br/> if (PL_doextract) /* require explicit override ? */<br/> if (!OverrideExtract(PL_origfilename))<br/> Perl_croak(aTHX_ &quot;User aborted script\n&quot;);<br/> else<br/> PL_doextract = FALSE;<br/>- <br/>+<br/> /* Pater peccavi, file does not have #! */<br/> PerlIO_rewind(PL_rsfp);<br/>- <br/>+<br/> break;<br/> }<br/> #else<br/>@@ -3317,7 +3320,18 @@<br/> ;<br/> }<br/> #ifdef MACOS_TRADITIONAL<br/>+ /* We are always searching for the #!perl line in MacPerl,<br/>+ * so if we find it, still keep the line count correct<br/>+ * by counting lines we already skipped over<br/>+ */<br/>+ for (; maclines &gt; 0 ; maclines--)<br/>+ PerlIO_ungetc(PL_rsfp, &#39;\n&#39;);<br/>+<br/> break;<br/>+<br/>+ /* gMacPerl_AlwaysExtract is false in MPW tool */<br/>+ } else if (gMacPerl_AlwaysExtract) {<br/>+ ++maclines;<br/> #endif<br/> }<br/> }<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg265.html Mon, 29 Jul 2002 14:30:47 +0000 Change 17666: Integrate from maint-5.6/macperl by Chris Nandor Change 17666 by pudge@pudge-mobile on 2002/07/29 20:04:54<br/><br/> Integrate from maint-5.6/macperl<br/> <br/> Changes 17660, 17661, 17662, 17663, 17664<br/><br/>Affected files ...<br/><br/>.... //depot/macperl/macos/ext/Mac/Dialogs/Dialogs.pm#2 edit<br/>.... //depot/macperl/macos/lib/Mac/AETE/App.pm#2 edit<br/>.... //depot/macperl/macos/lib/Mac/AETE/Format/Glue.pm#2 edit<br/>.... //depot/macperl/macos/lib/Mac/OSA/Simple.pm#3 edit<br/>.... //depot/macperl/macos/macperl/Droplets/gluemac.plx#2 edit<br/>.... //depot/macperl/perl.c#8 edit<br/><br/>Differences ...<br/><br/>==== //depot/macperl/macos/ext/Mac/Dialogs/Dialogs.pm#2 (text) ====<br/>Index: macperl/macos/ext/Mac/Dialogs/Dialogs.pm<br/>--- macperl/macos/ext/Mac/Dialogs/Dialogs.pm#1~16123~ Tue Apr 23 18:25:17 2002<br/>+++ macperl/macos/ext/Mac/Dialogs/Dialogs.pm Mon Jul 29 13:04:54 2002<br/>@@ -475,9 +475,16 @@<br/> <br/> =cut<br/> sub click {<br/>- my($handled);<br/>- defined($handled = $_[0]-&gt;callhook(&quot;click&quot;, @_)) and return 1;<br/>- _dialogselect(@_);<br/>+ my($self, $pt) = @_;<br/>+ for my $pane (@{$self-&gt;{panes}}) { <br/>+ if ($pane-&gt;click($self, $pt)) {<br/>+ $self-&gt;advance_focus($pane);<br/>+ return 1; <br/>+ }<br/>+ };<br/>+ my($handled);<br/>+ defined($handled = $self-&gt;callhook(&quot;click&quot;, @_)) and return 1;<br/>+ _dialogselect(@_);<br/> }<br/> <br/> =item modal [FILTER]<br/>@@ -523,7 +530,7 @@<br/> $CurrentEvent-&gt;what(0);<br/> &amp;_dialogselect;<br/> $CurrentEvent-&gt;what($savedwhat);<br/>- &amp;MacWindow::idle;<br/>+ &amp;MacWindow::idle;<br/> }<br/> <br/> =item KIND = item_kind ITEM<br/><br/>==== //depot/macperl/macos/lib/Mac/AETE/App.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/AETE/App.pm<br/>--- macperl/macos/lib/Mac/AETE/App.pm#1~16123~ Tue Apr 23 18:25:17 2002<br/>+++ macperl/macos/lib/Mac/AETE/App.pm Mon Jul 29 13:04:54 2002<br/>@@ -111,13 +111,15 @@<br/> <br/> <br/> use strict;<br/>+use File::Basename;<br/>+use File::Spec::Functions qw(catfile);<br/> use Mac::AETE::Parser;<br/> use Mac::AppleEvents;<br/> use Mac::Files;<br/> use Mac::Memory;<br/> use Mac::Processes;<br/> use Mac::Resources;<br/>-use File::Basename;<br/>+use Symbol;<br/> <br/> use Carp;<br/> <br/>@@ -128,13 +130,14 @@<br/> my $self = {};<br/> my $aete_handle;<br/> <br/>- my($name, $running) = &amp;get_app_status_and_launch($target);<br/>+ my($name, $running, $sign) = &amp;get_app_status_and_launch($target);<br/> return unless $name;<br/> <br/> $self-&gt;{_target} = $name;<br/>+ $self-&gt;{ID} = $sign;<br/> <br/> if ($running) {<br/>- unless ($aete_handle = get_aete_via_event($target)) {<br/>+ unless ($aete_handle = get_aete_via_event($target, $sign)) {<br/> carp(&quot;The application is not scriptable&quot;);<br/> return;<br/> }<br/>@@ -164,53 +167,81 @@<br/> {<br/> my ($app_path) = @_;<br/> my ($name, $path, $suffix, $running, $ok_to_launch, $pname, $launch);<br/>- my ($psn, $psi);<br/>- <br/>+ my ($psn, $psi, $sign);<br/>+<br/> $running = 0;<br/>- fileparse_set_fstype(&quot;MacOS&quot;);<br/>- ($name,$path,$suffix) = fileparse($app_path, &quot;&quot;);<br/>- for $psn (keys %Process) {<br/>- $pname = $Process{$psn}-&gt;processName;<br/>-# print &quot;$pname&quot;, &quot; $name\n&quot;;<br/>- $running = 1, last if $pname eq $name;<br/>+ <br/>+ # test for package, works under Mac OS X/Classic too<br/>+ my $pkginfo = catfile($app_path, &#39;Contents&#39;, &#39;PkgInfo&#39;);<br/>+ if (-d $app_path &amp;&amp; -f $pkginfo) {<br/>+ my $fh = gensym();<br/>+ open $fh, &quot;&lt;&quot; . $pkginfo or croak &quot;Can&#39;t open $pkginfo: $!&quot;;<br/>+ (my($type), $sign) = (&lt;$fh&gt; =~ /^(.{4})(.{4})$/);<br/>+ for $psn (keys %Process) {<br/>+ $pname = $Process{$psn}-&gt;processName;<br/>+ $running = 1, $name = $pname, last<br/>+ if $sign eq $Process{$psn}-&gt;processSignature;<br/>+ }<br/>+ $ok_to_launch = !$running;<br/>+<br/>+ } else {<br/>+ fileparse_set_fstype(&quot;MacOS&quot;);<br/>+ ($name,$path,$suffix) = fileparse($app_path, &quot;&quot;);<br/>+ for $psn (keys %Process) {<br/>+ $pname = $Process{$psn}-&gt;processName;<br/>+# print &quot;$pname&quot;, &quot; $name\n&quot;;<br/>+ $running = 1, last if $pname eq $name;<br/>+ }<br/> }<br/>+<br/> if (!$running) {<br/>- my $RF = OpenResFile($app_path);<br/>- if (!defined($RF) || $RF == 0) {<br/>- carp(&quot;No Resource Fork available for &#39;$app_path&#39;: $^E&quot;);<br/>- return;<br/>+ unless (-d $app_path &amp;&amp; -f $pkginfo) {<br/>+ my $RF = OpenResFile($app_path);<br/>+ if (!defined($RF) || $RF == 0) {<br/>+ carp(&quot;No Resource Fork available for &#39;$app_path&#39;: $^E&quot;);<br/>+ return;<br/>+ }<br/>+ my $check_resource = Get1Resource(&#39;scsz&#39;, 0);<br/>+ if (!defined($check_resource) || $check_resource == 0) {<br/>+ $check_resource = Get1Resource(&#39;scsz&#39;, 128);<br/>+ }<br/>+ $ok_to_launch = defined($check_resource) &amp;&amp; $check_resource;<br/>+ CloseResFile($RF); # don&#39;t do anything with the resource now!<br/> }<br/>- my $check_resource = Get1Resource(&#39;scsz&#39;, 0);<br/>- if (!defined($check_resource) || $check_resource == 0) {<br/>- $check_resource = Get1Resource(&#39;scsz&#39;, 128);<br/>- }<br/>- $ok_to_launch = defined($check_resource) &amp;&amp; $check_resource;<br/>- CloseResFile($RF); # don&#39;t do anything with the resource now!<br/>- if ($ok_to_launch) { <br/>+ if ($ok_to_launch) {<br/> $launch = new LaunchParam(<br/> launchControlFlags =&gt; eval(launchContinue + launchNoFileFlags + launchDontSwitch),<br/> launchAppSpec =&gt; $app_path<br/> );<br/> LaunchApplication $launch;<br/> $running = 1;<br/>+ sleep 10;<br/> }<br/> }<br/>- <br/>+<br/> while (($psn, $psi) = each(%Process)) {<br/>- $pname = $psi-&gt;processName;<br/>- $running = 1, last if $pname eq $name;<br/>+ if (defined $sign) {<br/>+ $running = 1, $name = $psi-&gt;processName,<br/>+ last if $sign eq $psi-&gt;processSignature;<br/>+ } else {<br/>+ $running = 1, $sign = $psi-&gt;processSignature,<br/>+ last if $name eq $psi-&gt;processName;<br/>+ }<br/> }<br/> $name = $app_path if $name !~ /:/;<br/>- ($name, $running);<br/>+ ($name, $running, $sign);<br/> }<br/> <br/> sub get_aete_via_event<br/> {<br/>- my($target) = @_;<br/>- my $info = FSpGetFInfo($target);<br/>- <br/>- my $addr_desc = AECreateDesc(typeApplSignature, $info-&gt;fdCreator); <br/>- my $event = AEBuildAppleEvent(&#39;ascr&#39;, &#39;gdte&#39;, &#39;sign&#39;, $info-&gt;fdCreator, 0, 0, , &quot;&#39;----&#39;:0&quot;);<br/>+ my($target, $sign) = @_;<br/>+ if (!$sign) {<br/>+ my $info = FSpGetFInfo($target);<br/>+ $sign = $info-&gt;fdCreator;<br/>+ }<br/>+<br/>+ my $addr_desc = AECreateDesc(typeApplSignature, $sign); <br/>+ my $event = AEBuildAppleEvent(&#39;ascr&#39;, &#39;gdte&#39;, &#39;sign&#39;, $sign, 0, 0, , &quot;&#39;----&#39;:0&quot;);<br/> my $reply = AESend($event, kAEWaitReply);<br/> my @handles;<br/> if ($reply) {<br/><br/>==== //depot/macperl/macos/lib/Mac/AETE/Format/Glue.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/AETE/Format/Glue.pm<br/>--- macperl/macos/lib/Mac/AETE/Format/Glue.pm#1~16123~ Tue Apr 23 18:25:17 2002<br/>+++ macperl/macos/lib/Mac/AETE/Format/Glue.pm Mon Jul 29 13:04:54 2002<br/>@@ -1,11 +1,14 @@<br/> package Mac::AETE::Format::Glue;<br/>+use Carp;<br/> use Data::Dumper;<br/> use Fcntl;<br/> use File::Basename;<br/> use File::Path;<br/>+use File::Spec::Functions qw(catfile);<br/> use Mac::AETE::Parser;<br/> use Mac::Glue;<br/> use MLDBM (&#39;DB_File&#39;, $Mac::Glue::SERIALIZER);<br/>+use Symbol;<br/> <br/> use strict;<br/> use vars qw(@ISA $VERSION $TYPE);<br/>@@ -205,7 +208,19 @@<br/> <br/> sub write_title {<br/> my($self, $title) = @_;<br/>- $self-&gt;{ID} = (MacPerl::GetFileInfo($title))[0];<br/>+<br/>+ my $pkginfo = catfile($title, &#39;Contents&#39;, &#39;PkgInfo&#39;);<br/>+ if (-d $title &amp;&amp; -f $pkginfo) {<br/>+ my $fh = gensym();<br/>+ open $fh, &quot;&lt;&quot; . $pkginfo or croak &quot;Can&#39;t open $pkginfo: $!&quot;;<br/>+ my($type, $sign) = (&lt;$fh&gt; =~ /^(.{4})(.{4})$/);<br/>+ $self-&gt;{ID} = $sign;<br/>+ } else {<br/>+ $self-&gt;{ID} = (MacPerl::GetFileInfo($title))[0];<br/>+ }<br/>+ croak(&quot;Can&#39;t get application signature for $title&quot;)<br/>+ if !$self-&gt;{ID};<br/>+<br/> $self-&gt;{TITLE} = basename($self-&gt;{OUTPUT});<br/> }<br/> <br/><br/>==== //depot/macperl/macos/lib/Mac/OSA/Simple.pm#3 (text) ====<br/>Index: macperl/macos/lib/Mac/OSA/Simple.pm<br/>--- macperl/macos/lib/Mac/OSA/Simple.pm#2~16469~ Tue May 7 20:48:53 2002<br/>+++ macperl/macos/lib/Mac/OSA/Simple.pm Mon Jul 29 13:04:54 2002<br/>@@ -17,7 +17,7 @@<br/> load_osa_script %ScriptComponents);<br/> @EXPORT_OK = @Mac::OSA::EXPORT;<br/> %EXPORT_TAGS = (all =&gt; [@EXPORT, @EXPORT_OK]);<br/>-$REVISION = &#39;$Id: Simple.pm,v 1.2 2002/01/23 05:45:12 pudge Exp $&#39;;<br/>+$REVISION = &#39;$Id: Simple.pm,v 1.3 2002/05/08 03:59:30 pudge Exp $&#39;;<br/> $VERSION = &#39;1.00&#39;;<br/> <br/> tie %ScriptComponents, &#39;Mac::OSA::Simple::Components&#39;;<br/><br/>==== //depot/macperl/macos/macperl/Droplets/gluemac.plx#2 (text) ====<br/>Index: macperl/macos/macperl/Droplets/gluemac.plx<br/>--- macperl/macos/macperl/Droplets/gluemac.plx#1~16123~ Tue Apr 23 18:25:17 2002<br/>+++ macperl/macos/macperl/Droplets/gluemac.plx Mon Jul 29 13:04:54 2002<br/>@@ -18,6 +18,7 @@<br/> $drop = readlink $drop while -l $drop;<br/> <br/> # initialize<br/>+ $drop =~ s/:$//; # is dir/package ?<br/> ($file, $dir) = fileparse($drop, &#39;&#39;);<br/> $fixed = Mac::AETE::Format::Glue::fixname($file);<br/> $fixed = MacPerl::Ask(&#39;What is the glue name?&#39;, $fixed);<br/><br/>==== //depot/macperl/perl.c#8 (text) ====<br/>Index: macperl/perl.c<br/>--- macperl/perl.c#7~17528~ Sun Jul 14 05:07:17 2002<br/>+++ macperl/perl.c Mon Jul 29 13:04:54 2002<br/>@@ -1158,7 +1158,7 @@<br/> #ifdef MACOS_TRADITIONAL<br/> /* ignore -e for Dev:Pseudo argument */<br/> if (argv[1] &amp;&amp; !strcmp(argv[1], &quot;Dev:Pseudo&quot;))<br/>- break;<br/>+ break;<br/> #endif<br/> if (PL_euid != PL_uid || PL_egid != PL_gid)<br/> Perl_croak(aTHX_ &quot;No -e allowed in setuid scripts&quot;);<br/>@@ -3274,6 +3274,9 @@<br/> S_find_beginning(pTHX)<br/> {<br/> register char *s, *s2;<br/>+#ifdef MACOS_TRADITIONAL<br/>+ int maclines = 0;<br/>+#endif<br/> <br/> /* skip forward in input to the real script? */<br/> <br/>@@ -3285,16 +3288,16 @@<br/> if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {<br/> if (!gMacPerl_AlwaysExtract)<br/> Perl_croak(aTHX_ &quot;No Perl script found in input\n&quot;);<br/>- <br/>+<br/> if (PL_doextract) /* require explicit override ? */<br/> if (!OverrideExtract(PL_origfilename))<br/> Perl_croak(aTHX_ &quot;User aborted script\n&quot;);<br/> else<br/> PL_doextract = FALSE;<br/>- <br/>+<br/> /* Pater peccavi, file does not have #! */<br/> PerlIO_rewind(PL_rsfp);<br/>- <br/>+<br/> break;<br/> }<br/> #else<br/>@@ -3317,7 +3320,18 @@<br/> ;<br/> }<br/> #ifdef MACOS_TRADITIONAL<br/>+ /* We are always searching for the #!perl line in MacPerl,<br/>+ * so if we find it, still keep the line count correct<br/>+ * by counting lines we already skipped over<br/>+ */<br/>+ for (; maclines &gt; 0 ; maclines--)<br/>+ PerlIO_ungetc(PL_rsfp, &#39;\n&#39;);<br/>+<br/> break;<br/>+<br/>+ /* gMacPerl_AlwaysExtract is false in MPW tool */<br/>+ } else if (gMacPerl_AlwaysExtract) {<br/>+ ++maclines;<br/> #endif<br/> }<br/> }<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg264.html Mon, 29 Jul 2002 14:30:43 +0000 Change 17663: Count line numbers properly in MacPerl app by Chris Nandor Change 17663 by pudge@pudge-mobile on 2002/07/29 18:25:57<br/><br/> Count line numbers properly in MacPerl app<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/perl.c#10 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/perl.c#10 (text) ====<br/>Index: macperl/perl.c<br/>--- macperl/perl.c#9~17651~ Mon Jul 22 20:24:35 2002<br/>+++ macperl/perl.c Mon Jul 29 11:25:57 2002<br/>@@ -3054,6 +3054,9 @@<br/> S_find_beginning(pTHX)<br/> {<br/> register char *s, *s2;<br/>+#ifdef MACOS_TRADITIONAL<br/>+ int maclines = 0;<br/>+#endif<br/> <br/> /* skip forward in input to the real script? */<br/> <br/>@@ -3064,7 +3067,7 @@<br/> if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {<br/> if (!gMacPerl_AlwaysExtract)<br/> Perl_croak(aTHX_ &quot;No Perl script found in input\n&quot;);<br/>- <br/>+<br/> if (PL_doextract) /* require explicit override ? */<br/> if (!OverrideExtract(PL_origfilename))<br/> Perl_croak(aTHX_ &quot;User aborted script\n&quot;);<br/>@@ -3095,7 +3098,18 @@<br/> ;<br/> }<br/> #ifdef MACOS_TRADITIONAL<br/>+ /* We are always searching for the #!perl line in MacPerl,<br/>+ * so if we find it, still keep the line count correct<br/>+ * by counting lines we already skipped over<br/>+ */<br/>+ for (; maclines &gt; 0 ; maclines--)<br/>+ PerlIO_ungetc(PL_rsfp, &#39;\n&#39;);<br/>+<br/> break;<br/>+<br/>+ /* gMacPerl_AlwaysExtract is false in MPW tool */<br/>+ } else if (gMacPerl_AlwaysExtract) {<br/>+ ++maclines;<br/> #endif<br/> }<br/> }<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg263.html Mon, 29 Jul 2002 13:01:33 +0000 Change 17662: Make Mac::Glue work to glue Mac OS X apps underClassic by Chris Nandor Change 17662 by pudge@pudge-mobile on 2002/07/29 18:21:16<br/><br/> Make Mac::Glue work to glue Mac OS X apps under Classic<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/lib/Mac/AETE/App.pm#2 edit<br/>.... //depot/maint-5.6/macperl/macos/lib/Mac/AETE/Format/Glue.pm#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/lib/Mac/AETE/App.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/AETE/App.pm<br/>--- macperl/macos/lib/Mac/AETE/App.pm#1~12326~ Wed Oct 3 12:08:28 2001<br/>+++ macperl/macos/lib/Mac/AETE/App.pm Mon Jul 29 11:21:16 2002<br/>@@ -111,13 +111,15 @@<br/> <br/> <br/> use strict;<br/>+use File::Basename;<br/>+use File::Spec::Functions qw(catfile);<br/> use Mac::AETE::Parser;<br/> use Mac::AppleEvents;<br/> use Mac::Files;<br/> use Mac::Memory;<br/> use Mac::Processes;<br/> use Mac::Resources;<br/>-use File::Basename;<br/>+use Symbol;<br/> <br/> use Carp;<br/> <br/>@@ -128,13 +130,14 @@<br/> my $self = {};<br/> my $aete_handle;<br/> <br/>- my($name, $running) = &amp;get_app_status_and_launch($target);<br/>+ my($name, $running, $sign) = &amp;get_app_status_and_launch($target);<br/> return unless $name;<br/> <br/> $self-&gt;{_target} = $name;<br/>+ $self-&gt;{ID} = $sign;<br/> <br/> if ($running) {<br/>- unless ($aete_handle = get_aete_via_event($target)) {<br/>+ unless ($aete_handle = get_aete_via_event($target, $sign)) {<br/> carp(&quot;The application is not scriptable&quot;);<br/> return;<br/> }<br/>@@ -164,53 +167,81 @@<br/> {<br/> my ($app_path) = @_;<br/> my ($name, $path, $suffix, $running, $ok_to_launch, $pname, $launch);<br/>- my ($psn, $psi);<br/>- <br/>+ my ($psn, $psi, $sign);<br/>+<br/> $running = 0;<br/>- fileparse_set_fstype(&quot;MacOS&quot;);<br/>- ($name,$path,$suffix) = fileparse($app_path, &quot;&quot;);<br/>- for $psn (keys %Process) {<br/>- $pname = $Process{$psn}-&gt;processName;<br/>-# print &quot;$pname&quot;, &quot; $name\n&quot;;<br/>- $running = 1, last if $pname eq $name;<br/>+ <br/>+ # test for package, works under Mac OS X/Classic too<br/>+ my $pkginfo = catfile($app_path, &#39;Contents&#39;, &#39;PkgInfo&#39;);<br/>+ if (-d $app_path &amp;&amp; -f $pkginfo) {<br/>+ my $fh = gensym();<br/>+ open $fh, &quot;&lt;&quot; . $pkginfo or croak &quot;Can&#39;t open $pkginfo: $!&quot;;<br/>+ (my($type), $sign) = (&lt;$fh&gt; =~ /^(.{4})(.{4})$/);<br/>+ for $psn (keys %Process) {<br/>+ $pname = $Process{$psn}-&gt;processName;<br/>+ $running = 1, $name = $pname, last<br/>+ if $sign eq $Process{$psn}-&gt;processSignature;<br/>+ }<br/>+ $ok_to_launch = !$running;<br/>+<br/>+ } else {<br/>+ fileparse_set_fstype(&quot;MacOS&quot;);<br/>+ ($name,$path,$suffix) = fileparse($app_path, &quot;&quot;);<br/>+ for $psn (keys %Process) {<br/>+ $pname = $Process{$psn}-&gt;processName;<br/>+# print &quot;$pname&quot;, &quot; $name\n&quot;;<br/>+ $running = 1, last if $pname eq $name;<br/>+ }<br/> }<br/>+<br/> if (!$running) {<br/>- my $RF = OpenResFile($app_path);<br/>- if (!defined($RF) || $RF == 0) {<br/>- carp(&quot;No Resource Fork available for &#39;$app_path&#39;: $^E&quot;);<br/>- return;<br/>+ unless (-d $app_path &amp;&amp; -f $pkginfo) {<br/>+ my $RF = OpenResFile($app_path);<br/>+ if (!defined($RF) || $RF == 0) {<br/>+ carp(&quot;No Resource Fork available for &#39;$app_path&#39;: $^E&quot;);<br/>+ return;<br/>+ }<br/>+ my $check_resource = Get1Resource(&#39;scsz&#39;, 0);<br/>+ if (!defined($check_resource) || $check_resource == 0) {<br/>+ $check_resource = Get1Resource(&#39;scsz&#39;, 128);<br/>+ }<br/>+ $ok_to_launch = defined($check_resource) &amp;&amp; $check_resource;<br/>+ CloseResFile($RF); # don&#39;t do anything with the resource now!<br/> }<br/>- my $check_resource = Get1Resource(&#39;scsz&#39;, 0);<br/>- if (!defined($check_resource) || $check_resource == 0) {<br/>- $check_resource = Get1Resource(&#39;scsz&#39;, 128);<br/>- }<br/>- $ok_to_launch = defined($check_resource) &amp;&amp; $check_resource;<br/>- CloseResFile($RF); # don&#39;t do anything with the resource now!<br/>- if ($ok_to_launch) { <br/>+ if ($ok_to_launch) {<br/> $launch = new LaunchParam(<br/> launchControlFlags =&gt; eval(launchContinue + launchNoFileFlags + launchDontSwitch),<br/> launchAppSpec =&gt; $app_path<br/> );<br/> LaunchApplication $launch;<br/> $running = 1;<br/>+ sleep 10;<br/> }<br/> }<br/>- <br/>+<br/> while (($psn, $psi) = each(%Process)) {<br/>- $pname = $psi-&gt;processName;<br/>- $running = 1, last if $pname eq $name;<br/>+ if (defined $sign) {<br/>+ $running = 1, $name = $psi-&gt;processName,<br/>+ last if $sign eq $psi-&gt;processSignature;<br/>+ } else {<br/>+ $running = 1, $sign = $psi-&gt;processSignature,<br/>+ last if $name eq $psi-&gt;processName;<br/>+ }<br/> }<br/> $name = $app_path if $name !~ /:/;<br/>- ($name, $running);<br/>+ ($name, $running, $sign);<br/> }<br/> <br/> sub get_aete_via_event<br/> {<br/>- my($target) = @_;<br/>- my $info = FSpGetFInfo($target);<br/>- <br/>- my $addr_desc = AECreateDesc(typeApplSignature, $info-&gt;fdCreator); <br/>- my $event = AEBuildAppleEvent(&#39;ascr&#39;, &#39;gdte&#39;, &#39;sign&#39;, $info-&gt;fdCreator, 0, 0, , &quot;&#39;----&#39;:0&quot;);<br/>+ my($target, $sign) = @_;<br/>+ if (!$sign) {<br/>+ my $info = FSpGetFInfo($target);<br/>+ $sign = $info-&gt;fdCreator;<br/>+ }<br/>+<br/>+ my $addr_desc = AECreateDesc(typeApplSignature, $sign); <br/>+ my $event = AEBuildAppleEvent(&#39;ascr&#39;, &#39;gdte&#39;, &#39;sign&#39;, $sign, 0, 0, , &quot;&#39;----&#39;:0&quot;);<br/> my $reply = AESend($event, kAEWaitReply);<br/> my @handles;<br/> if ($reply) {<br/><br/>==== //depot/maint-5.6/macperl/macos/lib/Mac/AETE/Format/Glue.pm#2 (text) ====<br/>Index: macperl/macos/lib/Mac/AETE/Format/Glue.pm<br/>--- macperl/macos/lib/Mac/AETE/Format/Glue.pm#1~12326~ Wed Oct 3 12:08:28 2001<br/>+++ macperl/macos/lib/Mac/AETE/Format/Glue.pm Mon Jul 29 11:21:16 2002<br/>@@ -1,11 +1,14 @@<br/> package Mac::AETE::Format::Glue;<br/>+use Carp;<br/> use Data::Dumper;<br/> use Fcntl;<br/> use File::Basename;<br/> use File::Path;<br/>+use File::Spec::Functions qw(catfile);<br/> use Mac::AETE::Parser;<br/> use Mac::Glue;<br/> use MLDBM (&#39;DB_File&#39;, $Mac::Glue::SERIALIZER);<br/>+use Symbol;<br/> <br/> use strict;<br/> use vars qw(@ISA $VERSION $TYPE);<br/>@@ -205,7 +208,19 @@<br/> <br/> sub write_title {<br/> my($self, $title) = @_;<br/>- $self-&gt;{ID} = (MacPerl::GetFileInfo($title))[0];<br/>+<br/>+ my $pkginfo = catfile($title, &#39;Contents&#39;, &#39;PkgInfo&#39;);<br/>+ if (-d $title &amp;&amp; -f $pkginfo) {<br/>+ my $fh = gensym();<br/>+ open $fh, &quot;&lt;&quot; . $pkginfo or croak &quot;Can&#39;t open $pkginfo: $!&quot;;<br/>+ my($type, $sign) = (&lt;$fh&gt; =~ /^(.{4})(.{4})$/);<br/>+ $self-&gt;{ID} = $sign;<br/>+ } else {<br/>+ $self-&gt;{ID} = (MacPerl::GetFileInfo($title))[0];<br/>+ }<br/>+ croak(&quot;Can&#39;t get application signature for $title&quot;)<br/>+ if !$self-&gt;{ID};<br/>+<br/> $self-&gt;{TITLE} = basename($self-&gt;{OUTPUT});<br/> }<br/> <br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg262.html Mon, 29 Jul 2002 13:01:30 +0000 Change 17661: gluemac failed with some paths by Chris Nandor Change 17661 by pudge@pudge-mobile on 2002/07/29 18:20:46<br/><br/> gluemac failed with some paths<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/macperl/Droplets/gluemac.plx#2 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/macperl/Droplets/gluemac.plx#2 (text) ====<br/>Index: macperl/macos/macperl/Droplets/gluemac.plx<br/>--- macperl/macos/macperl/Droplets/gluemac.plx#1~14079~ Fri Jan 4 13:09:40 2002<br/>+++ macperl/macos/macperl/Droplets/gluemac.plx Mon Jul 29 11:20:46 2002<br/>@@ -18,6 +18,7 @@<br/> $drop = readlink $drop while -l $drop;<br/> <br/> # initialize<br/>+ $drop =~ s/:$//; # is dir/package ?<br/> ($file, $dir) = fileparse($drop, &#39;&#39;);<br/> $fixed = Mac::AETE::Format::Glue::fixname($file);<br/> $fixed = MacPerl::Ask(&#39;What is the glue name?&#39;, $fixed);<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg261.html Mon, 29 Jul 2002 13:01:25 +0000 Change 17660: Fix long-standing bug with popup menus not workingin dialogs by Chris Nandor Change 17660 by pudge@pudge-mobile on 2002/07/29 18:20:12<br/><br/> Fix long-standing bug with popup menus not working in dialogs<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/ext/Mac/Dialogs/Dialogs.pm#3 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/ext/Mac/Dialogs/Dialogs.pm#3 (text) ====<br/>Index: macperl/macos/ext/Mac/Dialogs/Dialogs.pm<br/>--- macperl/macos/ext/Mac/Dialogs/Dialogs.pm#2~12323~ Wed Oct 3 11:42:37 2001<br/>+++ macperl/macos/ext/Mac/Dialogs/Dialogs.pm Mon Jul 29 11:20:12 2002<br/>@@ -475,9 +475,16 @@<br/> <br/> =cut<br/> sub click {<br/>- my($handled);<br/>- defined($handled = $_[0]-&gt;callhook(&quot;click&quot;, @_)) and return 1;<br/>- _dialogselect(@_);<br/>+ my($self, $pt) = @_;<br/>+ for my $pane (@{$self-&gt;{panes}}) { <br/>+ if ($pane-&gt;click($self, $pt)) {<br/>+ $self-&gt;advance_focus($pane);<br/>+ return 1; <br/>+ }<br/>+ };<br/>+ my($handled);<br/>+ defined($handled = $self-&gt;callhook(&quot;click&quot;, @_)) and return 1;<br/>+ _dialogselect(@_);<br/> }<br/> <br/> =item modal [FILTER]<br/>@@ -523,7 +530,7 @@<br/> $CurrentEvent-&gt;what(0);<br/> &amp;_dialogselect;<br/> $CurrentEvent-&gt;what($savedwhat);<br/>- &amp;MacWindow::idle;<br/>+ &amp;MacWindow::idle;<br/> }<br/> <br/> =item KIND = item_kind ITEM<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg260.html Mon, 29 Jul 2002 13:01:18 +0000 Change 17659: Update test script by Chris Nandor Change 17659 by pudge@pudge-mobile on 2002/07/29 18:19:00<br/><br/> Update test script<br/><br/>Affected files ...<br/><br/>.... //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#7 edit<br/><br/>Differences ...<br/><br/>==== //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#7 (text) ====<br/>Index: macperl/macos/MacPerlTests.cmd<br/>--- macperl/macos/MacPerlTests.cmd#6~12575~ Mon Oct 22 11:56:34 2001<br/>+++ macperl/macos/MacPerlTests.cmd Mon Jul 29 11:19:00 2002<br/>@@ -1,18 +1,21 @@<br/>+# Test suite for MacPerl<br/>+# pudge@pobox.com<br/>+<br/> echo &quot;# `Date -t` ----- Begin MacPerl tests.&quot;<br/> echo &quot;&quot;<br/>+<br/> perl -le &#39;symlink &quot;::macos:perl&quot;, &quot;:perl&quot; unless -e &quot;:perl&quot;&#39;<br/>-# :perl -I::lib -e &#39;for(&lt;:*:*.t&gt;){open my $fh,&quot;&lt;$_&quot;;$t=&lt;$fh&gt;=~/(T)/?&quot;-T&quot;:&quot; &quot;;$s=&quot;$^X -I::lib $t $_&quot;; print qq[echo &quot;$s&quot;\n$s\n]}&#39;<br/>+<br/>+# weird bug in GUSI for opening file instead of directory<br/>+perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>+# set up environment<br/> set -e MACPERL &quot;&quot;<br/> set -e PERL5LIB &quot;&quot;<br/>-perl -e &#39;`set -e MACPERL_OLD &quot;{{MACPERL}}&quot;` if `echo {{MACPERL}}`&#39;<br/>-perl -e &#39;`set -e PERL5LIB_OLD &quot;{{PERL5LIB}}&quot;` if `echo {{PERL5LIB}}`&#39;<br/>-perl -e &#39;`set -e MACPERL &quot;&quot;`&#39;<br/>-perl -e &#39;`set -e PERL5LIB &quot;&quot;`&#39;<br/>-echo &quot;# When finished, execute these lines to restore your ToolServer environment:&quot;<br/>-echo &quot;perl -e &#39;&#143;`set -e MACPERL &#143;&quot;&#143;{&#143;{MACPERL_OLD&#143;}&#143;}&#143;&quot;&#143;` if &#143;`echo &#143;{&#143;{MACPERL_OLD&#143;}&#143;}&#143;`&#39;&quot;<br/>-echo &quot;perl -e &#39;&#143;`set -e PERL5LIB &#143;&quot;&#143;{&#143;{PERL5LIB_OLD&#143;}&#143;}&#143;&quot;&#143;` if &#143;`echo &#143;{&#143;{PERL5LIB_OLD&#143;}&#143;}&#143;`&#39;&quot;<br/>-echo &quot;&quot;<br/>+set -e PERL_CORE 1<br/>+<br/>+# :perl -I::lib -e &#39;for(&lt;:*:*.t&gt;){open my $fh,&quot;&lt;$_&quot;;$t=&lt;$fh&gt;=~/(T)/?&quot;-T&quot;:&quot; &quot;;$s=&quot;$^X -I::lib $t $_&quot;; print qq[echo &quot;$s&quot;\n$s\n]}&#39;<br/> <br/>+# create/open file for dumping tests to<br/> perl -e &#39;open F, &quot;&gt;::macos:MacPerlTests.out&quot;&#39;<br/> open ::macos:MacPerlTests.out<br/> <br/>@@ -32,8 +35,12 @@<br/> :perl -I::lib :cmd:elsif.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :cmd:for.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :cmd:for.t &gt;&gt; ::macos:MacPerlTests.out<br/>+<br/>+perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :cmd:mod.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :cmd:mod.t &gt;&gt; ::macos:MacPerlTests.out<br/>+perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>+<br/> echo &quot;:perl -I::lib :cmd:subval.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :cmd:subval.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :cmd:switch.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -170,8 +177,12 @@<br/> :perl -I::lib :lib:filefind.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:filefunc.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:filefunc.t &gt;&gt; ::macos:MacPerlTests.out<br/>+<br/>+perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :lib:filehand.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:filehand.t &gt;&gt; ::macos:MacPerlTests.out<br/>+perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>+<br/> echo &quot;:perl -I::lib :lib:filepath.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:filepath.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:filespec.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -190,8 +201,12 @@<br/> :perl -I::lib :lib:gdbm.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:getopt.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:getopt.t &gt;&gt; ::macos:MacPerlTests.out<br/>+<br/>+perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :lib:glob-basic.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:glob-basic.t &gt;&gt; ::macos:MacPerlTests.out<br/>+perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>+<br/> echo &quot;:perl -I::lib :lib:glob-case.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:glob-case.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:glob-global.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -218,6 +233,8 @@<br/> :perl -I::lib :lib:io_dup.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:io_linenum.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:io_linenum.t &gt;&gt; ::macos:MacPerlTests.out<br/>+<br/>+perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib :lib:io_multihomed.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :lib:io_multihomed.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :lib:io_pipe.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -418,6 +435,8 @@<br/> :perl -I::lib :op:mkdir.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:my.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:my.t &gt;&gt; ::macos:MacPerlTests.out<br/>+<br/>+perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/> echo &quot;:perl -I::lib :op:my_stash.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:my_stash.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:nothr5005.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -488,8 +507,12 @@<br/> :perl -I::lib :op:substr.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:sysio.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:sysio.t &gt;&gt; ::macos:MacPerlTests.out<br/>+<br/>+perl -e &#39;chmod 0666, &quot;TEST-OLD&quot;; `rename TEST-OLD TEST`&#39;<br/> echo &quot;:perl -I::lib -T :op:taint.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib -T :op:taint.t &gt;&gt; ::macos:MacPerlTests.out<br/>+perl -e &#39;chmod 0666, &quot;TEST&quot;; `rename TEST TEST-OLD`&#39;<br/>+<br/> echo &quot;:perl -I::lib :op:tie.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :op:tie.t &gt;&gt; ::macos:MacPerlTests.out<br/> echo &quot;:perl -I::lib :op:tiearray.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/>@@ -567,8 +590,11 @@<br/> echo &quot;:perl -I::lib :run:runenv.t&quot; &gt;&gt; ::macos:MacPerlTests.out<br/> :perl -I::lib :run:runenv.t &gt;&gt; ::macos:MacPerlTests.out<br/> <br/>-:perl -I::lib ::macos:MacPerlTests.plx ::macos:MacPerlTests.out &gt;&gt; ::macos:MacPerlTests.out<br/>+echo &quot;&quot;<br/>+echo &quot;# `Date -t` ----- End MacPerl tests.&quot;<br/>+echo &quot;&quot;<br/> <br/>+# we know some things will fail<br/> echo &quot;The following tests mostly work, but fail because of known&quot;<br/> echo &quot;IO problems. Feel free to run them, and note the failures.&quot;<br/> echo &quot;These tests are known to fail. Run if you want to, but beware&quot;<br/>@@ -590,3 +616,7 @@<br/> echo &quot;:perl -I::lib :pragma:warnings.t &gt;&gt; ::macos:MacPerlTests.out&quot;<br/> echo &quot;&quot;<br/> echo &quot;# `Date -t` ----- End MacPerl tests.&quot;<br/>+<br/>+# see how we did<br/>+:perl -I::lib ::macos:MacPerlTests.plx ::macos:MacPerlTests.out &gt;&gt; ::macos:MacPerlTests.out<br/>+save ::macos:MacPerlTests.out<br/>End of Patch.<br/>-- <br/>Chris Nandor pudge@pobox.com http://pudge.net/<br/>Open Source Development Network pudge@osdn.com http://osdn.com/<br/> http://www.nntp.perl.org/group/perl.perl5.changes.mac/2002/07/msg259.html Mon, 29 Jul 2002 13:01:13 +0000