WinCE many fixes
Vadim Konovalov [Sun, 28 Apr 2002 21:54:31 +0000 (01:54 +0400)]
Message-ID: <00bf01c1eedd$c0c62a00$d25cc3d9@vad>

p4raw-id: //depot/perl@16251

MANIFEST
pp_sort.c
t/win32/system.t
utf8.c
wince/Makefile.ce
wince/cecopy-lib.pl [new file with mode: 0644]
wince/comp.pl [new file with mode: 0644]
wince/perldll.def
wince/win32.h
wince/wince.c

index 823207a..3617b1c 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -74,7 +74,7 @@ ext/B/B/Concise.pm    Compiler Concise backend
 ext/B/B/Debug.pm       Compiler Debug backend
 ext/B/B/Deparse.pm     Compiler Deparse backend
 ext/B/B/disassemble    Disassemble compiler bytecode output
-ext/B/B/Disassembler.pm        Compiler Disassembler backend
+ext/B/B/Disassembler.pm Compiler Disassembler backend
 ext/B/B/Lint.pm                Compiler Lint backend
 ext/B/B/makeliblinks   Make a simplistic XSUB .so symlink tree for compiler
 ext/B/B/Showlex.pm     Compiler Showlex backend
@@ -93,12 +93,12 @@ ext/B/ramblings/curcop.runtime      Compiler ramblings: notes on curcop use
 ext/B/ramblings/flip-flop      Compiler ramblings: notes on flip-flop
 ext/B/ramblings/magic          Compiler ramblings: notes on magic
 ext/B/ramblings/reg.alloc      Compiler ramblings: register allocation
-ext/B/ramblings/runtime.porting        Compiler ramblings: porting PP enging
+ext/B/ramblings/runtime.porting Compiler ramblings: porting PP enging
 ext/B/README           Compiler backend README
-ext/B/t/asmdata.t       See if B::Asmdata works
-ext/B/t/assembler.t     See if B::Assembler, B::Disassembler comply
+ext/B/t/asmdata.t      See if B::Asmdata works
+ext/B/t/assembler.t    See if B::Assembler, B::Disassembler comply
 ext/B/t/b.t            See if B works
-ext/B/t/bblock.t        See if B::Bblock works
+ext/B/t/bblock.t       See if B::Bblock works
 ext/B/t/concise.t      See whether B::Concise works
 ext/B/t/debug.t                See if B::Debug works
 ext/B/t/deparse.t      See if B::Deparse works
@@ -135,7 +135,7 @@ ext/DB_File/DB_File.xs      Berkeley DB extension external subroutines
 ext/DB_File/DB_File_BS Berkeley DB extension mkbootstrap fodder
 ext/DB_File/hints/dynixptx.pl  Hint for DB_File for named architecture
 ext/DB_File/hints/sco.pl       Hint for DB_File for named architecture
-ext/DB_File/Makefile.PL        Berkeley DB extension makefile writer
+ext/DB_File/Makefile.PL Berkeley DB extension makefile writer
 ext/DB_File/t/db-btree.t       See if DB_File works
 ext/DB_File/t/db-hash.t                See if DB_File works
 ext/DB_File/t/db-recno.t       See if DB_File works
@@ -188,11 +188,11 @@ ext/DynaLoader/dl_next.xs NeXT implementation
 ext/DynaLoader/dl_none.xs      Stub implementation
 ext/DynaLoader/dl_vmesa.xs     VM/ESA implementation
 ext/DynaLoader/dl_vms.xs       VMS implementation
-ext/DynaLoader/DynaLoader_pm.PL        Dynamic Loader perl module
+ext/DynaLoader/DynaLoader_pm.PL Dynamic Loader perl module
 ext/DynaLoader/hints/aix.pl    Hint for DynaLoader for named architecture
 ext/DynaLoader/hints/linux.pl  Hint for DynaLoader for named architecture
 ext/DynaLoader/hints/netbsd.pl Hint for DynaLoader for named architecture
-ext/DynaLoader/hints/openbsd.pl        Hint for DynaLoader for named architecture
+ext/DynaLoader/hints/openbsd.pl Hint for DynaLoader for named architecture
 ext/DynaLoader/Makefile.PL     Dynamic Loader makefile writer
 ext/DynaLoader/README          Dynamic Loader notes and intro
 ext/DynaLoader/XSLoader_pm.PL  Simple XS Loader perl module
@@ -202,13 +202,13 @@ ext/Encode/bin/piconv     iconv by perl
 ext/Encode/bin/ucm2table       Table Generator for testing
 ext/Encode/bin/ucmlint A UCM Lint utility
 ext/Encode/bin/unidump Unicode Dump like hexdump(1)
-ext/Encode/Byte/Byte.pm        Encode extension
-ext/Encode/Byte/Makefile.PL       Encode extension
+ext/Encode/Byte/Byte.pm Encode extension
+ext/Encode/Byte/Makefile.PL      Encode extension
 ext/Encode/Changes             Change Log
 ext/Encode/CN/CN.pm            Encode extension
 ext/Encode/CN/Makefile.PL      Encode extension
-ext/Encode/EBCDIC/EBCDIC.pm       Encode extension
-ext/Encode/EBCDIC/Makefile.PL     Encode extension
+ext/Encode/EBCDIC/EBCDIC.pm      Encode extension
+ext/Encode/EBCDIC/Makefile.PL    Encode extension
 ext/Encode/encengine.c         Encode extension
 ext/Encode/Encode.pm          Mother of all Encode extensions
 ext/Encode/Encode.xs           Encode extension
@@ -224,10 +224,10 @@ ext/Encode/JP/JP.pm               Encode extension
 ext/Encode/JP/Makefile.PL      Encode extension
 ext/Encode/KR/KR.pm            Encode extension
 ext/Encode/KR/Makefile.PL              Encode extension
-ext/Encode/lib/Encode/Alias.pm         Encode extension
+ext/Encode/lib/Encode/Alias.pm         Encode extension
 ext/Encode/lib/Encode/CJKConstants.pm  Encode extension
 ext/Encode/lib/Encode/CN/HZ.pm         Encode extension
-ext/Encode/lib/Encode/Config.pm                Encode configuration module
+ext/Encode/lib/Encode/Config.pm                Encode configuration module
 ext/Encode/lib/Encode/Encoder.pm              OO Encoder
 ext/Encode/lib/Encode/Encoding.pm      Encode extension
 ext/Encode/lib/Encode/Guess.pm Encode Extension
@@ -240,8 +240,8 @@ ext/Encode/lib/Encode/Supported.pod Documents for supported encodings
 ext/Encode/Makefile.PL         Encode extension makefile writer
 ext/Encode/MANIFEST            Encode extension
 ext/Encode/README              Encode extension
-ext/Encode/Symbol/Makefile.PL     Encode extension
-ext/Encode/Symbol/Symbol.pm       Encode extension
+ext/Encode/Symbol/Makefile.PL    Encode extension
+ext/Encode/Symbol/Symbol.pm      Encode extension
 ext/Encode/t/Aliases.t test script
 ext/Encode/t/at-cn.t   test script
 ext/Encode/t/at-tw.t   test script
@@ -252,10 +252,10 @@ ext/Encode/t/big5-hkscs.utf       test data
 ext/Encode/t/CJKT.t    test script
 ext/Encode/t/Encode.t  test script
 ext/Encode/t/Encoder.t test script
-ext/Encode/t/encoding.t        test script
-ext/Encode/t/fallback.t        test script
-ext/Encode/t/gb2312.enc        test data
-ext/Encode/t/gb2312.utf        test data
+ext/Encode/t/encoding.t test script
+ext/Encode/t/fallback.t test script
+ext/Encode/t/gb2312.enc test data
+ext/Encode/t/gb2312.utf test data
 ext/Encode/t/grow.t    test script
 ext/Encode/t/guess.t   test script
 ext/Encode/t/jisx0201.enc      test data
@@ -408,7 +408,7 @@ ext/GDBM_File/hints/sco.pl  Hint for GDBM_File for named architecture
 ext/GDBM_File/Makefile.PL      GDBM extension makefile writer
 ext/GDBM_File/typemap          GDBM extension interface types
 ext/I18N/Langinfo/fallback/const-c.inc I18N::Langinfo
-ext/I18N/Langinfo/fallback/const-xs.inc        I18N::Langinfo
+ext/I18N/Langinfo/fallback/const-xs.inc I18N::Langinfo
 ext/I18N/Langinfo/Langinfo.pm  I18N::Langinfo
 ext/I18N/Langinfo/Langinfo.t   I18N::Langinfo
 ext/I18N/Langinfo/Langinfo.xs  I18N::Langinfo
@@ -430,7 +430,7 @@ ext/IO/lib/IO/t/io_const.t  See if constants from IO work
 ext/IO/lib/IO/t/io_dir.t       See if directory-related methods from IO work
 ext/IO/lib/IO/t/io_dup.t       See if dup()-related methods from IO work
 ext/IO/lib/IO/t/io_linenum.t   See if I/O line numbers are tracked correctly
-ext/IO/lib/IO/t/io_multihomed.t        See if INET sockets work with multi-homed hosts
+ext/IO/lib/IO/t/io_multihomed.t See if INET sockets work with multi-homed hosts
 ext/IO/lib/IO/t/io_pipe.t      See if pipe()-related methods from IO work
 ext/IO/lib/IO/t/io_poll.t      See if poll()-related methods from IO work
 ext/IO/lib/IO/t/io_sel.t       See if select()-related methods from IO work
@@ -488,7 +488,7 @@ ext/MIME/Base64/t/qp.t              See whether MIME::QuotedPrint works
 ext/MIME/Base64/t/unicode.t    See whether MIME::Base64 works
 ext/NDBM_File/hints/cygwin.pl  Hint for NDBM_File for named architecture
 ext/NDBM_File/hints/dec_osf.pl Hint for NDBM_File for named architecture
-ext/NDBM_File/hints/dynixptx.pl        Hint for NDBM_File for named architecture
+ext/NDBM_File/hints/dynixptx.pl Hint for NDBM_File for named architecture
 ext/NDBM_File/hints/linux.pl   Hint for NDBM_File for named architecture
 ext/NDBM_File/hints/sco.pl     Hint for NDBM_File for named architecture
 ext/NDBM_File/hints/solaris.pl Hint for NDBM_File for named architecture
@@ -517,9 +517,9 @@ ext/Opcode/Opcode.xs                Opcode extension external subroutines
 ext/Opcode/ops.pm              "Pragma" form of Opcode extension Perl module
 ext/Opcode/ops.t               See if Opcode works
 ext/Opcode/Safe.pm             Safe extension Perl module
-ext/PerlIO/encoding/encoding.pm        PerlIO::encoding
-ext/PerlIO/encoding/encoding.xs        PerlIO::encoding
-ext/PerlIO/encoding/Makefile.PL        PerlIO::encoding makefile writer
+ext/PerlIO/encoding/encoding.pm PerlIO::encoding
+ext/PerlIO/encoding/encoding.xs PerlIO::encoding
+ext/PerlIO/encoding/Makefile.PL PerlIO::encoding makefile writer
 ext/PerlIO/encoding/MANIFEST   PerlIO::encoding list of files
 ext/PerlIO/PerlIO.t            See if PerlIO works
 ext/PerlIO/Scalar/Makefile.PL  PerlIO layer for scalars
@@ -655,18 +655,18 @@ ext/Thread/unsync4.tx             Test thread implicit synchronisation
 ext/threads/Changes            ithreads
 ext/threads/Makefile.PL                ithreads
 ext/threads/README             ithreads
-ext/threads/shared/Makefile.PL  thread shared variables
+ext/threads/shared/Makefile.PL thread shared variables
 ext/threads/shared/queue.pm    Threadsafe queue.
-ext/threads/shared/README       thread shared variables
-ext/threads/shared/shared.pm    thread shared variables
-ext/threads/shared/shared.xs    thread shared variables
+ext/threads/shared/README      thread shared variables
+ext/threads/shared/shared.pm   thread shared variables
+ext/threads/shared/shared.xs   thread shared variables
 ext/threads/shared/t/0nothread.t       Tests for basic shared array functionality.
 ext/threads/shared/t/av_refs.t Tests for arrays containing references
 ext/threads/shared/t/av_simple.t       Tests for basic shared array functionality.
 ext/threads/shared/t/cond.t    Test condition variables
 ext/threads/shared/t/hv_refs.t Test shared hashes containing references
 ext/threads/shared/t/hv_simple.t       Tests for basic shared hash functionality.
-ext/threads/shared/t/no_share.t        Tests for disabled share on variables.
+ext/threads/shared/t/no_share.t Tests for disabled share on variables.
 ext/threads/shared/t/queue.t   thread shared variables
 ext/threads/shared/t/shared_attr.t     Test :shared attribute
 ext/threads/shared/t/sv_refs.t thread shared variables
@@ -675,13 +675,13 @@ ext/threads/shared/typemap        thread::shared types
 ext/threads/t/basic.t          ithreads
 ext/threads/t/end.t            Test end functions
 ext/threads/t/join.t           Testing the join function
-ext/threads/t/libc.t            testing libc functions for threadsafetyness
+ext/threads/t/libc.t           testing libc functions for threadsafetyness
 ext/threads/t/list.t           Test threads->list()
 ext/threads/t/stress_cv.t      Test with multiple threads, coderef cv argument.
 ext/threads/t/stress_re.t      Test with multiple threads, string cv argument and regexes.
 ext/threads/t/stress_string.t  Test with multiple threads, string cv argument.
 ext/threads/t/thread.t         General ithread tests from thr5005
-ext/threads/threads.pm          ithreads
+ext/threads/threads.pm         ithreads
 ext/threads/threads.xs         ithreads
 ext/threads/typemap            ithreads
 ext/Time/HiRes/Changes         Time::HiRes extension
@@ -855,7 +855,7 @@ jpl/JPL_Rolo/cardfile               Rolodex sample application
 jpl/JPL_Rolo/JPL_Rolo.jpl      Rolodex sample application
 jpl/JPL_Rolo/Makefile.PL       Makefile generator
 jpl/JPL_Rolo/README            Instructions
-jpl/PerlInterpreter/Makefile.PL        Makefile generator
+jpl/PerlInterpreter/Makefile.PL Makefile generator
 jpl/PerlInterpreter/PerlInterpreter.c  Perl interpreter abstraction
 jpl/PerlInterpreter/PerlInterpreter.h  Perl interpreter abstraction
 jpl/PerlInterpreter/PerlInterpreter.java       Perl interpreter abstraction
@@ -915,7 +915,7 @@ lib/bignum/t/option_p.t             See if bignum works
 lib/bigrat.pl                  An arbitrary precision rational arithmetic package
 lib/bigrat.pm                  bignum
 lib/blib.pm                    For "use blib"
-lib/blib.t                      blib.pm test
+lib/blib.t                     blib.pm test
 lib/bytes.pm                   Pragma to enable byte operations
 lib/bytes.t                    bytes.pm test
 lib/bytes_heavy.pl             Support routines for byte pragma
@@ -953,9 +953,9 @@ lib/CGI/Fast.pm                     Support for FastCGI (persistent server process)
 lib/CGI/Pretty.pm              Output nicely formatted HTML
 lib/CGI/Push.pm                        Support for server push
 lib/CGI/Switch.pm              Simple interface for multiple server types
-lib/CGI/t/apache.t              See if CGI::Apache still loads
-lib/CGI/t/carp.t                See if CGI::Carp works
-lib/CGI/t/cookie.t              See if CGI::Cookie works
+lib/CGI/t/apache.t             See if CGI::Apache still loads
+lib/CGI/t/carp.t               See if CGI::Carp works
+lib/CGI/t/cookie.t             See if CGI::Cookie works
 lib/CGI/t/fast.t               See if CGI::Fast works (if FCGI is installed)
 lib/CGI/t/form.t               See if CGI.pm works
 lib/CGI/t/function.t           See if CGI.pm works
@@ -963,7 +963,7 @@ lib/CGI/t/html.t            See if CGI.pm works
 lib/CGI/t/pretty.t             See if CGI.pm works
 lib/CGI/t/push.t               See if CGI::Push works
 lib/CGI/t/request.t            See if CGI.pm works
-lib/CGI/t/switch.t              See if CGI::Switch still loads
+lib/CGI/t/switch.t             See if CGI::Switch still loads
 lib/CGI/t/util.t               See if CGI.pm works
 lib/CGI/Util.pm                        Utility functions
 lib/charnames.pm               Character names
@@ -1006,45 +1006,45 @@ lib/exceptions.pl               catch and throw routines
 lib/Exporter.pm                        Exporter base class
 lib/Exporter.t                 See if Exporter works
 lib/Exporter/Heavy.pm          Complicated routines for Exporter
-lib/ExtUtils/Changes            MakeMaker change log
+lib/ExtUtils/Changes           MakeMaker change log
 lib/ExtUtils/Command.pm                Utilities for Make on non-UNIX platforms
-lib/ExtUtils/Command/MM.pm      Calling MM functions from the cmd line
+lib/ExtUtils/Command/MM.pm     Calling MM functions from the cmd line
 lib/ExtUtils/Constant.pm       generate XS code to import C header constants
 lib/ExtUtils/Embed.pm          Utilities for embedding Perl in C programs
 lib/ExtUtils/Install.pm                Handles 'make install' on extensions
 lib/ExtUtils/Installed.pm      Information on installed extensions
 lib/ExtUtils/instmodsh         Give information about installed extensions
 lib/ExtUtils/Liblist.pm                Locates libraries
-lib/ExtUtils/Liblist/Kid.pm     Does the real work of the above
+lib/ExtUtils/Liblist/Kid.pm    Does the real work of the above
 lib/ExtUtils/MakeMaker.pm      Write Makefiles for extensions
 lib/ExtUtils/Manifest.pm       Utilities to write MANIFEST files
 lib/ExtUtils/MANIFEST.SKIP     The default MANIFEST.SKIP
 lib/ExtUtils/Mkbootstrap.pm    Writes a bootstrap file (see MakeMaker)
 lib/ExtUtils/Mksymlists.pm     Writes a linker options file for extensions
-lib/ExtUtils/MM.pm              MakeMaker adaptor class
-lib/ExtUtils/MM_Any.pm          MakeMaker methods for Any OS
+lib/ExtUtils/MM.pm             MakeMaker adaptor class
+lib/ExtUtils/MM_Any.pm         MakeMaker methods for Any OS
 lib/ExtUtils/MM_BeOS.pm                MakeMaker methods for BeOS
 lib/ExtUtils/MM_Cygwin.pm      MakeMaker methods for Cygwin
-lib/ExtUtils/MM_DOS.pm          MakeMaker methods for DOS
+lib/ExtUtils/MM_DOS.pm         MakeMaker methods for DOS
 lib/ExtUtils/MM_NW5.pm         MakeMaker methods for NetWare
 lib/ExtUtils/MM_OS2.pm         MakeMaker methods for OS/2
 lib/ExtUtils/MM_Unix.pm                MakeMaker methods for Unix
-lib/ExtUtils/MM_UWIN.pm         MakeMaker methods for U/WIN
+lib/ExtUtils/MM_UWIN.pm                MakeMaker methods for U/WIN
 lib/ExtUtils/MM_VMS.pm         MakeMaker methods for VMS
 lib/ExtUtils/MM_Win32.pm       MakeMaker methods for Win32
-lib/ExtUtils/MM_Win95.pm        MakeMaker methods for Win95
-lib/ExtUtils/MY.pm              MakeMaker user override class
+lib/ExtUtils/MM_Win95.pm       MakeMaker methods for Win95
+lib/ExtUtils/MY.pm             MakeMaker user override class
 lib/ExtUtils/Packlist.pm       Manipulates .packlist files
-lib/ExtUtils/t/00setup_dummy.t  Setup MakeMaker test module
-lib/ExtUtils/t/backwards.t      Check MakeMaker's backwards compatibility
+lib/ExtUtils/t/00setup_dummy.t Setup MakeMaker test module
+lib/ExtUtils/t/backwards.t     Check MakeMaker's backwards compatibility
 lib/ExtUtils/t/basic.t         See if MakeMaker can build a module
 lib/ExtUtils/t/Command.t       See if ExtUtils::Command works (Win32 only)
 lib/ExtUtils/t/Constant.t      See if ExtUtils::Constant works
 lib/ExtUtils/t/Embed.t         See if ExtUtils::Embed and embedding works
-lib/ExtUtils/t/hints.t          See if hint files are honored.
-lib/ExtUtils/t/INST.t           Check MakeMaker INST_* macros
+lib/ExtUtils/t/hints.t         See if hint files are honored.
+lib/ExtUtils/t/INST.t          Check MakeMaker INST_* macros
 lib/ExtUtils/t/Installed.t     See if ExtUtils::Installed works
-lib/ExtUtils/t/INST_PREFIX.t    See if MakeMaker can apply PREFIXs
+lib/ExtUtils/t/INST_PREFIX.t   See if MakeMaker can apply PREFIXs
 lib/ExtUtils/t/Manifest.t      See if ExtUtils::Manifest works
 lib/ExtUtils/t/Mkbootstrap.t   See if ExtUtils::Mkbootstrap works
 lib/ExtUtils/t/MM_BeOS.t       See if ExtUtils::MM_BeOS works
@@ -1054,10 +1054,10 @@ lib/ExtUtils/t/MM_Unix.t        See if ExtUtils::MM_UNIX works
 lib/ExtUtils/t/MM_VMS.t                See if ExtUtils::MM_VMS works
 lib/ExtUtils/t/MM_Win32.t      See if ExtUtils::MM_Win32 works
 lib/ExtUtils/t/Packlist.t      See if Packlist works
-lib/ExtUtils/t/prefixify.t      See if MakeMaker can apply a PREFIX
-lib/ExtUtils/t/problems.t       How MakeMaker reacts to build problems
+lib/ExtUtils/t/prefixify.t     See if MakeMaker can apply a PREFIX
+lib/ExtUtils/t/problems.t      How MakeMaker reacts to build problems
 lib/ExtUtils/t/testlib.t       See if ExtUtils::testlib works
-lib/ExtUtils/t/VERSION_FROM.t   See if MakeMaker's VERSION_FROM works
+lib/ExtUtils/t/VERSION_FROM.t  See if MakeMaker's VERSION_FROM works
 lib/ExtUtils/t/zz_cleanup_dummy.t   Cleanup MakeMaker test module
 lib/ExtUtils/testlib.pm                Fixes up @INC to use just-built extension
 lib/ExtUtils/typemap           Extension interface types
@@ -1088,8 +1088,8 @@ lib/File/Spec/Epoc.pm             portable operations on EPOC file names
 lib/File/Spec/Functions.pm     Function interface to File::Spec object methods
 lib/File/Spec/Mac.pm           portable operations on Mac file names
 lib/File/Spec/OS2.pm           portable operations on OS2 file names
-lib/File/Spec/t/Functions.t     See if File::Spec::Functions works
-lib/File/Spec/t/rel2abs2rel.t   See if File::Spec->rel2abs/abs2rel works
+lib/File/Spec/t/Functions.t    See if File::Spec::Functions works
+lib/File/Spec/t/rel2abs2rel.t  See if File::Spec->rel2abs/abs2rel works
 lib/File/Spec/t/Spec.t         See if File::Spec works
 lib/File/Spec/Unix.pm          portable operations on Unix file names
 lib/File/Spec/VMS.pm           portable operations on VMS file names
@@ -1128,7 +1128,7 @@ lib/Getopt/Long/CHANGES           Getopt::Long changes
 lib/Getopt/Long/README         Getopt::Long README
 lib/Getopt/Long/t/gol-basic.t  See if Getopt::Long works
 lib/Getopt/Long/t/gol-compat.t See if Getopt::Long works
-lib/Getopt/Long/t/gol-linkage.t        See if Getopt::Long works
+lib/Getopt/Long/t/gol-linkage.t See if Getopt::Long works
 lib/Getopt/Long/t/gol-oo.t     See if Getopt::Long works
 lib/Getopt/Std.pm              Fetch command options (getopt, getopts)
 lib/Getopt/Std.t               See if Getopt::Std and Getopt::Long work
@@ -1353,15 +1353,15 @@ lib/Pod/t/basic.t               podlators test
 lib/Pod/t/basic.txt            podlators test
 lib/Pod/t/eol.t                        end of line agnosticism
 lib/Pod/t/Functions.t          See if Pod::Functions works
-lib/Pod/t/htmlescp.pod          pod2html escape test input data
-lib/Pod/t/htmlescp.t            pod2html escape test
-lib/Pod/t/htmlview.pod          pod2html render test input data
-lib/Pod/t/htmlview.t            pod2html render test
+lib/Pod/t/htmlescp.pod         pod2html escape test input data
+lib/Pod/t/htmlescp.t           pod2html escape test
+lib/Pod/t/htmlview.pod         pod2html render test input data
+lib/Pod/t/htmlview.t           pod2html render test
 lib/Pod/t/InputObjects.t       See if Pod::InputObjects works
 lib/Pod/t/latex.t              See if Pod::LaTeX works
-lib/Pod/t/man.t                podlators test
+lib/Pod/t/man.t                        podlators test
 lib/Pod/t/parselink.t          podlators test
-lib/Pod/t/pod2html-lib.pl       pod2html testing library
+lib/Pod/t/pod2html-lib.pl      pod2html testing library
 lib/Pod/t/Select.t             See if Pod::Select works
 lib/Pod/t/text-errors.t                podlators test
 lib/Pod/t/Usage.t              See if Pod::Usage works
@@ -1412,56 +1412,56 @@ lib/Term/ReadLine.pm            Stub readline library
 lib/Term/ReadLine.t            See if Term::ReadLine works
 lib/termcap.pl                 Perl library supporting termcap usage
 lib/Test.pm                    A simple framework for writing test scripts
-lib/Test/Builder.pm             For writing new test libraries
+lib/Test/Builder.pm            For writing new test libraries
 lib/Test/Harness.pm            A test harness
 lib/Test/Harness/Assert.pm  Test::Harness::Assert (internal use only)
 lib/Test/Harness/Changes       Test::Harness
-lib/Test/Harness/Iterator.pm    Test::Harness::Iterator (internal use only)
-lib/Test/Harness/Straps.pm      Test::Harness::Straps
-lib/Test/Harness/t/00compile.t  Test::Harness test
-lib/Test/Harness/t/assert.t     Test::Harness::Assert test
+lib/Test/Harness/Iterator.pm   Test::Harness::Iterator (internal use only)
+lib/Test/Harness/Straps.pm     Test::Harness::Straps
+lib/Test/Harness/t/00compile.t Test::Harness test
+lib/Test/Harness/t/assert.t    Test::Harness::Assert test
 lib/Test/Harness/t/base.t      Test::Harness test
-lib/Test/Harness/t/callback.t   Test::Harness test
-lib/Test/Harness/t/nonumbers.t  Test::Harness test
+lib/Test/Harness/t/callback.t  Test::Harness test
+lib/Test/Harness/t/nonumbers.t Test::Harness test
 lib/Test/Harness/t/ok.t                Test::Harness test
-lib/Test/Harness/t/strap-analyze.t      Test::Harness::Straps test
-lib/Test/Harness/t/strap.t              Test::Harness::Straps test
+lib/Test/Harness/t/strap-analyze.t     Test::Harness::Straps test
+lib/Test/Harness/t/strap.t             Test::Harness::Straps test
 lib/Test/Harness/t/test-harness.t      Test::Harness test
-lib/Test/More.pm                More utilities for writing tests
-lib/Test/Simple.pm              Basic utility for writing tests
+lib/Test/More.pm               More utilities for writing tests
+lib/Test/Simple.pm             Basic utility for writing tests
 lib/Test/Simple/Changes                Test::Simple changes
 lib/Test/Simple/README         Test::Simple README
-lib/Test/Simple/t/buffer.t      Test::Builder buffering test
-lib/Test/Simple/t/Builder.t     Test::Builder tests
-lib/Test/Simple/t/curr_test.t   Test::Builder->curr_test tests
-lib/Test/Simple/t/diag.t        Test::More diag() test
-lib/Test/Simple/t/exit.t        Test::Simple test, exit codes
-lib/Test/Simple/t/extra.t       Test::Simple test
-lib/Test/Simple/t/fail-like.t   Test::More test, like() failures
-lib/Test/Simple/t/fail-more.t   Test::More test, tests failing
-lib/Test/Simple/t/fail.t        Test::Simple test, test failures
+lib/Test/Simple/t/buffer.t     Test::Builder buffering test
+lib/Test/Simple/t/Builder.t    Test::Builder tests
+lib/Test/Simple/t/curr_test.t  Test::Builder->curr_test tests
+lib/Test/Simple/t/diag.t       Test::More diag() test
+lib/Test/Simple/t/exit.t       Test::Simple test, exit codes
+lib/Test/Simple/t/extra.t      Test::Simple test
+lib/Test/Simple/t/fail-like.t  Test::More test, like() failures
+lib/Test/Simple/t/fail-more.t  Test::More test, tests failing
+lib/Test/Simple/t/fail.t       Test::Simple test, test failures
 lib/Test/Simple/t/filehandles.t Test::Simple test, STDOUT can be played with
-lib/Test/Simple/t/import.t      Test::More test, importing functions
-lib/Test/Simple/t/is_deeply.t   Test::More test, is_deeply()
+lib/Test/Simple/t/import.t     Test::More test, importing functions
+lib/Test/Simple/t/is_deeply.t  Test::More test, is_deeply()
 lib/Test/Simple/t/maybe_regex.t Test::Builder->maybe_regex() tests
-lib/Test/Simple/t/missing.t     Test::Simple test, missing tests
-lib/Test/Simple/t/More.t        Test::More test, basic stuff
-lib/Test/Simple/t/no_ending.t   Test::Builder test, no_ending()
-lib/Test/Simple/t/no_header.t   Test::Builder test, no_header()
-lib/Test/Simple/t/no_plan.t     Test::Simple test, forgot the plan
-lib/Test/Simple/t/output.t      Test::Builder test, output methods
-lib/Test/Simple/t/plan.t        Test::More test, plan()
-lib/Test/Simple/t/plan_is_noplan.t      Test::Simple test, no_plan
-lib/Test/Simple/t/plan_no_plan.t        Test::More test, plan() w/no_plan
-lib/Test/Simple/t/plan_skip_all.t       Test::More test, plan() w/skip_all
-lib/Test/Simple/t/simple.t      Test::Simple test, basic stuff
-lib/Test/Simple/t/skip.t        Test::More test, SKIP tests
-lib/Test/Simple/t/skipall.t     Test::More test, skip all tests
-lib/Test/Simple/t/strays.t      Test::Builder stray newline checks
-lib/Test/Simple/t/todo.t        Test::More test, TODO tests
-lib/Test/Simple/t/undef.t       Test::More test, undefs don't cause warnings
-lib/Test/Simple/t/useing.t      Test::More test, compile test
-lib/Test/Simple/t/use_ok.t      Test::More test, use_ok()
+lib/Test/Simple/t/missing.t    Test::Simple test, missing tests
+lib/Test/Simple/t/More.t       Test::More test, basic stuff
+lib/Test/Simple/t/no_ending.t  Test::Builder test, no_ending()
+lib/Test/Simple/t/no_header.t  Test::Builder test, no_header()
+lib/Test/Simple/t/no_plan.t    Test::Simple test, forgot the plan
+lib/Test/Simple/t/output.t     Test::Builder test, output methods
+lib/Test/Simple/t/plan.t       Test::More test, plan()
+lib/Test/Simple/t/plan_is_noplan.t     Test::Simple test, no_plan
+lib/Test/Simple/t/plan_no_plan.t       Test::More test, plan() w/no_plan
+lib/Test/Simple/t/plan_skip_all.t      Test::More test, plan() w/skip_all
+lib/Test/Simple/t/simple.t     Test::Simple test, basic stuff
+lib/Test/Simple/t/skip.t       Test::More test, SKIP tests
+lib/Test/Simple/t/skipall.t    Test::More test, skip all tests
+lib/Test/Simple/t/strays.t     Test::Builder stray newline checks
+lib/Test/Simple/t/todo.t       Test::More test, TODO tests
+lib/Test/Simple/t/undef.t      Test::More test, undefs don't cause warnings
+lib/Test/Simple/t/useing.t     Test::More test, compile test
+lib/Test/Simple/t/use_ok.t     Test::More test, use_ok()
 lib/Test/t/fail.t              See if Test works
 lib/Test/t/mix.t               See if Test works
 lib/Test/t/onfail.t            See if Test works
@@ -1469,7 +1469,7 @@ lib/Test/t/qr.t                   See if Test works
 lib/Test/t/skip.t              See if Test works
 lib/Test/t/success.t           See if Test works
 lib/Test/t/todo.t              See if Test works
-lib/Test/Tutorial.pod           A tutorial on writing tests
+lib/Test/Tutorial.pod          A tutorial on writing tests
 lib/Text/Abbrev.pm             An abbreviation table builder
 lib/Text/Abbrev.t              Test Text::Abbrev
 lib/Text/Balanced.pm           Text::Balanced
@@ -1499,37 +1499,37 @@ lib/Tie/Array/push.t            Test for Tie::Array
 lib/Tie/Array/splice.t         Test for Tie::Array::SPLICE
 lib/Tie/Array/std.t            Test for Tie::StdArray
 lib/Tie/Array/stdpush.t                Test for Tie::StdArray
-lib/Tie/File.pm                 Files as tied arrays
-lib/Tie/File/t/00_version.t     Trivial test for Tie::File
-lib/Tie/File/t/01_gen.t         Generic read/write tests for Tie::File
-lib/Tie/File/t/02_fetchsize.t   File length fetch test for Tie::File
-lib/Tie/File/t/03_longfetch.t   Past-the-end-of-the-array tests for Tie::File
-lib/Tie/File/t/04_splice.t      SPLICE method tests for Tie::File
-lib/Tie/File/t/05_size.t        $#a tests for Tie::File
-lib/Tie/File/t/06_fixrec.t      '_fixrec' method functional tests for Tie::File
-lib/Tie/File/t/07_rv_splice.t   SPLICE method return value tests for Tie::File
-lib/Tie/File/t/08_ro.t          read-only mode tests for Tie::File
-lib/Tie/File/t/09_gen_rs.t      Like 01_gen.t, with unusual record separator
-lib/Tie/File/t/10_splice_rs.t   Like 04_splice.t, with unusual record separator
+lib/Tie/File.pm                        Files as tied arrays
+lib/Tie/File/t/00_version.t    Trivial test for Tie::File
+lib/Tie/File/t/01_gen.t                Generic read/write tests for Tie::File
+lib/Tie/File/t/02_fetchsize.t  File length fetch test for Tie::File
+lib/Tie/File/t/03_longfetch.t  Past-the-end-of-the-array tests for Tie::File
+lib/Tie/File/t/04_splice.t     SPLICE method tests for Tie::File
+lib/Tie/File/t/05_size.t       $#a tests for Tie::File
+lib/Tie/File/t/06_fixrec.t     '_fixrec' method functional tests for Tie::File
+lib/Tie/File/t/07_rv_splice.t  SPLICE method return value tests for Tie::File
+lib/Tie/File/t/08_ro.t         read-only mode tests for Tie::File
+lib/Tie/File/t/09_gen_rs.t     Like 01_gen.t, with unusual record separator
+lib/Tie/File/t/10_splice_rs.t  Like 04_splice.t, with unusual record separator
 lib/Tie/File/t/11_rv_splice_rs.t  Like 07_rv_splice.t, with unusual record separator
 lib/Tie/File/t/12_longfetch_rs.t  Like 03_longfetch.t, with unusual record separator
-lib/Tie/File/t/13_size_rs.t     Like 05_size.t, with unusual record separator
-lib/Tie/File/t/14_lock.t        File locking method tests for Tie::File
-lib/Tie/File/t/15_pushpop.t     PUSH / POP / SHIFT / UNSHIFT for Tie::File
-lib/Tie/File/t/16_handle.t      Tying a handle instead of a file for Tie::File
-lib/Tie/File/t/17_misc_meth.t   CLEAR / EXISTS / DELETE / EXTEND for Tie::File
-lib/Tie/File/t/18_rs_fixrec.t   Like 06_fixrec.t, with unusual record separator
-lib/Tie/File/t/19_cache.t       Read cache exercises and regression for Tie::File
-lib/Tie/File/t/20_cache_full.t  LRU expiry exercises and regression for Tie::File
-lib/Tie/File/t/21_win32.t       Win32 special behavior of Tie::File
-lib/Tie/File/t/22_autochomp.t   'autochomp' option of Tie::File
+lib/Tie/File/t/13_size_rs.t    Like 05_size.t, with unusual record separator
+lib/Tie/File/t/14_lock.t       File locking method tests for Tie::File
+lib/Tie/File/t/15_pushpop.t    PUSH / POP / SHIFT / UNSHIFT for Tie::File
+lib/Tie/File/t/16_handle.t     Tying a handle instead of a file for Tie::File
+lib/Tie/File/t/17_misc_meth.t  CLEAR / EXISTS / DELETE / EXTEND for Tie::File
+lib/Tie/File/t/18_rs_fixrec.t  Like 06_fixrec.t, with unusual record separator
+lib/Tie/File/t/19_cache.t      Read cache exercises and regression for Tie::File
+lib/Tie/File/t/20_cache_full.t LRU expiry exercises and regression for Tie::File
+lib/Tie/File/t/21_win32.t      Win32 special behavior of Tie::File
+lib/Tie/File/t/22_autochomp.t  'autochomp' option of Tie::File
 lib/Tie/File/t/23_rv_ac_splice.t  Like 07_rv_splice.t, but with autochomp
 lib/Tie/File/t/24_cache_loop.t Regression for old Tie::File cache bug
-lib/Tie/File/t/25_gen_nocache.t        Like 01_gen.t, but with caching disabled
+lib/Tie/File/t/25_gen_nocache.t Like 01_gen.t, but with caching disabled
 lib/Tie/File/t/26_twrite.t     Unit tests for Tie::File::_twrite
-lib/Tie/File/t/30_defer.t       deferred writing feature tests for Tie::File
-lib/Tie/File/t/31_autodefer.t   'autodefer' feature tests for Tie::File
-lib/Tie/File/t/32_defer_misc.t  Like 17_misc_meth.t, but with deferred writing
+lib/Tie/File/t/30_defer.t      deferred writing feature tests for Tie::File
+lib/Tie/File/t/31_autodefer.t  'autodefer' feature tests for Tie::File
+lib/Tie/File/t/32_defer_misc.t Like 17_misc_meth.t, but with deferred writing
 lib/Tie/File/t/33_defer_vs.t   Like 30_defer.t, but with varying-length records
 lib/Tie/File/t/40_abs_cache.t  Unit tests for Tie::File::Cache
 lib/Tie/File/t/41_heap.t       Unit tests for Tie::File::Heap
@@ -1872,7 +1872,7 @@ lib/unicore/Name.pl               Unicode character database
 lib/unicore/NamesList.txt      Unicode character database
 lib/unicore/Number.pl          Unicode character database
 lib/unicore/Properties         Built-in \p{...} / \P{...} property list
-lib/unicore/PropertyAliases.txt        Unicode character database
+lib/unicore/PropertyAliases.txt Unicode character database
 lib/unicore/PropList.txt       Unicode character database
 lib/unicore/PropValueAliases.txt       Unicode character database
 lib/unicore/README.perl                Unicode character database
@@ -1898,8 +1898,8 @@ lib/utf8_heavy.pl         Support routines for utf8 pragma
 lib/validate.pl                        Perl library supporting wholesale file mode validation
 lib/vars.pm                    Declare pseudo-imported global variables
 lib/vars.t                     See if "use vars" work
-lib/vmsish.pm                  Control VMS-specific behavior of Perl core
-lib/vmsish.t                   Tests for vmsish.pm
+lib/vmsish.pm                  Control VMS-specific behavior of Perl core
+lib/vmsish.t                   Tests for vmsish.pm
 lib/warnings.pm                        For "use warnings"
 lib/warnings.t                 See if warning controls work
 lib/warnings/register.pm       For "use warnings::register"
@@ -2025,7 +2025,7 @@ os2/OS2/Process/Makefile.PL       system() constants in a module
 os2/OS2/Process/MANIFEST       system() constants in a module
 os2/OS2/Process/Process.pm     system() constants in a module
 os2/OS2/Process/Process.xs     system() constants in a module
-os2/OS2/Process/t/os2_process.t        Tests
+os2/OS2/Process/t/os2_process.t Tests
 os2/OS2/Process/t/os2_process_kid.t    Tests
 os2/OS2/Process/t/os2_process_text.t   Tests
 os2/OS2/REXX/Changes           DLL access module
@@ -2133,7 +2133,7 @@ pod/perlguts.pod          Internals info
 pod/perlhack.pod               Perl hackers guide
 pod/perlhist.pod               Perl history info
 pod/perlintern.pod             Perl internal function docs (autogenrated)
-pod/perlintro.pod               Perl introduction for beginners
+pod/perlintro.pod              Perl introduction for beginners
 pod/perliol.pod                        Internals of PerlIO with layers.
 pod/perlipc.pod                        IPC info
 pod/perllexwarn.pod            Lexical Warnings info
@@ -2192,7 +2192,7 @@ Policy_sh.SH              Hold site-wide preferences between Configure runs.
 Porting/apply          Apply patches sent by mail
 Porting/check83.pl     Check whether we are 8.3-friendly
 Porting/checkURL.pl    Check whether we have working URLs
-Porting/checkVERSION.pl        Check whether we have $VERSIONs
+Porting/checkVERSION.pl Check whether we have $VERSIONs
 Porting/config.sh      Sample config.sh
 Porting/config_H       Sample config.h
 Porting/Contract       Social contract for contributed modules in Perl core
@@ -2302,7 +2302,7 @@ t/comp/term.t                     See if more terms work
 t/comp/use.t                   See if pragmas work
 t/harness                      Finer diagnostics from test suite
 t/io/argv.t                    See if ARGV stuff works
-t/io/binmode.t                  See if binmode() works
+t/io/binmode.t                 See if binmode() works
 t/io/crlf.t                    See if :crlf works
 t/io/dup.t                     See if >& works right
 t/io/fflush.t                  See if auto-flush on fork/exec/system/qx works
@@ -2317,7 +2317,7 @@ t/io/print.t                      See if print commands work
 t/io/read.t                    See if read works
 t/io/tell.t                    See if file seeking works
 t/io/utf8.t                    See if file seeking works
-t/japh/abigail.t                Obscure tests
+t/japh/abigail.t               Obscure tests
 t/lib/1_compile.t              See if the various libraries and extensions compile
 t/lib/commonsense.t            See if configuration meets basic needs
 t/lib/compmod.pl               Helper for 1_compile.t
@@ -2343,50 +2343,50 @@ t/lib/h2ph.h                    Test header file for h2ph
 t/lib/h2ph.pht                 Generated output from h2ph.h by h2ph, for comparison
 t/lib/locale/latin1            Part of locale.t in Latin 1
 t/lib/locale/utf8              Part of locale.t in UTF8
-t/lib/MakeMaker/Test/Utils.pm           MakeMaker test utilities
-t/lib/Math/BigFloat/Subclass.pm        Empty subclass of BigFloat for test
+t/lib/MakeMaker/Test/Utils.pm          MakeMaker test utilities
+t/lib/Math/BigFloat/Subclass.pm Empty subclass of BigFloat for test
 t/lib/Math/BigInt/BareCalc.pm  Bigint's simulation of Calc
 t/lib/Math/BigInt/Subclass.pm  Empty subclass of BigInt for test
 t/lib/Math/BigRat/Test.pm              Math::BigRat test helper
 t/lib/sample-tests/bailout             Test data for Test::Harness
-t/lib/sample-tests/bignum               Test data for Test::Harness
+t/lib/sample-tests/bignum              Test data for Test::Harness
 t/lib/sample-tests/combined            Test data for Test::Harness
 t/lib/sample-tests/descriptive         Test data for Test::Harness
-t/lib/sample-tests/die                  Test data for Test::Harness
-t/lib/sample-tests/die_head_end         Test data for Test::Harness
-t/lib/sample-tests/die_last_minute      Test data for Test::Harness
+t/lib/sample-tests/die                 Test data for Test::Harness
+t/lib/sample-tests/die_head_end                Test data for Test::Harness
+t/lib/sample-tests/die_last_minute     Test data for Test::Harness
 t/lib/sample-tests/duplicates          Test data for Test::Harness
-t/lib/sample-tests/head_end            Test data for Test::Harness
-t/lib/sample-tests/head_fail           Test data for Test::Harness
-t/lib/sample-tests/lone_not_bug         Test data for Test::Harness
+t/lib/sample-tests/head_end            Test data for Test::Harness
+t/lib/sample-tests/head_fail           Test data for Test::Harness
+t/lib/sample-tests/lone_not_bug                Test data for Test::Harness
 t/lib/sample-tests/no_nums             Test data for Test::Harness
-t/lib/sample-tests/out_of_order         Test data for Test::Harness
+t/lib/sample-tests/out_of_order                Test data for Test::Harness
 t/lib/sample-tests/simple              Test data for Test::Harness
 t/lib/sample-tests/simple_fail         Test data for Test::Harness
 t/lib/sample-tests/skip                        Test data for Test::Harness
 t/lib/sample-tests/skip_all            Test data for Test::Harness
-t/lib/sample-tests/skip_no_msg         Test data for Test::Harness
-t/lib/sample-tests/taint                Test data for Test::Harness
+t/lib/sample-tests/skip_no_msg         Test data for Test::Harness
+t/lib/sample-tests/taint               Test data for Test::Harness
 t/lib/sample-tests/todo                        Test data for Test::Harness
-t/lib/sample-tests/todo_inline         Test data for Test::Harness
-t/lib/sample-tests/vms_nit              Test data for Test::Harness
+t/lib/sample-tests/todo_inline         Test data for Test::Harness
+t/lib/sample-tests/vms_nit             Test data for Test::Harness
 t/lib/sample-tests/with_comments       Test data for Test::Harness
 t/lib/st-dump.pl               See if Storable works
 t/lib/strict/refs              Tests of "use strict 'refs'" for strict.t
 t/lib/strict/subs              Tests of "use strict 'subs'" for strict.t
 t/lib/strict/vars              Tests of "use strict 'vars'" for strict.t
-t/lib/Test/Simple/Catch.pm      Utility module for testing Test::Simple
-t/lib/Test/Simple/sample_tests/death.plx                for exit.t
-t/lib/Test/Simple/sample_tests/death_in_eval.plx        for exit.t
-t/lib/Test/Simple/sample_tests/extras.plx               for exit.t
-t/lib/Test/Simple/sample_tests/five_fail.plx            for exit.t
-t/lib/Test/Simple/sample_tests/last_minute_death.plx    for exit.t
-t/lib/Test/Simple/sample_tests/one_fail.plx             for exit.t
-t/lib/Test/Simple/sample_tests/require.plx              for exit.t
-t/lib/Test/Simple/sample_tests/success.plx              for exit.t
-t/lib/Test/Simple/sample_tests/too_few.plx              for exit.t
-t/lib/Test/Simple/sample_tests/two_fail.plx             for exit.t
-t/lib/TieOut.pm                 Testing library to capture prints
+t/lib/Test/Simple/Catch.pm     Utility module for testing Test::Simple
+t/lib/Test/Simple/sample_tests/death.plx               for exit.t
+t/lib/Test/Simple/sample_tests/death_in_eval.plx       for exit.t
+t/lib/Test/Simple/sample_tests/extras.plx              for exit.t
+t/lib/Test/Simple/sample_tests/five_fail.plx           for exit.t
+t/lib/Test/Simple/sample_tests/last_minute_death.plx   for exit.t
+t/lib/Test/Simple/sample_tests/one_fail.plx            for exit.t
+t/lib/Test/Simple/sample_tests/require.plx             for exit.t
+t/lib/Test/Simple/sample_tests/success.plx             for exit.t
+t/lib/Test/Simple/sample_tests/too_few.plx             for exit.t
+t/lib/Test/Simple/sample_tests/two_fail.plx            for exit.t
+t/lib/TieOut.pm                        Testing library to capture prints
 t/lib/warnings/1global         Tests of global warnings for warnings.t
 t/lib/warnings/2use            Tests for "use warnings" for warnings.t
 t/lib/warnings/3both           Tests for interaction of $^W and "use warnings"
@@ -2435,7 +2435,7 @@ t/op/avhv.t                       See if pseudo-hashes work
 t/op/bless.t                   See if bless works
 t/op/bop.t                     See if bitops work
 t/op/chars.t                   See if character escapes work
-t/op/chdir.t                    See if chdir works
+t/op/chdir.t                   See if chdir works
 t/op/chop.t                    See if chop works
 t/op/closure.t                 See if closures work
 t/op/cmp.t                     See if the various string and numeric compare work
@@ -2488,7 +2488,7 @@ t/op/my_stash.t                   See if my Package works
 t/op/nothr5005.t               local @_ test which does not work under use5005threads
 t/op/numconvert.t              See if accessing fields does not change numeric values
 t/op/oct.t                     See if oct and hex work
-t/op/or.t                       See if || works in weird situations
+t/op/or.t                      See if || works in weird situations
 t/op/ord.t                     See if ord works
 t/op/override.t                        See if operator overriding works
 t/op/pack.t                    See if pack and unpack work
@@ -2517,7 +2517,7 @@ t/op/sort.t                       See if sort works
 t/op/splice.t                  See if splice works
 t/op/split.t                   See if split works
 t/op/sprintf.t                 See if sprintf works
-t/op/srand.t                    See if srand works
+t/op/srand.t                   See if srand works
 t/op/stat.t                    See if stat works
 t/op/study.t                   See if study works
 t/op/subst.t                   See if substitution works
@@ -2576,8 +2576,8 @@ t/pod/testp2pt.pl         Module to test Pod::PlainText for a given file
 t/pod/testpchk.pl              Module to test Pod::Checker for a given file
 t/pod/testpods/lib/Pod/Stuff.pm                        Sample data for find.t
 t/README                       Instructions for regression tests
-t/run/exit.t                    Test perl's exit status.
-t/run/fresh_perl.t              Tests that require a fresh perl.
+t/run/exit.t                   Test perl's exit status.
+t/run/fresh_perl.t             Tests that require a fresh perl.
 t/run/noswitch.t               Test aliasing ARGV for other switch tests
 t/run/runenv.t                 Test if perl honors its environment variables.
 t/run/switcha.t                        Test the -a switch
@@ -2585,11 +2585,11 @@ t/run/switches.t                Tests for the other switches
 t/run/switchF.t                        Test the -F switch
 t/run/switchn.t                        Test the -n switch
 t/run/switchp.t                        Test the -p switch
-t/run/switchPx.aux              Data for switchPx.t
-t/run/switchPx.t                Test the -Px combination
-t/run/switcht.t                 Test the -t switch
-t/run/switchx.aux               Data for switchx.t
-t/run/switchx.t                 Test the -x switch
+t/run/switchPx.aux             Data for switchPx.t
+t/run/switchPx.t               Test the -Px combination
+t/run/switcht.t                        Test the -t switch
+t/run/switchx.aux              Data for switchx.t
+t/run/switchx.t                        Test the -x switch
 t/TEST                         The regression tester
 t/test.pl                      Simple testing library
 t/TestInit.pm                  Preamble library for core tests
@@ -2736,6 +2736,8 @@ wince/bin/perlglob.pl                     WinCE port
 wince/bin/pl2bat.pl                    WinCE port
 wince/bin/runperl.pl                   WinCE port
 wince/bin/search.pl                    WinCE port
+wince/cecopy-lib.pl                    WinCE port
+wince/comp.pl                          WinCE port
 wince/config.ce                                WinCE port
 wince/config.h                         WinCE port
 wince/config_H.ce                      WinCE port
index 18ccfa1..5d6ce86 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
 #define PERL_IN_PP_SORT_C
 #include "perl.h"
 
+#if defined(UNDER_CE)
+/* looks like 'small' is reserved word for WINCE (or somesuch)*/
+#define        small xsmall
+#endif
+
 static I32 sortcv(pTHX_ SV *a, SV *b);
 static I32 sortcv_stacked(pTHX_ SV *a, SV *b);
 static I32 sortcv_xsub(pTHX_ SV *a, SV *b);
index c08fb13..b1906ce 100644 (file)
@@ -40,7 +40,7 @@ main(int ac, char **av)
 {
     int i;
 #ifdef __BORLANDC__
-    char *h,*s = GetCommandLine();
+    char *s = GetCommandLine();
     int j=0;
     av[0] = s;
     if (s[0]=='"') {
diff --git a/utf8.c b/utf8.c
index c2818c8..472a89f 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1348,6 +1348,15 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
         HE *he;
         SV *val;
        
+#if defined(UNDER_CE) && defined(MIPS)
+/*strange: compiler complaints that I redefine macro UVXf and points where
+           it was first defined. I copied line from there without any changes.
+           Nothing should change.
+           But when I do not do this, there is an error on a line with
+              Perl_newSVpvf(aTHX_ "%04"UVXf, uv1)
+*/
+#define        UVXf            "lX"            /**/
+#endif
         if ((hv    = get_hv(special, FALSE)) &&
             (keysv = sv_2mortal(Perl_newSVpvf(aTHX_ "%04"UVXf, uv1))) &&
             (he    = hv_fetch_ent(hv, keysv, FALSE, 0)) &&
index 60f02e8..a4b4bf4 100644 (file)
@@ -5,7 +5,12 @@
 SRCDIR     = ..
 PV         = 57
 INST_VER   = 5.7.3
+
+INSTALL_ROOT=/netzwerk/sprache/perl
+
+# PERLCEDIR shoud be set to current directory
 PERLCEDIR  = H:\src\wince\perl\wince
+
 WCEROOT    = N:\Windows CE Tools
 WCEROOT    = D:\Windows CE Tools
 NTPERL     = N:\Programme\perl\bin\perl.exe
@@ -19,10 +24,15 @@ CECONSOLEDIR = h:\src\wince\w32console
 COPY       = copy $(YES)
 XCOPY      = xcopy $(YES) /f /r /i /d
 RCOPY     = xcopy $(YES) /f /r /i /e /d
+
+# cecopy program. Make shure it is in your path, as well as cemkdir, cedel
+CECOPY     = cecopy
+
 NOOP      = @echo
 # keep this untouched!
 NULL      =
 
+
 CFG=DEBUG
 #CFG=RELEASE
 
@@ -532,7 +542,7 @@ EXTRACORE_SRC       = $(EXTRACORE_SRC) perllib.c
 EXTRACORE_SRC  = $(EXTRACORE_SRC) ..\malloc.c
 !ENDIF
 
-EXTRACORE_SRC  = $(EXTRACORE_SRC) ..\perlio.c
+EXTRACORE_SRC  = $(EXTRACORE_SRC) ..\perlio.c .\win32io.c
 
 WIN32_SRC      =               \
                .\wince.c       \
@@ -861,81 +871,79 @@ clean:
        -rm -f ../config.sh ../lib/Config.pm
        -rm -f config.h perl.res
 
-!if "$(MACHINE)" == "wince-sh3-hpc"
+!IF "$(MACHINE)" == "wince-sh3-hpc"
+
 install_perlexe: $(PERLEXE)
        cedel /speicherkarte2/bin/perl.exe
-       cecopy pc:../perl.exe ce:/speicherkarte2/bin
+       $(CECOPY) pc:../perl.exe ce:/speicherkarte2/bin
 
 install_perldll: $(PERLDLL)
        cedel /speicherkarte2/bin/perl$(PV).dll
-       cecopy pc:../perl$(PV).dll ce:/speicherkarte2/bin
+       $(CECOPY) pc:../perl$(PV).dll ce:/speicherkarte2/bin
 
 install_perl: install_perlexe install_perldll
 
 test_perl:
-       cecopy pc:test.pl ce:/speicherkarte2/bin
+       $(CECOPY) pc:test.pl ce:/speicherkarte2/bin
        ceexec /speicherkarte2/bin/perl.exe /speicherkarte2/bin/test.pl
-#      ceexec /speicherkarte2/bin/perl.exe -V
 
 install_lib: ../lib/Config.pm
-       cecopy  pc:../lib/Config.pm ce:/speicherkarte2/usr/lib/perl5
-!endif
+       $(CECOPY)       pc:../lib/Config.pm ce:/speicherkarte2/usr/lib/perl5
+
+!ELSEIF "$(MACHINE)" == "wince-arm-hpc"
 
-!if "$(MACHINE)" == "wince-arm-hpc"
 install_perlexe: $(PERLEXE)
        -cedel /speicherkarte/bin/perl.exe
-       cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin
+       $(CECOPY) pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin
 
 install_perldll: $(PERLDLL)
        -cedel /speicherkarte/bin/perl$(PV).dll
-       cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin
+       $(CECOPY) pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin
 
 install_perl: install_perlexe install_perldll
 
 test_perl:
-       cecopy pc:test.pl ce:/speicherkarte/bin
+       $(CECOPY) pc:test.pl ce:/speicherkarte/bin
        ceexec /speicherkarte/bin/perl.exe /speicherkarte/bin/test.pl
-#      ceexec /speicherkarte2/bin/perl.exe -V
 
 install_lib: ../lib/Config.pm
-       cecopy  pc:../lib/Config.pm ce:/speicherkarte/usr/lib/perl5
-!endif
+       $(CECOPY)       pc:../lib/Config.pm ce:/speicherkarte/usr/lib/perl5
+
+!ELSEIF "$(MACHINE)" == "wince-mips-hpc"
 
-!if "$(MACHINE)" == "wince-mips-hpc"
 install_perlexe: $(PERLEXE)
-       cecopy pc:../perl.exe ce:/netzwerk/compaq/bin
+       $(CECOPY) pc:../perl.exe ce:$(INSTALL_ROOT)/bin
 
 install_perldll: $(PERLDLL)
-       cecopy pc:../perl$(PV).dll ce:/netzwerk/compaq/bin
+       $(CECOPY) pc:../perl$(PV).dll ce:$(INSTALL_ROOT)/bin
 
 install_perl: install_perlexe install_perldll
 
 test_perl:
-       cecopy pc:test.pl ce:/netzwerk/compaq/bin
-       ceexec /netzwerk/compaq/bin/perl.exe /netzwerk/compaq/bin/test.pl
-#      ceexec /netzwerk/compaq/bin/perl.exe -V
+       $(CECOPY) pc:test.pl ce:/netzwerk/compaq/bin
+       ceexec /netzwerk/compaq/bin/perl.exe $(INSTALL_ROOT)/test.pl
 
 install_lib: ../lib/Config.pm
-       cecopy  pc:../lib/Config.pm ce:/netzwerk/compaq/usr/lib/perl5
-!endif
+       $(CECOPY)       pc:../lib/Config.pm ce:/netzwerk/compaq/usr/lib/perl5
+
+!ELSEIF "$(MACHINE)" == "wince-x86em-pocket"
 
-!if "$(MACHINE)" == "wince-x86em-pocket"
 install_lib:
        ftpcopy ../lib/Config.pm ftp!ftp@localhost:/perl/lib
        ftpcopy ../lib/Exporter.pm ftp!ftp@localhost:/perl/lib
        ftpcopy ../lib/Exporter/Heavy.pm ftp!ftp@localhost:/perl/lib/Exporter
 
 install_perlexe: $(PERLEXE)
-       cecopy pc:../perl.exe ce:/netzwerk/compaq/bin
+       $(CECOPY) pc:../perl.exe ce:/netzwerk/compaq/bin
 
 install_perldll: $(PERLDLL)
-       cecopy pc:../perl$(PV).dll ce:/netzwerk/compaq/bin
+       $(CECOPY) pc:../perl$(PV).dll ce:/netzwerk/compaq/bin
 
 install_perl: install_perlexe install_perldll
 
 test_perl:
        echo Not yet
-!endif
+!ENDIF
 
 
 XDLLOBJS = \
@@ -974,6 +982,7 @@ $(DLLDIR)\utf8.obj \
 $(DLLDIR)\util.obj \
 $(DLLDIR)\win32thread.obj \
 $(DLLDIR)\wince.obj \
+$(DLLDIR)\win32io.obj \
 $(DLLDIR)\wincesck.obj \
 $(DLLDIR)\xsutils.obj \
 $(DLLDIR)\perllib.obj \
@@ -1040,34 +1049,42 @@ makedist: all dlls
 
 !if "$(MACHINE)" == "wince-arm-hpc-wce300"
 install: all
-       cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin
-       cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin
+       $(CECOPY) pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin
+       $(CECOPY) pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin
 install_dlls: dlls
-       cecopy pc:../lib/auto/IO/io.dll ce:/speicherkarte/usr/lib/perl5/auto/IO/io.dll
+       $(CECOPY) pc:../lib/auto/IO/io.dll ce:/speicherkarte/usr/lib/perl5/auto/IO/io.dll
+!else
+install: all
+       -cemkdir "$(INSTALL_ROOT)"
+       -cemkdir "$(INSTALL_ROOT)\bin"
+       -cemkdir "$(INSTALL_ROOT)\lib"
+       $(CECOPY) "pc:$(MACHINE)/perl.exe" "ce:$(INSTALL_ROOT)/bin"
+       $(CECOPY) "pc:$(MACHINE)/perl.dll" "ce:$(INSTALL_ROOT)/bin"
+       $(CECOPY) "pc:../lib/Config.pm" "ce:$(INSTALL_ROOT)/lib"
 !endif
 
 !if "$(MACHINE)" == "wince-arm-hpc-wce211"
 install: all
-       cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin
-       cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin
+       $(CECOPY) pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin
+       $(CECOPY) pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin
 !endif
 
 !if "$(MACHINE)" == "wince-mips-hpc-wce211"
 install:
-       cecopy pc:$(MACHINE)/perl.exe ce:/bin
-       cecopy pc:$(MACHINE)/perl$(PV).dll ce:/bin
+       $(CECOPY) pc:$(MACHINE)/perl.exe ce:/bin
+       $(CECOPY) pc:$(MACHINE)/perl$(PV).dll ce:/bin
 !endif
 
 !if "$(MACHINE)" == "wince-mips-hpc-wce200"
 install:
-       cecopy pc:$(MACHINE)/perl.exe ce:/bin
-       cecopy pc:$(MACHINE)/perl$(PV).dll ce:/bin
+       $(CECOPY) pc:$(MACHINE)/perl.exe ce:/bin
+       $(CECOPY) pc:$(MACHINE)/perl$(PV).dll ce:/bin
 !endif
 
 !if "$(MACHINE)" == "wince-sh3-hpc-wce211"
 install:
-       cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte2/bin
-       cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte2/bin
+       $(CECOPY) pc:$(MACHINE)/perl.exe ce:$(INSTALL_ROOT)/bin
+       $(CECOPY) pc:$(MACHINE)/perl$(PV).dll ce:$(INSTALL_ROOT)/bin
 !endif
 
 perl.ico:
diff --git a/wince/cecopy-lib.pl b/wince/cecopy-lib.pl
new file mode 100644 (file)
index 0000000..8281b0c
--- /dev/null
@@ -0,0 +1,217 @@
+# just copy modules
+# TODO: copy tests and try to run them...
+# this file may be used as example on how to use comp.pl
+
+my @files;
+
+my %dirs;
+sub mk {
+  my $r = shift;
+  return if exists $dirs{$r};
+  if ($r=~/\//) {
+    $r=~/^(.*)\/[^\/]*?$/;
+    mk($1);
+  }
+  system("$^X comp.pl --do cemkdir [p]\\lib\\$r");
+  print STDERR "$^X comp.pl --do cemkpath [p]\\lib\\$r\n";
+  $dirs{$r}++;
+}
+for (@files) {
+  if (/\//) {
+    /^(.*)\/[^\/]*?$/;
+    mk($1);
+  }
+  # currently no stripping POD
+  system("$^X comp.pl --do cecopy pc:..\\lib\\$_ ce:[p]\\lib\\$_");
+}
+
+sub BEGIN {
+ @files = qw(
+    attributes.pm
+    AutoLoader.pm
+    AutoSplit.pm
+    autouse.pm
+    base.pm
+    Benchmark.pm
+    bigint.pm
+    bignum.pm
+    bigrat.pm
+    blib.pm
+    bytes.pm
+    Carp.pm
+    charnames.pm
+    Config.pm
+    constant.pm
+    Cwd.pm
+    DB.pm
+    diagnostics.pm
+    Digest.pm
+    DirHandle.pm
+    Dumpvalue.pm
+    DynaLoader.pm
+    English.pm
+    Env.pm
+    Exporter.pm
+    Fatal.pm
+    fields.pm
+    FileCache.pm
+    FileHandle.pm
+    filetest.pm
+    FindBin.pm
+    if.pm
+    integer.pm
+    less.pm
+    locale.pm
+    Memoize.pm
+    NEXT.pm
+    open.pm
+    overload.pm
+    PerlIO.pm
+    re.pm
+    SelectSaver.pm
+    SelfLoader.pm
+    Shell.pm
+    sigtrap.pm
+    sort.pm
+    strict.pm
+    subs.pm
+    Switch.pm
+    Symbol.pm
+    Test.pm
+    Thread.pm
+    UNIVERSAL.pm
+    utf8.pm
+    vars.pm
+    vmsish.pm
+    warnings.pm
+    XSLoader.pm
+    warnings/register.pm
+    Unicode/Collate.pm
+    Unicode/UCD.pm
+    Time/gmtime.pm
+    Time/Local.pm
+    Time/localtime.pm
+    Time/tm.pm
+    Tie/Array.pm
+    Tie/File.pm
+    Tie/Handle.pm
+    Tie/Hash.pm
+    Tie/Memoize.pm
+    Tie/RefHash.pm
+    Tie/Scalar.pm
+    Tie/SubstrHash.pm
+    Text/Abbrev.pm
+    Text/Balanced.pm
+    Text/ParseWords.pm
+    Text/Soundex.pm
+    Text/Tabs.pm
+    Text/Wrap.pm
+    Test/Builder.pm
+    Test/Harness.pm
+    Test/More.pm
+    Test/Simple.pm
+    Test/Harness/Assert.pm
+    Test/Harness/Iterator.pm
+    Test/Harness/Straps.pm
+    Term/ANSIColor.pm
+    Term/Cap.pm
+    Term/Complete.pm
+    Term/ReadLine.pm
+    Search/Dict.pm
+    Pod/Checker.pm
+    Pod/Find.pm
+    Pod/Functions.pm
+    Pod/Html.pm
+    Pod/InputObjects.pm
+    Pod/LaTeX.pm
+    Pod/Man.pm
+    Pod/ParseLink.pm
+    Pod/Parser.pm
+    Pod/ParseUtils.pm
+    Pod/Plainer.pm
+    Pod/Select.pm
+    Pod/Text.pm
+    Pod/Usage.pm
+    Pod/Text/Color.pm
+    Pod/Text/Overstrike.pm
+    Pod/Text/Termcap.pm
+    Math/BigFloat.pm
+    Math/BigInt.pm
+    Math/BigRat.pm
+    Math/Complex.pm
+    Math/Trig.pm
+    Math/BigInt/Calc.pm
+    Math/BigInt/Trace.pm
+    Math/BigFloat/Trace.pm
+    Locale/Constants.pm
+    Locale/Country.pm
+    Locale/Currency.pm
+    Locale/Language.pm
+    Locale/Maketext.pm
+    Locale/Script.pm
+    IPC/Open2.pm
+    IPC/Open3.pm
+    I18N/Collate.pm
+    I18N/LangTags.pm
+    I18N/LangTags/List.pm
+    Hash/Util.pm
+    Getopt/Long.pm
+    Getopt/Std.pm
+    Filter/Simple.pm
+    File/Basename.pm
+    File/CheckTree.pm
+    File/Compare.pm
+    File/Copy.pm
+    File/DosGlob.pm
+    File/Find.pm
+    File/Path.pm
+    File/Spec.pm
+    File/stat.pm
+    File/Temp.pm
+    File/Spec/Cygwin.pm
+    File/Spec/Epoc.pm
+    File/Spec/Functions.pm
+    File/Spec/Mac.pm
+    File/Spec/OS2.pm
+    File/Spec/Unix.pm
+    File/Spec/VMS.pm
+    File/Spec/Win32.pm
+    ExtUtils/Command.pm
+    ExtUtils/Constant.pm
+    ExtUtils/Embed.pm
+    ExtUtils/Install.pm
+    ExtUtils/Installed.pm
+    ExtUtils/Liblist.pm
+    ExtUtils/MakeMaker.pm
+    ExtUtils/Manifest.pm
+    ExtUtils/Miniperl.pm
+    ExtUtils/Mkbootstrap.pm
+    ExtUtils/Mksymlists.pm
+    ExtUtils/MM.pm
+    ExtUtils/MM_Any.pm
+    ExtUtils/MM_BeOS.pm
+    ExtUtils/MM_Cygwin.pm
+    ExtUtils/MM_DOS.pm
+    ExtUtils/MM_NW5.pm
+    ExtUtils/MM_OS2.pm
+    ExtUtils/MM_Unix.pm
+    ExtUtils/MM_UWIN.pm
+    ExtUtils/MM_VMS.pm
+    ExtUtils/MM_Win32.pm
+    ExtUtils/MM_Win95.pm
+    ExtUtils/MY.pm
+    ExtUtils/Packlist.pm
+    ExtUtils/testlib.pm
+    ExtUtils/Liblist/Kid.pm
+    ExtUtils/Command/MM.pm
+    Exporter/Heavy.pm
+    Devel/SelfStubber.pm
+    Class/ISA.pm
+    Class/Struct.pm
+    Carp/Heavy.pm
+    Attribute/Handlers.pm
+    Attribute/Handlers/demo/Demo.pm
+    Attribute/Handlers/demo/Descriptions.pm
+    Attribute/Handlers/demo/MyClass.pm
+  );
+}
diff --git a/wince/comp.pl b/wince/comp.pl
new file mode 100644 (file)
index 0000000..8ecc958
--- /dev/null
@@ -0,0 +1,111 @@
+=comments
+
+helper script to make life for PerlCE easier.
+
+You need edit values for @defs array to reflect your changes and then do
+
+  perl comp.pl [any-additional-options]
+
+This will call
+  nmake -f Makefile.ce
+with most parameters overrided as you specified and additional options
+(such as build target) will also be prepended to command line to execute.
+
+There are also additional different modes for running this script:
+  perl comp.pl --run [any-command-line-arguments]
+and
+  perl comp.pl --do [any-command-line-arguments]
+and
+  perl comp.pl --copy-pm pc:[pc-location] ce:[ce-location]
+
+--run executes this build of perl on CE device with arguments provided
+--run=test will display a predefined messagebox that say everything is ok.
+
+--do  Executes on local computer command that is presented by arguments
+      immediately following after --do
+      Most reason why you may want to execute script in this mode is that
+      arguments preprocessed to replace [p] occurences into current perl
+      location. Typically it is handy to run
+  perl comp.pl --do cecopy pc:..\lib\Exporter.pm ce:[p]\lib
+
+--copy copies file to CE device
+  here also [p] will be expanded to corrent PerlCE path, and additionally
+  when --copy=compact specified then, if filename looks like perl module,
+  then POD will be stripped away from that file
+  modules
+
+
+=cut
+
+use Cwd;
+use strict;
+
+# edit value of $inst_root variable to reflect your desired location of
+# built perl
+my $inst_root = "\\Storage Card\\perl-tests\\perl\@16225";
+my @defs = (
+  "\"PV=\"",
+  "\"INST_VER=\"",
+  "\"INSTALL_ROOT=$inst_root\"",
+  "\"WCEROOT=$ENV{SDKROOT}\"",
+  "NTPERL=$^X", #todo: check version: this must be (almost?) current version
+  "\"CEPATH=$ENV{WCEROOT}\"",
+  "CELIBDLLDIR=d:\\personal\\pocketPC\\celib-palm-3.0",
+  "CECONSOLEDIR=d:\\personal\\pocketPC\\w32console",
+  "YES=/y",
+  "CFG=RELEASE",
+  "MACHINE=wince-mips-pocket-wce300",
+  "PERLCEDIR=".cwd,
+  #NIY "\"CECOPY=\$(NTPERL) \$(PERLCEDIR)\\$0 --copy=compact\"",
+  "\"CECOPY=\$(NTPERL) \$(PERLCEDIR)\\$0 --copy\"",
+);
+
+my %opts = (
+  # %known_opts enumerates allowed opts as well as specifies default
+  #   and initial values
+  my %known_opts = (
+     'do' => '',
+     'run' => '',
+     'copy' => '',
+  ),
+  #options itself
+  my %specified_opts = (
+    (map {/^--([\-_\w]+)=(.*)$/} @ARGV),                            # --opt=smth
+    (map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV),  # --opt --no-opt --noopt
+  ),
+);
+die "option '$_' is not recognized" for grep {!exists $known_opts{$_}} keys %specified_opts;
+@ARGV = grep {!/^--/} @ARGV;
+
+if ($opts{'do'}) {
+  s/\[p\]/$inst_root/g for @ARGV;
+  system(@ARGV);
+}
+elsif ($opts{'run'}) {
+  if ($opts{'run'} eq 'test') {
+    system("ceexec","$inst_root\\bin\\perl","-we","Win32::MessageBox(\$].qq(\n).join'','cc'..'dx')");
+  }
+  else {
+    system("ceexec","$inst_root\\bin\\perl", map {/^".*"$/s?$_:"\"$_\""} @ARGV);
+  }
+}
+elsif ($opts{'copy'}) {
+  if ($opts{'copy'} eq 'compact') {
+    die "todo";
+  }
+  s/\[p\]/$inst_root/g for @ARGV;
+  if ($ARGV[0]=~/^pc:/i) {system("cedel",$ARGV[1])}
+  system("cecopy",@ARGV);
+}
+else {
+  my $cmd = "nmake -f Makefile.ce @defs @ARGV";
+  print $cmd;
+  system($cmd);
+}
+
+
+=comments
+
+  Author Vadim Konovalov.
+
+=cut
index f7b7eb4..c95e33a 100644 (file)
@@ -1,4 +1,4 @@
-LIBRARY Perl57
+LIBRARY Perl
 
 EXPORTS
        PL_AMG_names
@@ -405,20 +405,10 @@ EXPORTS
        PL_yynerrs
        PL_yyval
        PerlIO_canset_cnt
-       PerlIO_clearerr
-       PerlIO_close
-       PerlIO_eof
-       PerlIO_error
        PerlIO_exportFILE
        PerlIO_fast_gets
        PerlIO_fdopen
-       PerlIO_fileno
        PerlIO_findFILE
-       PerlIO_flush
-       PerlIO_get_base
-       PerlIO_get_bufsiz
-       PerlIO_get_cnt
-       PerlIO_get_ptr
        PerlIO_getc
        PerlIO_getname
        PerlIO_getpos
@@ -430,26 +420,16 @@ EXPORTS
        PerlIO_printf
        PerlIO_putc
        PerlIO_puts
-       PerlIO_read
        PerlIO_releaseFILE
        PerlIO_reopen
        PerlIO_rewind
-       PerlIO_seek
-       PerlIO_set_cnt
-       PerlIO_set_ptrcnt
-       PerlIO_setlinebuf
        PerlIO_setpos
        PerlIO_sprintf
-       PerlIO_stderr
-       PerlIO_stdin
-       PerlIO_stdout
        PerlIO_stdoutf
-       PerlIO_tell
        PerlIO_tmpfile
        PerlIO_ungetc
        PerlIO_vprintf
        PerlIO_vsprintf
-       PerlIO_write
        Perl_Gv_AMupdate
        Perl_amagic_call
        Perl_av_clear
@@ -771,7 +751,6 @@ EXPORTS
        Perl_set_numeric_local
        Perl_set_numeric_radix
        Perl_set_numeric_standard
-       Perl_sharepvn
        Perl_stack_grow
        Perl_start_subparse
        Perl_str_to_version
index b46fb2f..de2e628 100644 (file)
@@ -227,6 +227,16 @@ typedef long               gid_t;
 
 /* compatibility stuff for other compilers goes here */
 
+#ifndef _INTPTR_T_DEFINED
+typedef int            intptr_t;
+#  define _INTPTR_T_DEFINED
+#endif
+
+#ifndef _UINTPTR_T_DEFINED
+typedef unsigned int   uintptr_t;
+#  define _UINTPTR_T_DEFINED
+#endif
+
 START_EXTERN_C
 
 #undef  Stat
index b6b9f14..7aabdd7 100644 (file)
@@ -352,6 +352,20 @@ win32_times(struct tms *timebuf)
   return -1;
 }
 
+/* TODO */
+bool
+win32_signal()
+{
+  Perl_croak_nocontext("signal() TBD on this platform");
+  return FALSE;
+}
+DllExport void
+win32_clearenv()
+{
+  return;
+}
+
+
 DllExport char ***
 win32_environ(void)
 {
@@ -554,11 +568,7 @@ win32_uname(struct utsname *name)
        char *arch;
        GetSystemInfo(&info);
 
-#if defined(__BORLANDC__) || defined(__MINGW32__)
-       switch (info.u.s.wProcessorArchitecture) {
-#else
        switch (info.wProcessorArchitecture) {
-#endif
        case PROCESSOR_ARCHITECTURE_INTEL:
            arch = "x86"; break;
        case PROCESSOR_ARCHITECTURE_MIPS:
@@ -1616,3 +1626,13 @@ isnan(double d)
   return _isnan(d);
 }
 
+int
+win32_open_osfhandle(intptr_t osfhandle, int flags)
+{
+    int fh;
+    char fileflags=0;          /* _osfile flags */
+
+    XCEMessageBoxA(NULL, "NEED TO IMPLEMENT a place in ../wince/wince.c(win32_open_osfhandle)", "Perl(developer)", 0);
+    Perl_croak_nocontext("win32_open_osfhandle() TBD on this platform");
+    return 0;
+}