diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
commit | 316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch) | |
tree | cb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/auto | |
parent | cd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff) |
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto')
803 files changed, 0 insertions, 17205 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Algorithm/Diff/.packlist b/Master/tlpkg/tlperl/lib/auto/Algorithm/Diff/.packlist deleted file mode 100755 index ab95cb95058..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Algorithm/Diff/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\vendor\lib\Algorithm\Diff.pm
-C:\strawberry\perl\vendor\lib\Algorithm\DiffOld.pm
-C:\strawberry\perl\vendor\lib\Algorithm\cdiff.pl
-C:\strawberry\perl\vendor\lib\Algorithm\diff.pl
-C:\strawberry\perl\vendor\lib\Algorithm\diffnew.pl
-C:\strawberry\perl\vendor\lib\Algorithm\htmldiff.pl
diff --git a/Master/tlpkg/tlperl/lib/auto/Archive/Extract/.packlist b/Master/tlpkg/tlperl/lib/auto/Archive/Extract/.packlist deleted file mode 100755 index afd2a6f663f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Archive/Extract/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Archive\Extract.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Archive/Tar/.packlist b/Master/tlpkg/tlperl/lib/auto/Archive/Tar/.packlist deleted file mode 100755 index eb062581884..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Archive/Tar/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\bin\ptar
-C:\strawberry\perl\bin\ptar.bat
-C:\strawberry\perl\bin\ptardiff
-C:\strawberry\perl\bin\ptardiff.bat
-C:\strawberry\perl\lib\Archive\Tar.pm
-C:\strawberry\perl\lib\Archive\Tar\Constant.pm
-C:\strawberry\perl\lib\Archive\Tar\File.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Archive/Zip/.packlist b/Master/tlpkg/tlperl/lib/auto/Archive/Zip/.packlist deleted file mode 100755 index 101ffc23eb4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Archive/Zip/.packlist +++ /dev/null @@ -1,15 +0,0 @@ -C:\strawberry\perl\bin\crc32
-C:\strawberry\perl\bin\crc32.bat
-C:\strawberry\perl\vendor\lib\Archive\Zip.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\Archive.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\BufferedFileHandle.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\DirectoryMember.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\FAQ.pod
-C:\strawberry\perl\vendor\lib\Archive\Zip\FileMember.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\Member.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\MemberRead.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\MockFileHandle.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\NewFileMember.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\StringMember.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\Tree.pm
-C:\strawberry\perl\vendor\lib\Archive\Zip\ZipFileMember.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Attribute/Handlers/.packlist b/Master/tlpkg/tlperl/lib/auto/Attribute/Handlers/.packlist deleted file mode 100755 index f7c66532956..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Attribute/Handlers/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Attribute\Handlers.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/AutoLoader/.packlist b/Master/tlpkg/tlperl/lib/auto/AutoLoader/.packlist deleted file mode 100755 index 4ad64c3dac5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/AutoLoader/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\lib\AutoLoader.pm
-C:\strawberry\perl\lib\AutoSplit.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/B/B.dll b/Master/tlpkg/tlperl/lib/auto/B/B.dll Binary files differdeleted file mode 100755 index b1e3e67e501..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/B/B.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/.packlist b/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/.packlist deleted file mode 100755 index 2691f89a5cf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\vendor\lib\BerkeleyDB.pm
-C:\strawberry\perl\vendor\lib\BerkeleyDB.pod
-C:\strawberry\perl\vendor\lib\BerkeleyDB\Btree.pm
-C:\strawberry\perl\vendor\lib\BerkeleyDB\Hash.pm
-C:\strawberry\perl\vendor\lib\auto\BerkeleyDB\BerkeleyDB.bs
-C:\strawberry\perl\vendor\lib\auto\BerkeleyDB\BerkeleyDB.dll
-C:\strawberry\perl\vendor\lib\auto\BerkeleyDB\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/BerkeleyDB.bs b/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/BerkeleyDB.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/BerkeleyDB.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/BerkeleyDB.dll b/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/BerkeleyDB.dll Binary files differdeleted file mode 100755 index 4c7ada7f687..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/BerkeleyDB.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/autosplit.ix deleted file mode 100755 index 651e60bc181..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/BerkeleyDB/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\BerkeleyDB.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/CGI/.packlist b/Master/tlpkg/tlperl/lib/auto/CGI/.packlist deleted file mode 100755 index d952f7acdfe..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CGI/.packlist +++ /dev/null @@ -1,9 +0,0 @@ -C:\strawberry\perl\lib\CGI.pm
-C:\strawberry\perl\lib\CGI\Apache.pm
-C:\strawberry\perl\lib\CGI\Carp.pm
-C:\strawberry\perl\lib\CGI\Cookie.pm
-C:\strawberry\perl\lib\CGI\Fast.pm
-C:\strawberry\perl\lib\CGI\Pretty.pm
-C:\strawberry\perl\lib\CGI\Push.pm
-C:\strawberry\perl\lib\CGI\Switch.pm
-C:\strawberry\perl\lib\CGI\Util.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPAN/.packlist b/Master/tlpkg/tlperl/lib/auto/CPAN/.packlist deleted file mode 100755 index f04aa552a84..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPAN/.packlist +++ /dev/null @@ -1,37 +0,0 @@ -C:\strawberry\perl\bin\cpan
-C:\strawberry\perl\bin\cpan.bat
-C:\strawberry\perl\lib\App\Cpan.pm
-C:\strawberry\perl\lib\CPAN.pm
-C:\strawberry\perl\lib\CPAN\API\HOWTO.pod
-C:\strawberry\perl\lib\CPAN\Admin.pm
-C:\strawberry\perl\lib\CPAN\Author.pm
-C:\strawberry\perl\lib\CPAN\Bundle.pm
-C:\strawberry\perl\lib\CPAN\CacheMgr.pm
-C:\strawberry\perl\lib\CPAN\Complete.pm
-C:\strawberry\perl\lib\CPAN\Debug.pm
-C:\strawberry\perl\lib\CPAN\DeferredCode.pm
-C:\strawberry\perl\lib\CPAN\Distribution.pm
-C:\strawberry\perl\lib\CPAN\Distroprefs.pm
-C:\strawberry\perl\lib\CPAN\Distrostatus.pm
-C:\strawberry\perl\lib\CPAN\Exception\RecursiveDependency.pm
-C:\strawberry\perl\lib\CPAN\Exception\blocked_urllist.pm
-C:\strawberry\perl\lib\CPAN\Exception\yaml_not_installed.pm
-C:\strawberry\perl\lib\CPAN\FTP.pm
-C:\strawberry\perl\lib\CPAN\FTP\netrc.pm
-C:\strawberry\perl\lib\CPAN\FirstTime.pm
-C:\strawberry\perl\lib\CPAN\HandleConfig.pm
-C:\strawberry\perl\lib\CPAN\Index.pm
-C:\strawberry\perl\lib\CPAN\InfoObj.pm
-C:\strawberry\perl\lib\CPAN\Kwalify.pm
-C:\strawberry\perl\lib\CPAN\Kwalify\distroprefs.dd
-C:\strawberry\perl\lib\CPAN\Kwalify\distroprefs.yml
-C:\strawberry\perl\lib\CPAN\LWP\UserAgent.pm
-C:\strawberry\perl\lib\CPAN\Mirrors.pm
-C:\strawberry\perl\lib\CPAN\Module.pm
-C:\strawberry\perl\lib\CPAN\Nox.pm
-C:\strawberry\perl\lib\CPAN\Prompt.pm
-C:\strawberry\perl\lib\CPAN\Queue.pm
-C:\strawberry\perl\lib\CPAN\Shell.pm
-C:\strawberry\perl\lib\CPAN\Tarzip.pm
-C:\strawberry\perl\lib\CPAN\URL.pm
-C:\strawberry\perl\lib\CPAN\Version.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPAN/Checksums/.packlist b/Master/tlpkg/tlperl/lib/auto/CPAN/Checksums/.packlist deleted file mode 100755 index bdc402976a5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPAN/Checksums/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\CPAN\Checksums.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPAN/DistnameInfo/.packlist b/Master/tlpkg/tlperl/lib/auto/CPAN/DistnameInfo/.packlist deleted file mode 100755 index 4f7c0615226..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPAN/DistnameInfo/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\CPAN\DistnameInfo.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPAN/Inject/.packlist b/Master/tlpkg/tlperl/lib/auto/CPAN/Inject/.packlist deleted file mode 100755 index 1e45407105b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPAN/Inject/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\cpaninject
-C:\strawberry\perl\bin\cpaninject.bat
-C:\strawberry\perl\vendor\lib\CPAN\Inject.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPAN/SQLite/.packlist b/Master/tlpkg/tlperl/lib/auto/CPAN/SQLite/.packlist deleted file mode 100755 index 69911e61400..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPAN/SQLite/.packlist +++ /dev/null @@ -1,13 +0,0 @@ -C:\strawberry\perl\bin\cpandb
-C:\strawberry\perl\bin\cpandb.bat
-C:\strawberry\perl\vendor\lib\CPAN\SQLite.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\DBI.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\DBI\Index.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\DBI\Search.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\Index.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\Info.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\META.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\Populate.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\Search.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\State.pm
-C:\strawberry\perl\vendor\lib\CPAN\SQLite\Util.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPANPLUS/.packlist b/Master/tlpkg/tlperl/lib/auto/CPANPLUS/.packlist deleted file mode 100755 index 8db17f2197b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPANPLUS/.packlist +++ /dev/null @@ -1,47 +0,0 @@ -C:\strawberry\perl\bin\cpan2dist
-C:\strawberry\perl\bin\cpan2dist.bat
-C:\strawberry\perl\bin\cpanp
-C:\strawberry\perl\bin\cpanp-run-perl
-C:\strawberry\perl\bin\cpanp-run-perl.bat
-C:\strawberry\perl\bin\cpanp.bat
-C:\strawberry\perl\lib\CPANPLUS.pm
-C:\strawberry\perl\lib\CPANPLUS\Backend.pm
-C:\strawberry\perl\lib\CPANPLUS\Backend\RV.pm
-C:\strawberry\perl\lib\CPANPLUS\Config.pm
-C:\strawberry\perl\lib\CPANPLUS\Configure.pm
-C:\strawberry\perl\lib\CPANPLUS\Configure\Setup.pm
-C:\strawberry\perl\lib\CPANPLUS\Dist.pm
-C:\strawberry\perl\lib\CPANPLUS\Dist\Autobundle.pm
-C:\strawberry\perl\lib\CPANPLUS\Dist\Base.pm
-C:\strawberry\perl\lib\CPANPLUS\Dist\MM.pm
-C:\strawberry\perl\lib\CPANPLUS\Dist\Sample.pm
-C:\strawberry\perl\lib\CPANPLUS\Error.pm
-C:\strawberry\perl\lib\CPANPLUS\FAQ.pod
-C:\strawberry\perl\lib\CPANPLUS\Hacking.pod
-C:\strawberry\perl\lib\CPANPLUS\Internals.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Constants.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Constants\Report.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Extract.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Fetch.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Report.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Search.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Source.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Source\Memory.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Source\SQLite.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Source\SQLite\Tie.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Utils.pm
-C:\strawberry\perl\lib\CPANPLUS\Internals\Utils\Autoflush.pm
-C:\strawberry\perl\lib\CPANPLUS\Module.pm
-C:\strawberry\perl\lib\CPANPLUS\Module\Author.pm
-C:\strawberry\perl\lib\CPANPLUS\Module\Author\Fake.pm
-C:\strawberry\perl\lib\CPANPLUS\Module\Checksums.pm
-C:\strawberry\perl\lib\CPANPLUS\Module\Fake.pm
-C:\strawberry\perl\lib\CPANPLUS\Module\Signature.pm
-C:\strawberry\perl\lib\CPANPLUS\Selfupdate.pm
-C:\strawberry\perl\lib\CPANPLUS\Shell.pm
-C:\strawberry\perl\lib\CPANPLUS\Shell\Classic.pm
-C:\strawberry\perl\lib\CPANPLUS\Shell\Default.pm
-C:\strawberry\perl\lib\CPANPLUS\Shell\Default\Plugins\CustomSource.pm
-C:\strawberry\perl\lib\CPANPLUS\Shell\Default\Plugins\HOWTO.pod
-C:\strawberry\perl\lib\CPANPLUS\Shell\Default\Plugins\Remote.pm
-C:\strawberry\perl\lib\CPANPLUS\Shell\Default\Plugins\Source.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/CPANPLUS/Dist/Build/.packlist b/Master/tlpkg/tlperl/lib/auto/CPANPLUS/Dist/Build/.packlist deleted file mode 100755 index 30780e235a8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/CPANPLUS/Dist/Build/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\lib\CPANPLUS\Dist\Build.pm
-C:\strawberry\perl\lib\CPANPLUS\Dist\Build\Constants.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Class/ErrorHandler/.packlist b/Master/tlpkg/tlperl/lib/auto/Class/ErrorHandler/.packlist deleted file mode 100755 index ea13985a6d3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Class/ErrorHandler/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Class\ErrorHandler.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Class/ISA/.packlist b/Master/tlpkg/tlperl/lib/auto/Class/ISA/.packlist deleted file mode 100755 index 0f7d2f81d07..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Class/ISA/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Class\ISA.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Class/Loader/.packlist b/Master/tlpkg/tlperl/lib/auto/Class/Loader/.packlist deleted file mode 100755 index e036c49ade7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Class/Loader/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Class\Loader.pm
-C:\strawberry\perl\vendor\lib\Class\LoaderTest.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/.packlist b/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/.packlist deleted file mode 100755 index 1f93b32249d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\Compress\Bzip2.pm
-C:\strawberry\perl\vendor\lib\auto\Compress\Bzip2\Bzip2.bs
-C:\strawberry\perl\vendor\lib\auto\Compress\Bzip2\Bzip2.dll
-C:\strawberry\perl\vendor\lib\auto\Compress\Bzip2\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/Bzip2.bs b/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/Bzip2.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/Bzip2.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/Bzip2.dll b/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/Bzip2.dll Binary files differdeleted file mode 100755 index 89eee8a506f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/Bzip2.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/autosplit.ix deleted file mode 100755 index 0faf0b863de..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Bzip2/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Compress\Bzip2.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/.packlist b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/.packlist deleted file mode 100755 index 01459ed27d3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\lib\Compress\Raw\Bzip2.pm
-C:\strawberry\perl\lib\auto\Compress\Raw\Bzip2\Bzip2.bs
-C:\strawberry\perl\lib\auto\Compress\Raw\Bzip2\Bzip2.dll
-C:\strawberry\perl\lib\auto\Compress\Raw\Bzip2\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.bs b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.dll b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.dll Binary files differdeleted file mode 100755 index 2e184a7450a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/Bzip2.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/autosplit.ix deleted file mode 100755 index dcc49033693..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Bzip2/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Compress\Raw\Bzip2.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/.packlist b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/.packlist deleted file mode 100755 index 531f3bf6ea2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\lib\Compress\Raw\Zlib.pm
-C:\strawberry\perl\lib\auto\Compress\Raw\Zlib\Zlib.bs
-C:\strawberry\perl\lib\auto\Compress\Raw\Zlib\Zlib.dll
-C:\strawberry\perl\lib\auto\Compress\Raw\Zlib\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.bs b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.dll b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.dll Binary files differdeleted file mode 100755 index a430eb0f79e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/Zlib.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/autosplit.ix deleted file mode 100755 index bcf12323af3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Raw/Zlib/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Compress\Raw\Zlib.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/Zlib/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Compress/Zlib/autosplit.ix deleted file mode 100755 index f4098e4a8c7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/Zlib/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Compress\Zlib.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/.packlist b/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/.packlist deleted file mode 100755 index dfc9d7169d8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Compress\unLZMA.pm
-C:\strawberry\perl\vendor\lib\auto\Compress\unLZMA\unLZMA.bs
-C:\strawberry\perl\vendor\lib\auto\Compress\unLZMA\unLZMA.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/unLZMA.bs b/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/unLZMA.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/unLZMA.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/unLZMA.dll b/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/unLZMA.dll Binary files differdeleted file mode 100755 index 3ba33d63875..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Compress/unLZMA/unLZMA.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Convert/ASCII/Armour/.packlist b/Master/tlpkg/tlperl/lib/auto/Convert/ASCII/Armour/.packlist deleted file mode 100755 index d671eb43b8a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Convert/ASCII/Armour/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Convert\ASCII\Armor.pm
-C:\strawberry\perl\vendor\lib\Convert\ASCII\Armour.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Convert/ASN1/.packlist b/Master/tlpkg/tlperl/lib/auto/Convert/ASN1/.packlist deleted file mode 100755 index b412c340aee..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Convert/ASN1/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\vendor\lib\Convert\ASN1.pm
-C:\strawberry\perl\vendor\lib\Convert\ASN1.pod
-C:\strawberry\perl\vendor\lib\Convert\ASN1\Debug.pm
-C:\strawberry\perl\vendor\lib\Convert\ASN1\IO.pm
-C:\strawberry\perl\vendor\lib\Convert\ASN1\_decode.pm
-C:\strawberry\perl\vendor\lib\Convert\ASN1\_encode.pm
-C:\strawberry\perl\vendor\lib\Convert\ASN1\parser.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Convert/PEM/.packlist b/Master/tlpkg/tlperl/lib/auto/Convert/PEM/.packlist deleted file mode 100755 index 2b0b8d4792d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Convert/PEM/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Convert\PEM.pm
-C:\strawberry\perl\vendor\lib\Convert\PEM\CBC.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/.packlist deleted file mode 100755 index 72450144d0c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\Blowfish.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\Blowfish\Blowfish.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\Blowfish\Blowfish.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/Blowfish.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/Blowfish.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/Blowfish.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/Blowfish.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/Blowfish.dll Binary files differdeleted file mode 100755 index 3bdbeaf040b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Blowfish/Blowfish.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/.packlist deleted file mode 100755 index aac4209938b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\CAST5_PP.pm
-C:\strawberry\perl\vendor\lib\Crypt\CAST5_PP\Tables.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\autosplit.ix
-C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\decrypt.al
-C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\encrypt.al
-C:\strawberry\perl\vendor\lib\auto\Crypt\CAST5_PP\init.al
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/autosplit.ix deleted file mode 100755 index da2bd7977c2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/autosplit.ix +++ /dev/null @@ -1,7 +0,0 @@ -# Index created by AutoSplit for blib\lib\Crypt\CAST5_PP.pm -# (file acts as timestamp) -package Crypt::CAST5_PP; -sub init ; -sub encrypt ; -sub decrypt ; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/decrypt.al b/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/decrypt.al deleted file mode 100755 index 7afcede8922..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/decrypt.al +++ /dev/null @@ -1,47 +0,0 @@ -# NOTE: Derived from blib\lib\Crypt\CAST5_PP.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Crypt::CAST5_PP; - -#line 223 "blib\lib\Crypt\CAST5_PP.pm (autosplit into blib\lib\auto\Crypt\CAST5_PP\decrypt.al)" -sub decrypt { - use strict; - use integer; - my ($cast5, $block) = @_; - croak "Block size must be 8" if length($block) != 8; - - my $decrypt = $cast5->{decrypt}; - unless ($decrypt) { - my $key = $cast5->{key} or croak "Call init() first"; - my $rounds = $cast5->{rounds}; - my $f = 'sub{my($r,$l,$i)=unpack"N2",$_[0];'; - - my ($l, $r) = qw( $r $l ); - my ($op1, $op2, $op3) = qw( - + ^ ); - foreach (1 .. $rounds%3) { ($op1, $op2, $op3) = ($op2, $op3, $op1) } - foreach my $round (1 .. $rounds) { - my $km = $key->[$rounds-$round]; - my $kr = $key->[$rounds-$round+16]; - - my $rot = ""; - if ($kr) { - my $mask = ~(~0<<$kr) & 0xffffffff; - my $kr2 = 32-$kr; - $rot = "\$i=\$i<<$kr|\$i>>$kr2&$mask;" - } - - $f .= "\$i=$km$op1$r;$rot$l^=((\$s1[\$i>>24&255]$op2\$s2[\$i>>16&255])$op3\$s3[\$i>>8&255])$op1\$s4[\$i&255];"; - ($l, $r) = ($r, $l); - ($op1, $op2, $op3) = ($op3, $op1, $op2); - } - - $f .= 'pack"N2",$l&0xffffffff,$r&0xffffffff}'; - $cast5->{decrypt} = $decrypt = eval $f; - } - - return $decrypt->($block); -} # decrypt - -# end CAST5_PP.pm -1; -# end of Crypt::CAST5_PP::decrypt diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/encrypt.al b/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/encrypt.al deleted file mode 100755 index 1041e4955d0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/encrypt.al +++ /dev/null @@ -1,44 +0,0 @@ -# NOTE: Derived from blib\lib\Crypt\CAST5_PP.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Crypt::CAST5_PP; - -#line 187 "blib\lib\Crypt\CAST5_PP.pm (autosplit into blib\lib\auto\Crypt\CAST5_PP\encrypt.al)" -sub encrypt { - use strict; - use integer; - my ($cast5, $block) = @_; - croak "Block size must be 8" if length($block) != 8; - - my $encrypt = $cast5->{encrypt}; - unless ($encrypt) { - my $key = $cast5->{key} or croak "Call init() first"; - my $f = 'sub{my($l,$r,$i)=unpack"N2",$_[0];'; - - my ($l, $r) = qw( $l $r ); - my ($op1, $op2, $op3) = qw( + ^ - ); - foreach my $round (0 .. $cast5->{rounds}-1) { - my $km = $key->[$round]; - my $kr = $key->[$round+16]; - - my $rot = ""; - if ($kr) { - my $mask = ~(~0<<$kr) & 0xffffffff; - my $kr2 = 32-$kr; - $rot = "\$i=\$i<<$kr|\$i>>$kr2&$mask;" - } - - $f .= "\$i=$km$op1$r;$rot$l^=((\$s1[\$i>>24&255]$op2\$s2[\$i>>16&255])$op3\$s3[\$i>>8&255])$op1\$s4[\$i&255];"; - ($l, $r) = ($r, $l); - ($op1, $op2, $op3) = ($op2, $op3, $op1); - } - - $f .= 'pack"N2",$r&0xffffffff,$l&0xffffffff}'; - $cast5->{encrypt} = $encrypt = eval $f; - } - - return $encrypt->($block); -} # encrypt - -# end of Crypt::CAST5_PP::encrypt -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/init.al b/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/init.al deleted file mode 100755 index ae273c61b33..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/CAST5_PP/init.al +++ /dev/null @@ -1,69 +0,0 @@ -# NOTE: Derived from blib\lib\Crypt\CAST5_PP.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Crypt::CAST5_PP; - -#line 126 "blib\lib\Crypt\CAST5_PP.pm (autosplit into blib\lib\auto\Crypt\CAST5_PP\init.al)" -sub init { - use strict; - use integer; - my ($cast5, $key) = @_; - croak "Key length must be 40 to 128 bits" - if length($key) < 5 || length($key) > 16; - require Crypt::CAST5_PP::Tables; - - # untaint the key. this keeps the evals from blowing up later. - # arguably, a tainted key should result in tainted output. oh well. - $key =~ /^(.*)$/s and $key = $1; - - # null-pad the key to 16 bytes, and then split it into 32-bit chunks - my ($s, $t, $u, $v) = unpack "N4", pack "a16", $key; - - # compute the key schedule - # don't try to read this -- it's generated by mkschedule - my ($w, $x, $y, $z, @k); - for (1..2) { - $w=$s^$s5[$v>>16&255]^$s6[$v&255]^$s7[$v>>24&255]^$s8[$v>>8&255]^$s7[$u>>24&255]; - $x=$u^$s5[$w>>24&255]^$s6[$w>>8&255]^$s7[$w>>16&255]^$s8[$w&255]^$s8[$u>>8&255]; - $y=$v^$s5[$x&255]^$s6[$x>>8&255]^$s7[$x>>16&255]^$s8[$x>>24&255]^$s5[$u>>16&255]; - $z=$t^$s5[$y>>8&255]^$s6[$y>>16&255]^$s7[$y&255]^$s8[$y>>24&255]^$s6[$u&255]; - push@k,$s5[$y>>24&255]^$s6[$y>>16&255]^$s7[$x&255]^$s8[$x>>8&255]^$s5[$w>>8&255]; - push@k,$s5[$y>>8&255]^$s6[$y&255]^$s7[$x>>16&255]^$s8[$x>>24&255]^$s6[$x>>8&255]; - push@k,$s5[$z>>24&255]^$s6[$z>>16&255]^$s7[$w&255]^$s8[$w>>8&255]^$s7[$y>>16&255]; - push@k,$s5[$z>>8&255]^$s6[$z&255]^$s7[$w>>16&255]^$s8[$w>>24&255]^$s8[$z>>24&255]; - $s=$y^$s5[$x>>16&255]^$s6[$x&255]^$s7[$x>>24&255]^$s8[$x>>8&255]^$s7[$w>>24&255]; - $t=$w^$s5[$s>>24&255]^$s6[$s>>8&255]^$s7[$s>>16&255]^$s8[$s&255]^$s8[$w>>8&255]; - $u=$x^$s5[$t&255]^$s6[$t>>8&255]^$s7[$t>>16&255]^$s8[$t>>24&255]^$s5[$w>>16&255]; - $v=$z^$s5[$u>>8&255]^$s6[$u>>16&255]^$s7[$u&255]^$s8[$u>>24&255]^$s6[$w&255]; - push@k,$s5[$s&255]^$s6[$s>>8&255]^$s7[$v>>24&255]^$s8[$v>>16&255]^$s5[$u>>24&255]; - push@k,$s5[$s>>16&255]^$s6[$s>>24&255]^$s7[$v>>8&255]^$s8[$v&255]^$s6[$v>>16&255]; - push@k,$s5[$t&255]^$s6[$t>>8&255]^$s7[$u>>24&255]^$s8[$u>>16&255]^$s7[$s&255]; - push@k,$s5[$t>>16&255]^$s6[$t>>24&255]^$s7[$u>>8&255]^$s8[$u&255]^$s8[$t&255]; - $w=$s^$s5[$v>>16&255]^$s6[$v&255]^$s7[$v>>24&255]^$s8[$v>>8&255]^$s7[$u>>24&255]; - $x=$u^$s5[$w>>24&255]^$s6[$w>>8&255]^$s7[$w>>16&255]^$s8[$w&255]^$s8[$u>>8&255]; - $y=$v^$s5[$x&255]^$s6[$x>>8&255]^$s7[$x>>16&255]^$s8[$x>>24&255]^$s5[$u>>16&255]; - $z=$t^$s5[$y>>8&255]^$s6[$y>>16&255]^$s7[$y&255]^$s8[$y>>24&255]^$s6[$u&255]; - push@k,$s5[$w&255]^$s6[$w>>8&255]^$s7[$z>>24&255]^$s8[$z>>16&255]^$s5[$y>>16&255]; - push@k,$s5[$w>>16&255]^$s6[$w>>24&255]^$s7[$z>>8&255]^$s8[$z&255]^$s6[$z>>24&255]; - push@k,$s5[$x&255]^$s6[$x>>8&255]^$s7[$y>>24&255]^$s8[$y>>16&255]^$s7[$w>>8&255]; - push@k,$s5[$x>>16&255]^$s6[$x>>24&255]^$s7[$y>>8&255]^$s8[$y&255]^$s8[$x>>8&255]; - $s=$y^$s5[$x>>16&255]^$s6[$x&255]^$s7[$x>>24&255]^$s8[$x>>8&255]^$s7[$w>>24&255]; - $t=$w^$s5[$s>>24&255]^$s6[$s>>8&255]^$s7[$s>>16&255]^$s8[$s&255]^$s8[$w>>8&255]; - $u=$x^$s5[$t&255]^$s6[$t>>8&255]^$s7[$t>>16&255]^$s8[$t>>24&255]^$s5[$w>>16&255]; - $v=$z^$s5[$u>>8&255]^$s6[$u>>16&255]^$s7[$u&255]^$s8[$u>>24&255]^$s6[$w&255]; - push@k,$s5[$u>>24&255]^$s6[$u>>16&255]^$s7[$t&255]^$s8[$t>>8&255]^$s5[$s&255]; - push@k,$s5[$u>>8&255]^$s6[$u&255]^$s7[$t>>16&255]^$s8[$t>>24&255]^$s6[$t&255]; - push@k,$s5[$v>>24&255]^$s6[$v>>16&255]^$s7[$s&255]^$s8[$s>>8&255]^$s7[$u>>24&255]; - push@k,$s5[$v>>8&255]^$s6[$v&255]^$s7[$s>>16&255]^$s8[$s>>24&255]^$s8[$v>>16&255]; - } - - for (16..31) { $k[$_] &= 31 } - delete $cast5->{encrypt}; - delete $cast5->{decrypt}; - $cast5->{rounds} = length($key) <= 10 ? 12 : 16; - $cast5->{key} = \@k; - return $cast5; -} # init - -# end of Crypt::CAST5_PP::init -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/CBC/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/CBC/.packlist deleted file mode 100755 index 9e4bb73b0e7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/CBC/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\CBC.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/DES/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/DES/.packlist deleted file mode 100755 index 4db5877d52c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/DES/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\DES.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\DES\DES.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\DES\DES.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/DES/DES.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/DES/DES.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/DES/DES.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/DES/DES.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/DES/DES.dll Binary files differdeleted file mode 100755 index f043487558a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/DES/DES.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/DES_EDE3/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/DES_EDE3/.packlist deleted file mode 100755 index 1de2b0c6ad1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/DES_EDE3/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\DES_EDE3.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/DH/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/DH/.packlist deleted file mode 100755 index bc0a0aa4640..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/DH/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\DH.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/DSA/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/DSA/.packlist deleted file mode 100755 index 2970863abf7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/DSA/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\DSA.pm
-C:\strawberry\perl\vendor\lib\Crypt\DSA\Key.pm
-C:\strawberry\perl\vendor\lib\Crypt\DSA\KeyChain.pm
-C:\strawberry\perl\vendor\lib\Crypt\DSA\Key\PEM.pm
-C:\strawberry\perl\vendor\lib\Crypt\DSA\Key\SSH2.pm
-C:\strawberry\perl\vendor\lib\Crypt\DSA\Signature.pm
-C:\strawberry\perl\vendor\lib\Crypt\DSA\Util.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/.packlist deleted file mode 100755 index f0f778620c8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/.packlist +++ /dev/null @@ -1,5 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\._test.pl
-C:\strawberry\perl\vendor\lib\Crypt\IDEA.pm
-C:\strawberry\perl\vendor\lib\Crypt\IDEA.pod
-C:\strawberry\perl\vendor\lib\auto\Crypt\IDEA\IDEA.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\IDEA\IDEA.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/IDEA.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/IDEA.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/IDEA.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/IDEA.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/IDEA.dll Binary files differdeleted file mode 100755 index c3182c0f1ac..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/IDEA/IDEA.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/OpenPGP/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/OpenPGP/.packlist deleted file mode 100755 index 511e24203c5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/OpenPGP/.packlist +++ /dev/null @@ -1,39 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\OpenPGP.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Armour.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Buffer.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\CFB.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Certificate.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Cipher.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Ciphertext.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Compressed.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Config.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Constants.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Digest.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\ErrorHandler.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\KeyBlock.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\KeyRing.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\KeyServer.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public\DSA.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public\ElGamal.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Public\RSA.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret\DSA.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret\ElGamal.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Key\Secret\RSA.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\MDC.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Marker.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Message.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\OnePassSig.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\PacketFactory.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Plaintext.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\S2k.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\SKSessionKey.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\SessionKey.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Signature.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Signature\SubPacket.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Trust.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\UserID.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Util.pm
-C:\strawberry\perl\vendor\lib\Crypt\OpenPGP\Words.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Primes/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/Primes/.packlist deleted file mode 100755 index 4f3fa5cc0fa..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Primes/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\largeprimes
-C:\strawberry\perl\bin\largeprimes.bat
-C:\strawberry\perl\vendor\lib\Crypt\Primes.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/.packlist deleted file mode 100755 index cff4348dcf0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/.packlist +++ /dev/null @@ -1,5 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\RIPEMD160.pm
-C:\strawberry\perl\vendor\lib\Crypt\RIPEMD160\MAC.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\RIPEMD160\RIPEMD160.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\RIPEMD160\RIPEMD160.dll
-C:\strawberry\perl\vendor\lib\auto\Crypt\RIPEMD160\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/RIPEMD160.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/RIPEMD160.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/RIPEMD160.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/RIPEMD160.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/RIPEMD160.dll Binary files differdeleted file mode 100755 index e1abdc5453c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/RIPEMD160.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/autosplit.ix deleted file mode 100755 index a083199e4d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/RIPEMD160/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Crypt\RIPEMD160.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/RSA/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/RSA/.packlist deleted file mode 100755 index 55887e7f42a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/RSA/.packlist +++ /dev/null @@ -1,14 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\RSA.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\DataFormat.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Debug.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\ES\OAEP.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\ES\PKCS1v15.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Errorhandler.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Key.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Key\Private.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Key\Private\SSH.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Key\Public.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Key\Public\SSH.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\Primitives.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\SS\PKCS1v15.pm
-C:\strawberry\perl\vendor\lib\Crypt\RSA\SS\PSS.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Random/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/Random/.packlist deleted file mode 100755 index 23e48886660..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Random/.packlist +++ /dev/null @@ -1,9 +0,0 @@ -C:\strawberry\perl\bin\makerandom
-C:\strawberry\perl\bin\makerandom.bat
-C:\strawberry\perl\vendor\lib\Crypt\Random.pm
-C:\strawberry\perl\vendor\lib\Crypt\Random\Generator.pm
-C:\strawberry\perl\vendor\lib\Crypt\Random\Provider\File.pm
-C:\strawberry\perl\vendor\lib\Crypt\Random\Provider\devrandom.pm
-C:\strawberry\perl\vendor\lib\Crypt\Random\Provider\devurandom.pm
-C:\strawberry\perl\vendor\lib\Crypt\Random\Provider\egd.pm
-C:\strawberry\perl\vendor\lib\Crypt\Random\Provider\rand.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/.packlist deleted file mode 100755 index bde3d0220ff..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\Rijndael.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\Rijndael\Rijndael.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\Rijndael\Rijndael.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/Rijndael.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/Rijndael.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/Rijndael.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/Rijndael.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/Rijndael.dll Binary files differdeleted file mode 100755 index 2c6d205c728..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Rijndael/Rijndael.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/.packlist deleted file mode 100755 index da8330ad9cf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/.packlist +++ /dev/null @@ -1,9 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\SSLeay.pm
-C:\strawberry\perl\vendor\lib\Crypt\SSLeay\CTX.pm
-C:\strawberry\perl\vendor\lib\Crypt\SSLeay\Conn.pm
-C:\strawberry\perl\vendor\lib\Crypt\SSLeay\Err.pm
-C:\strawberry\perl\vendor\lib\Crypt\SSLeay\MainContext.pm
-C:\strawberry\perl\vendor\lib\Crypt\SSLeay\X509.pm
-C:\strawberry\perl\vendor\lib\Net\SSL.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\SSLeay\SSLeay.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\SSLeay\SSLeay.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/SSLeay.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/SSLeay.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/SSLeay.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/SSLeay.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/SSLeay.dll Binary files differdeleted file mode 100755 index 2079b5cd1b7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/SSLeay/SSLeay.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/.packlist b/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/.packlist deleted file mode 100755 index 67dbca98338..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Crypt\Twofish.pm
-C:\strawberry\perl\vendor\lib\auto\Crypt\Twofish\Twofish.bs
-C:\strawberry\perl\vendor\lib\auto\Crypt\Twofish\Twofish.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/Twofish.bs b/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/Twofish.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/Twofish.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/Twofish.dll b/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/Twofish.dll Binary files differdeleted file mode 100755 index 323e51db070..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Crypt/Twofish/Twofish.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Cwd/.packlist b/Master/tlpkg/tlperl/lib/auto/Cwd/.packlist deleted file mode 100755 index 0d5c260a6d6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Cwd/.packlist +++ /dev/null @@ -1,12 +0,0 @@ -C:\strawberry\perl\lib\Cwd.pm
-C:\strawberry\perl\lib\File\Spec.pm
-C:\strawberry\perl\lib\File\Spec\Cygwin.pm
-C:\strawberry\perl\lib\File\Spec\Epoc.pm
-C:\strawberry\perl\lib\File\Spec\Functions.pm
-C:\strawberry\perl\lib\File\Spec\Mac.pm
-C:\strawberry\perl\lib\File\Spec\OS2.pm
-C:\strawberry\perl\lib\File\Spec\Unix.pm
-C:\strawberry\perl\lib\File\Spec\VMS.pm
-C:\strawberry\perl\lib\File\Spec\Win32.pm
-C:\strawberry\perl\lib\auto\Cwd\Cwd.bs
-C:\strawberry\perl\lib\auto\Cwd\Cwd.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.bs b/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.dll b/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.dll Binary files differdeleted file mode 100755 index 0841fc80cee..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Cwd/Cwd.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/.packlist b/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/.packlist deleted file mode 100755 index dd2a88fa28e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/.packlist +++ /dev/null @@ -1,5 +0,0 @@ -C:\strawberry\perl\vendor\lib\DBD\ODBC.pm
-C:\strawberry\perl\vendor\lib\DBD\ODBC\Changes.pm
-C:\strawberry\perl\vendor\lib\DBD\ODBC\FAQ.pm
-C:\strawberry\perl\vendor\lib\auto\DBD\ODBC\ODBC.bs
-C:\strawberry\perl\vendor\lib\auto\DBD\ODBC\ODBC.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/ODBC.bs b/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/ODBC.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/ODBC.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/ODBC.dll b/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/ODBC.dll Binary files differdeleted file mode 100755 index 056716e17e6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/ODBC/ODBC.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/Pg/.packlist b/Master/tlpkg/tlperl/lib/auto/DBD/Pg/.packlist deleted file mode 100755 index 86f5b168e0d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/Pg/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\Bundle\DBD\Pg.pm
-C:\strawberry\perl\vendor\lib\DBD\Pg.pm
-C:\strawberry\perl\vendor\lib\auto\DBD\Pg\Pg.bs
-C:\strawberry\perl\vendor\lib\auto\DBD\Pg\Pg.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/Pg/Pg.bs b/Master/tlpkg/tlperl/lib/auto/DBD/Pg/Pg.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/Pg/Pg.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/Pg/Pg.dll b/Master/tlpkg/tlperl/lib/auto/DBD/Pg/Pg.dll Binary files differdeleted file mode 100755 index 528aa161bc4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/Pg/Pg.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/.packlist b/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/.packlist deleted file mode 100755 index aae5b9ae406..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\DBD\SQLite.pm
-C:\strawberry\perl\vendor\lib\DBD\SQLite\Cookbook.pod
-C:\strawberry\perl\vendor\lib\auto\DBD\SQLite\SQLite.bs
-C:\strawberry\perl\vendor\lib\auto\DBD\SQLite\SQLite.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/SQLite.bs b/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/SQLite.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/SQLite.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/SQLite.dll b/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/SQLite.dll Binary files differdeleted file mode 100755 index aa4c8a8c880..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/SQLite/SQLite.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/.packlist b/Master/tlpkg/tlperl/lib/auto/DBD/mysql/.packlist deleted file mode 100755 index 9953af53d94..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\vendor\lib\Bundle\DBD\mysql.pm
-C:\strawberry\perl\vendor\lib\DBD\mysql.pm
-C:\strawberry\perl\vendor\lib\DBD\mysql\GetInfo.pm
-C:\strawberry\perl\vendor\lib\DBD\mysql\INSTALL.pod
-C:\strawberry\perl\vendor\lib\auto\DBD\mysql\mysql.bs
-C:\strawberry\perl\vendor\lib\auto\DBD\mysql\mysql.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/libmysql.dll b/Master/tlpkg/tlperl/lib/auto/DBD/mysql/libmysql.dll Binary files differdeleted file mode 100755 index 2f240f1e3a4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/libmysql.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/mysql.bs b/Master/tlpkg/tlperl/lib/auto/DBD/mysql/mysql.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/mysql.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/mysql.dll b/Master/tlpkg/tlperl/lib/auto/DBD/mysql/mysql.dll Binary files differdeleted file mode 100755 index 14393ecffcb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBD/mysql/mysql.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/.packlist b/Master/tlpkg/tlperl/lib/auto/DBI/.packlist deleted file mode 100755 index bbca50fb4ef..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/.packlist +++ /dev/null @@ -1,66 +0,0 @@ -C:\strawberry\perl\bin\dbilogstrip
-C:\strawberry\perl\bin\dbilogstrip.bat
-C:\strawberry\perl\bin\dbiprof
-C:\strawberry\perl\bin\dbiprof.bat
-C:\strawberry\perl\bin\dbiproxy
-C:\strawberry\perl\bin\dbiproxy.bat
-C:\strawberry\perl\vendor\lib\Bundle\DBI.pm
-C:\strawberry\perl\vendor\lib\DBD\DBM.pm
-C:\strawberry\perl\vendor\lib\DBD\ExampleP.pm
-C:\strawberry\perl\vendor\lib\DBD\File.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Policy\Base.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Policy\classic.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Policy\pedantic.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Policy\rush.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Transport\Base.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Transport\null.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Transport\pipeone.pm
-C:\strawberry\perl\vendor\lib\DBD\Gofer\Transport\stream.pm
-C:\strawberry\perl\vendor\lib\DBD\NullP.pm
-C:\strawberry\perl\vendor\lib\DBD\Proxy.pm
-C:\strawberry\perl\vendor\lib\DBD\Sponge.pm
-C:\strawberry\perl\vendor\lib\DBI.pm
-C:\strawberry\perl\vendor\lib\DBI\Changes.pm
-C:\strawberry\perl\vendor\lib\DBI\Const\GetInfoReturn.pm
-C:\strawberry\perl\vendor\lib\DBI\Const\GetInfoType.pm
-C:\strawberry\perl\vendor\lib\DBI\Const\GetInfo\ANSI.pm
-C:\strawberry\perl\vendor\lib\DBI\Const\GetInfo\ODBC.pm
-C:\strawberry\perl\vendor\lib\DBI\DBD.pm
-C:\strawberry\perl\vendor\lib\DBI\DBD\Metadata.pm
-C:\strawberry\perl\vendor\lib\DBI\FAQ.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Execute.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Request.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Response.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Serializer\Base.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Serializer\DataDumper.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Serializer\Storable.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Transport\Base.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Transport\pipeone.pm
-C:\strawberry\perl\vendor\lib\DBI\Gofer\Transport\stream.pm
-C:\strawberry\perl\vendor\lib\DBI\Profile.pm
-C:\strawberry\perl\vendor\lib\DBI\ProfileData.pm
-C:\strawberry\perl\vendor\lib\DBI\ProfileDumper.pm
-C:\strawberry\perl\vendor\lib\DBI\ProfileDumper\Apache.pm
-C:\strawberry\perl\vendor\lib\DBI\ProfileSubs.pm
-C:\strawberry\perl\vendor\lib\DBI\ProxyServer.pm
-C:\strawberry\perl\vendor\lib\DBI\PurePerl.pm
-C:\strawberry\perl\vendor\lib\DBI\Roadmap.pm
-C:\strawberry\perl\vendor\lib\DBI\SQL\Nano.pm
-C:\strawberry\perl\vendor\lib\DBI\Util\CacheMemory.pm
-C:\strawberry\perl\vendor\lib\DBI\Util\_accessor.pm
-C:\strawberry\perl\vendor\lib\DBI\W32ODBC.pm
-C:\strawberry\perl\vendor\lib\Roadmap.pod
-C:\strawberry\perl\vendor\lib\TASKS.pod
-C:\strawberry\perl\vendor\lib\Win32\DBIODBC.pm
-C:\strawberry\perl\vendor\lib\auto\DBI\DBI.bs
-C:\strawberry\perl\vendor\lib\auto\DBI\DBI.dll
-C:\strawberry\perl\vendor\lib\auto\DBI\DBIXS.h
-C:\strawberry\perl\vendor\lib\auto\DBI\Driver.xst
-C:\strawberry\perl\vendor\lib\auto\DBI\Driver_xst.h
-C:\strawberry\perl\vendor\lib\auto\DBI\dbd_xsh.h
-C:\strawberry\perl\vendor\lib\auto\DBI\dbi_sql.h
-C:\strawberry\perl\vendor\lib\auto\DBI\dbipport.h
-C:\strawberry\perl\vendor\lib\auto\DBI\dbivport.h
-C:\strawberry\perl\vendor\lib\auto\DBI\dbixs_rev.h
-C:\strawberry\perl\vendor\lib\dbixs_rev.pl
diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/DBI.bs b/Master/tlpkg/tlperl/lib/auto/DBI/DBI.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/DBI.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/DBI.dll b/Master/tlpkg/tlperl/lib/auto/DBI/DBI.dll Binary files differdeleted file mode 100755 index 0879692039f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/DBI.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/DBIXS.h b/Master/tlpkg/tlperl/lib/auto/DBI/DBIXS.h deleted file mode 100755 index a371bf8d855..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/DBIXS.h +++ /dev/null @@ -1,519 +0,0 @@ -/* $Id: DBIXS.h 12559 2009-03-02 11:14:07Z timbo $ - * - * Copyright (c) 1994-2002 Tim Bunce Ireland - * - * See COPYRIGHT section in DBI.pm for usage and distribution rights. - */ - -/* DBI Interface Definitions for DBD Modules */ - -#ifndef DBIXS_VERSION /* prevent multiple inclusion */ - -#ifndef DBIS -#define DBIS dbis /* default name for dbistate_t variable */ -#endif - -/* first pull in the standard Perl header files for extensions */ -#define PERL_POLLUTE -#include <EXTERN.h> -#include <perl.h> -#include <XSUB.h> - -#ifdef debug /* causes problems with DBIS->debug */ -#undef debug -#endif - -#ifdef std /* causes problems with STLport <tscheresky@micron.com> */ -#undef std -#endif - -/* define DBIXS_REVISION */ -#include "dbixs_rev.h" - -/* Perl backwards compatibility definitions */ -#include "dbipport.h" - -/* DBI SQL_* type definitions */ -#include "dbi_sql.h" - - -/* The DBIXS_VERSION value will be incremented whenever new code is - * added to the interface (this file) or significant changes are made. - * It's primary goal is to allow newer drivers to compile against an - * older installed DBI. This is mainly an issue whilst the API grows - * and learns from the needs of various drivers. See also the - * DBISTATE_VERSION macro below. You can think of DBIXS_VERSION as - * being a compile time check and DBISTATE_VERSION as a runtime check. - * By contract, DBIXS_REVISION is a driver source compatibility tool. - */ -#define DBIXS_VERSION 93 - -#ifdef NEED_DBIXS_VERSION -#if NEED_DBIXS_VERSION > DBIXS_VERSION -error You_need_to_upgrade_your_DBI_module_before_building_this_driver -#endif -#else -#define NEED_DBIXS_VERSION DBIXS_VERSION -#endif - - -#define DBI_LOCK -#define DBI_UNLOCK - -#ifndef DBI_NO_THREADS -#ifdef USE_ITHREADS -#define DBI_USE_THREADS -#endif /* USE_ITHREADS */ -#endif /* DBI_NO_THREADS */ - - -/* forward struct declarations */ - -typedef struct dbistate_st dbistate_t; -/* implementor needs to define actual struct { dbih_??c_t com; ... }*/ -typedef struct imp_drh_st imp_drh_t; /* driver */ -typedef struct imp_dbh_st imp_dbh_t; /* database */ -typedef struct imp_sth_st imp_sth_t; /* statement */ -typedef struct imp_fdh_st imp_fdh_t; /* field descriptor */ -typedef struct imp_xxh_st imp_xxh_t; /* any (defined below) */ -#define DBI_imp_data_ imp_xxh_t /* friendly for take_imp_data */ - - - -/* --- DBI Handle Common Data Structure (all handles have one) --- */ - -/* Handle types. Code currently assumes child = parent + 1. */ -#define DBIt_DR 1 -#define DBIt_DB 2 -#define DBIt_ST 3 -#define DBIt_FD 4 - -/* component structures */ - -typedef struct dbih_com_std_st { - U32 flags; - int call_depth; /* used by DBI to track nested calls (int) */ - U16 type; /* DBIt_DR, DBIt_DB, DBIt_ST */ - HV *my_h; /* copy of outer handle HV (not refcounted) */ - SV *parent_h; /* parent inner handle (ref to hv) (r.c.inc) */ - imp_xxh_t *parent_com; /* parent com struct shortcut */ - PerlInterpreter * thr_user; /* thread that owns the handle */ - - HV *imp_stash; /* who is the implementor for this handle */ - SV *imp_data; /* optional implementors data (for perl imp's) */ - - I32 kids; /* count of db's for dr's, st's for db's etc */ - I32 active_kids; /* kids which are currently DBIc_ACTIVE */ - U32 pad; /* keep binary compat */ - dbistate_t *dbistate; -} dbih_com_std_t; - -typedef struct dbih_com_attr_st { - /* These are copies of the Hash values (ref.cnt.inc'd) */ - /* Many of the hash values are themselves references */ - SV *TraceLevel; - SV *State; /* Standard SQLSTATE, 5 char string */ - SV *Err; /* Native engine error code */ - SV *Errstr; /* Native engine error message */ - UV ErrCount; - U32 LongReadLen; /* auto read length for long/blob types */ - SV *FetchHashKeyName; /* for fetchrow_hashref */ - /* (NEW FIELDS?... DON'T FORGET TO UPDATE dbih_clearcom()!) */ -} dbih_com_attr_t; - - -struct dbih_com_st { /* complete core structure (typedef'd above) */ - dbih_com_std_t std; - dbih_com_attr_t attr; -}; - -/* This 'implementors' type the DBI defines by default as a way to */ -/* refer to the imp_??h data of a handle without considering its type. */ -struct imp_xxh_st { struct dbih_com_st com; }; - -/* Define handle-type specific structures for implementors to include */ -/* at the start of their private structures. */ - -typedef struct { /* -- DRIVER -- */ - dbih_com_std_t std; - dbih_com_attr_t attr; - HV *_old_cached_kids; /* not used, here for binary compat */ -} dbih_drc_t; - -typedef struct { /* -- DATABASE -- */ - dbih_com_std_t std; /* \__ standard structure */ - dbih_com_attr_t attr; /* / plus... (nothing else right now) */ - HV *_old_cached_kids; /* not used, here for binary compat */ -} dbih_dbc_t; - -typedef struct { /* -- STATEMENT -- */ - dbih_com_std_t std; /* \__ standard structure */ - dbih_com_attr_t attr; /* / plus ... */ - - int num_params; /* number of placeholders */ - int num_fields; /* NUM_OF_FIELDS, must be set */ - AV *fields_svav; /* special row buffer (inc bind_cols) */ - IV row_count; /* incremented by get_fbav() */ - - AV *fields_fdav; /* not used yet, may change */ - - I32 spare1; - void *spare2; -} dbih_stc_t; - - -/* XXX THIS STRUCTURE SHOULD NOT BE USED */ -typedef struct { /* -- FIELD DESCRIPTOR -- */ - dbih_com_std_t std; /* standard structure (not fully setup) */ - - /* core attributes (from DescribeCol in ODBC) */ - char *col_name; /* see dbih_make_fdsv */ - I16 col_name_len; - I16 col_sql_type; - I16 col_precision; - I16 col_scale; - I16 col_nullable; - - /* additional attributes (from ColAttributes in ODBC) */ - I32 col_length; - I32 col_disp_size; - - I32 spare1; - void *spare2; -} dbih_fdc_t; - - -#define _imp2com(p,f) ((p)->com.f) - -#define DBIc_FLAGS(imp) _imp2com(imp, std.flags) -#define DBIc_TYPE(imp) _imp2com(imp, std.type) -#define DBIc_CALL_DEPTH(imp) _imp2com(imp, std.call_depth) -#define DBIc_MY_H(imp) _imp2com(imp, std.my_h) -#define DBIc_PARENT_H(imp) _imp2com(imp, std.parent_h) -#define DBIc_PARENT_COM(imp) _imp2com(imp, std.parent_com) -#define DBIc_THR_COND(imp) _imp2com(imp, std.thr_cond) -#define DBIc_THR_USER(imp) _imp2com(imp, std.thr_user) -#define DBIc_THR_USER_NONE (0xFFFF) -#define DBIc_IMP_STASH(imp) _imp2com(imp, std.imp_stash) -#define DBIc_IMP_DATA(imp) _imp2com(imp, std.imp_data) -#define DBIc_DBISTATE(imp) _imp2com(imp, std.dbistate) -#define DBIc_LOGPIO(imp) DBIc_DBISTATE(imp)->logfp -#define DBIc_KIDS(imp) _imp2com(imp, std.kids) -#define DBIc_ACTIVE_KIDS(imp) _imp2com(imp, std.active_kids) -#define DBIc_LAST_METHOD(imp) _imp2com(imp, std.last_method) - -#define DBIc_TRACE_LEVEL_MASK 0x0000000F -#define DBIc_TRACE_FLAGS_MASK 0xFFFFFF00 -#define DBIc_TRACE_SETTINGS(imp) (DBIc_DBISTATE(imp)->debug) -#define DBIc_TRACE_LEVEL(imp) (DBIc_TRACE_SETTINGS(imp) & DBIc_TRACE_LEVEL_MASK) -#define DBIc_TRACE_FLAGS(imp) (DBIc_TRACE_SETTINGS(imp) & DBIc_TRACE_FLAGS_MASK) -/* DBIc_TRACE_MATCHES(this, crnt): true if this 'matches' (is within) crnt - DBIc_TRACE_MATCHES(foo, DBIc_TRACE_SETTINGS(imp)) -*/ -#define DBIc_TRACE_MATCHES(this, crnt) \ - ( ((crnt & DBIc_TRACE_LEVEL_MASK) >= (this & DBIc_TRACE_LEVEL_MASK)) \ - || ((crnt & DBIc_TRACE_FLAGS_MASK) & (this & DBIc_TRACE_FLAGS_MASK)) ) -/* DBIc_TRACE: true if flags match & DBI level>=flaglevel, or if DBI level>level - This is the main trace testing macro to be used by drivers. - (Drivers should define their own DBDtf_* macros for the top 8 bits: 0xFF000000) - DBIc_TRACE(imp, 0, 0, 4) = if level >= 4 - DBIc_TRACE(imp, DBDtf_FOO, 2, 4) = if tracing DBDtf_FOO & level>=2 or level>=4 - DBIc_TRACE(imp, DBDtf_FOO, 2, 0) = as above but never trace just due to level -*/ -#define DBIc_TRACE(imp, flags, flaglevel, level) \ - ( (flags && (DBIc_TRACE_FLAGS(imp) & flags) && (DBIc_TRACE_LEVEL(imp) >= flaglevel)) \ - || (level && DBIc_TRACE_LEVEL(imp) >= level) ) - -#define DBIc_DEBUG(imp) (_imp2com(imp, attr.TraceLevel)) /* deprecated */ -#define DBIc_DEBUGIV(imp) SvIV(DBIc_DEBUG(imp)) /* deprecated */ -#define DBIc_STATE(imp) SvRV(_imp2com(imp, attr.State)) -#define DBIc_ERR(imp) SvRV(_imp2com(imp, attr.Err)) -#define DBIc_ERRSTR(imp) SvRV(_imp2com(imp, attr.Errstr)) -#define DBIc_ErrCount(imp) _imp2com(imp, attr.ErrCount) -#define DBIc_LongReadLen(imp) _imp2com(imp, attr.LongReadLen) -#define DBIc_LongReadLen_init 80 /* may change */ -#define DBIc_FetchHashKeyName(imp) (_imp2com(imp, attr.FetchHashKeyName)) - -/* handle sub-type specific fields */ -/* dbh & drh */ -#define DBIc_CACHED_KIDS(imp) Nullhv /* no longer used, here for src compat */ -/* sth */ -#define DBIc_NUM_FIELDS(imp) _imp2com(imp, num_fields) -#define DBIc_NUM_PARAMS(imp) _imp2com(imp, num_params) -#define DBIc_NUM_PARAMS_AT_EXECUTE -9 /* see Driver.xst */ -#define DBIc_ROW_COUNT(imp) _imp2com(imp, row_count) -#define DBIc_FIELDS_AV(imp) _imp2com(imp, fields_svav) -#define DBIc_FDESC_AV(imp) _imp2com(imp, fields_fdav) -#define DBIc_FDESC(imp, i) ((imp_fdh_t*)(void*)SvPVX(AvARRAY(DBIc_FDESC_AV(imp))[i])) - -/* XXX --- DO NOT CHANGE THESE VALUES AS THEY ARE COMPILED INTO DRIVERS --- XXX */ -#define DBIcf_COMSET 0x000001 /* needs to be clear'd before free'd */ -#define DBIcf_IMPSET 0x000002 /* has implementor data to be clear'd */ -#define DBIcf_ACTIVE 0x000004 /* needs finish/disconnect before clear */ -#define DBIcf_IADESTROY 0x000008 /* do DBIc_ACTIVE_off before DESTROY */ -#define DBIcf_WARN 0x000010 /* warn about poor practice etc */ -#define DBIcf_COMPAT 0x000020 /* compat/emulation mode (eg oraperl) */ -#define DBIcf_ChopBlanks 0x000040 /* rtrim spaces from fetch char columns */ -#define DBIcf_RaiseError 0x000080 /* throw exception (croak) on error */ -#define DBIcf_PrintError 0x000100 /* warn() on error */ -#define DBIcf_AutoCommit 0x000200 /* dbh only. used by drivers */ -#define DBIcf_LongTruncOk 0x000400 /* truncation to LongReadLen is okay */ -#define DBIcf_MultiThread 0x000800 /* allow multiple threads to enter */ -#define DBIcf_HandleSetErr 0x001000 /* has coderef HandleSetErr attribute */ -#define DBIcf_ShowErrorStatement 0x002000 /* include Statement in error */ -#define DBIcf_BegunWork 0x004000 /* between begin_work & commit/rollback */ -#define DBIcf_HandleError 0x008000 /* has coderef in HandleError attribute */ -#define DBIcf_Profile 0x010000 /* profile activity on this handle */ -#define DBIcf_TaintIn 0x020000 /* check inputs for taintedness */ -#define DBIcf_TaintOut 0x040000 /* taint outgoing data */ -#define DBIcf_Executed 0x080000 /* do/execute called since commit/rollb */ -#define DBIcf_PrintWarn 0x100000 /* warn() on warning (err="0") */ -#define DBIcf_Callbacks 0x200000 /* has Callbacks attribute hash */ -/* NOTE: new flags may require clone() to be updated */ - -#define DBIcf_INHERITMASK /* what NOT to pass on to children */ \ - (U32)( DBIcf_COMSET | DBIcf_IMPSET | DBIcf_ACTIVE | DBIcf_IADESTROY \ - | DBIcf_AutoCommit | DBIcf_BegunWork | DBIcf_Executed | DBIcf_Callbacks ) - -/* general purpose bit setting and testing macros */ -#define DBIbf_is( bitset,flag) ((bitset) & (flag)) -#define DBIbf_has(bitset,flag) DBIbf_is(bitset, flag) /* alias for _is */ -#define DBIbf_on( bitset,flag) ((bitset) |= (flag)) -#define DBIbf_off(bitset,flag) ((bitset) &= ~(flag)) -#define DBIbf_set(bitset,flag,on) ((on) ? DBIbf_on(bitset, flag) : DBIbf_off(bitset,flag)) - -/* as above, but specifically for DBIc_FLAGS imp flags (except ACTIVE) */ -#define DBIc_is(imp, flag) DBIbf_is( DBIc_FLAGS(imp), flag) -#define DBIc_has(imp,flag) DBIc_is(imp, flag) /* alias for DBIc_is */ -#define DBIc_on(imp, flag) DBIbf_on( DBIc_FLAGS(imp), flag) -#define DBIc_off(imp,flag) DBIbf_off(DBIc_FLAGS(imp), flag) -#define DBIc_set(imp,flag,on) DBIbf_set(DBIc_FLAGS(imp), flag, on) - -#define DBIc_COMSET(imp) DBIc_is(imp, DBIcf_COMSET) -#define DBIc_COMSET_on(imp) DBIc_on(imp, DBIcf_COMSET) -#define DBIc_COMSET_off(imp) DBIc_off(imp,DBIcf_COMSET) - -#define DBIc_IMPSET(imp) DBIc_is(imp, DBIcf_IMPSET) -#define DBIc_IMPSET_on(imp) DBIc_on(imp, DBIcf_IMPSET) -#define DBIc_IMPSET_off(imp) DBIc_off(imp,DBIcf_IMPSET) - -#define DBIc_ACTIVE(imp) (DBIc_FLAGS(imp) & DBIcf_ACTIVE) -#define DBIc_ACTIVE_on(imp) /* adjust parent's active kid count */ \ - do { \ - imp_xxh_t *ph_com = DBIc_PARENT_COM(imp); \ - if (!DBIc_ACTIVE(imp) && ph_com && !dirty \ - && ++DBIc_ACTIVE_KIDS(ph_com) > DBIc_KIDS(ph_com)) \ - croak("panic: DBI active kids (%ld) > kids (%ld)", \ - (long)DBIc_ACTIVE_KIDS(ph_com), \ - (long)DBIc_KIDS(ph_com)); \ - DBIc_FLAGS(imp) |= DBIcf_ACTIVE; \ - } while(0) -#define DBIc_ACTIVE_off(imp) /* adjust parent's active kid count */ \ - do { \ - imp_xxh_t *ph_com = DBIc_PARENT_COM(imp); \ - if (DBIc_ACTIVE(imp) && ph_com && !dirty \ - && (--DBIc_ACTIVE_KIDS(ph_com) > DBIc_KIDS(ph_com) \ - || DBIc_ACTIVE_KIDS(ph_com) < 0) ) \ - croak("panic: DBI active kids (%ld) < 0 or > kids (%ld)", \ - (long)DBIc_ACTIVE_KIDS(ph_com), \ - (long)DBIc_KIDS(ph_com)); \ - DBIc_FLAGS(imp) &= ~DBIcf_ACTIVE; \ - } while(0) - -#define DBIc_IADESTROY(imp) (DBIc_FLAGS(imp) & DBIcf_IADESTROY) -#define DBIc_IADESTROY_on(imp) (DBIc_FLAGS(imp) |= DBIcf_IADESTROY) -#define DBIc_IADESTROY_off(imp) (DBIc_FLAGS(imp) &= ~DBIcf_IADESTROY) - -#define DBIc_WARN(imp) (DBIc_FLAGS(imp) & DBIcf_WARN) -#define DBIc_WARN_on(imp) (DBIc_FLAGS(imp) |= DBIcf_WARN) -#define DBIc_WARN_off(imp) (DBIc_FLAGS(imp) &= ~DBIcf_WARN) - -#define DBIc_COMPAT(imp) (DBIc_FLAGS(imp) & DBIcf_COMPAT) -#define DBIc_COMPAT_on(imp) (DBIc_FLAGS(imp) |= DBIcf_COMPAT) -#define DBIc_COMPAT_off(imp) (DBIc_FLAGS(imp) &= ~DBIcf_COMPAT) - - -#ifdef IN_DBI_XS /* get Handle Common Data Structure */ -#define DBIh_COM(h) (dbih_getcom2(aTHX_ h, 0)) -#else -#define DBIh_COM(h) (DBIS->getcom(h)) -#define neatsvpv(sv,len) (DBIS->neat_svpv(sv,len)) -#endif - - -/* --- Implementors Private Data Support --- */ - -#define D_impdata(name,type,h) type *name = (type*)(DBIh_COM(h)) -#define D_imp_drh(h) D_impdata(imp_drh, imp_drh_t, h) -#define D_imp_dbh(h) D_impdata(imp_dbh, imp_dbh_t, h) -#define D_imp_sth(h) D_impdata(imp_sth, imp_sth_t, h) -#define D_imp_xxh(h) D_impdata(imp_xxh, imp_xxh_t, h) - -#define D_imp_from_child(name,type,child) \ - type *name = (type*)(DBIc_PARENT_COM(child)) -#define D_imp_drh_from_dbh D_imp_from_child(imp_drh, imp_drh_t, imp_dbh) -#define D_imp_dbh_from_sth D_imp_from_child(imp_dbh, imp_dbh_t, imp_sth) - -#define DBI_IMP_SIZE(n,s) sv_setiv(perl_get_sv((n), GV_ADDMULTI), (s)) /* XXX */ - - - -/* --- Event Support (VERY LIABLE TO CHANGE) --- */ - -#define DBIh_EVENTx(h,t,a1,a2) /* deprecated XXX */ &PL_sv_no -#define DBIh_EVENT0(h,t) DBIh_EVENTx((h), (t), &PL_sv_undef, &PL_sv_undef) -#define DBIh_EVENT1(h,t, a1) DBIh_EVENTx((h), (t), (a1), &PL_sv_undef) -#define DBIh_EVENT2(h,t, a1,a2) DBIh_EVENTx((h), (t), (a1), (a2)) - -#define ERROR_event "ERROR" -#define WARN_event "WARN" -#define MSG_event "MESSAGE" -#define DBEVENT_event "DBEVENT" -#define UNKNOWN_event "UNKNOWN" - -#define DBIh_SET_ERR_SV(h,i, err, errstr, state, method) \ - (DBIc_DBISTATE(i)->set_err_sv(h,i, err, errstr, state, method)) -#define DBIh_SET_ERR_CHAR(h,i, err_c, err_i, errstr, state, method) \ - (DBIc_DBISTATE(i)->set_err_char(h,i, err_c, err_i, errstr, state, method)) - - -/* --- Handy Macros --- */ - -#define DBIh_CLEAR_ERROR(imp_xxh) (void)( \ - (void)SvOK_off(DBIc_ERR(imp_xxh)), \ - (void)SvOK_off(DBIc_ERRSTR(imp_xxh)), \ - (void)SvOK_off(DBIc_STATE(imp_xxh)) \ - ) - - -/* --- DBI State Structure --- */ - -struct dbistate_st { - -#define DBISTATE_VERSION 94 /* Must change whenever dbistate_t does */ - - /* this must be the first member in structure */ - void (*check_version) _((const char *name, - int dbis_cv, int dbis_cs, int need_dbixs_cv, - int drc_s, int dbc_s, int stc_s, int fdc_s)); - - /* version and size are used to check for DBI/DBD version mis-match */ - U16 version; /* version of this structure */ - U16 size; - U16 xs_version; /* version of the overall DBIXS / DBD interface */ - U16 spare_pad; - - I32 debug; - PerlIO *logfp; - - /* pointers to DBI functions which the DBD's will want to use */ - char * (*neat_svpv) _((SV *sv, STRLEN maxlen)); - imp_xxh_t * (*getcom) _((SV *h)); /* see DBIh_COM macro */ - void (*clearcom) _((imp_xxh_t *imp_xxh)); - SV * (*event) _((SV *h, const char *name, SV*, SV*)); - int (*set_attr_k) _((SV *h, SV *keysv, int dbikey, SV *valuesv)); - SV * (*get_attr_k) _((SV *h, SV *keysv, int dbikey)); - AV * (*get_fbav) _((imp_sth_t *imp_sth)); - SV * (*make_fdsv) _((SV *sth, const char *imp_class, STRLEN imp_size, const char *col_name)); - int (*bind_as_num) _((int sql_type, int p, int s, int *t, void *v)); - I32 (*hash) _((const char *string, long i)); - SV * (*preparse) _((SV *sth, char *statement, IV ps_return, IV ps_accept, void *foo)); - - SV *neatsvpvlen; /* only show dbgpvlen chars when debugging pv's */ - - PerlInterpreter * thr_owner; /* thread that owns this dbistate */ - - int (*logmsg) _((imp_xxh_t *imp_xxh, const char *fmt, ...)); - int (*set_err_sv) _((SV *h, imp_xxh_t *imp_xxh, SV *err, SV *errstr, SV *state, SV *method)); - int (*set_err_char) _((SV *h, imp_xxh_t *imp_xxh, const char *err, IV err_i, const char *errstr, const char *state, const char *method)); - int (*bind_col) _((SV *sth, SV *col, SV *ref, SV *attribs)); - - IO *logfp_ref; /* DAA keep ptr to filehandle for refcounting */ - - /* WARNING: Only add new structure members here, and reduce pad2 to keep */ - /* the memory footprint exactly the same */ - void *pad2[4]; -}; - -/* macros for backwards compatibility */ -#define set_attr(h, k, v) set_attr_k(h, k, 0, v) -#define get_attr(h, k) get_attr_k(h, k, 0) - -#define DBISTATE_PERLNAME "DBI::_dbistate" -#define DBISTATE_ADDRSV (perl_get_sv(DBISTATE_PERLNAME, 0x05)) -#define DBILOGFP (DBIS->logfp) -#ifdef IN_DBI_XS -#define DBILOGMSG (dbih_logmsg) -#else -#define DBILOGMSG (DBIS->logmsg) -#endif - - -/* --- perl object (ActiveState) / multiplicity hooks and hoops --- */ -/* note that USE_ITHREADS implies MULTIPLICITY */ -#define DBIS_PUBLISHED_LVALUE (*(INT2PTR(dbistate_t**, &SvIVX(DBISTATE_ADDRSV)))) -#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || defined(PERL_CAPI) - -# define DBISTATE_DECLARE typedef int dummy_dbistate /* keep semicolon from feeling lonely */ -# define DBISTATE_INIT_DBIS typedef int dummy_dbistate2; /* keep semicolon from feeling lonely */ -# undef DBIS -# define DBIS DBIS_PUBLISHED_LVALUE -# define dbis DBIS_PUBLISHED_LVALUE /* temp for old drivers using 'dbis' instead of 'DBIS' */ - -#else /* plain and simple non perl object / multiplicity case */ - -# define DBISTATE_DECLARE static dbistate_t *DBIS -# define DBISTATE_INIT_DBIS (DBIS = DBIS_PUBLISHED_LVALUE) -#endif - -# define DBISTATE_INIT { /* typically use in BOOT: of XS file */ \ - DBISTATE_INIT_DBIS; \ - if (DBIS == NULL) \ - croak("Unable to get DBI state from %s at %p. DBI not loaded.", DBISTATE_PERLNAME, (void*)DBISTATE_ADDRSV); \ - DBIS->check_version(__FILE__, DBISTATE_VERSION, sizeof(*DBIS), NEED_DBIXS_VERSION, \ - sizeof(dbih_drc_t), sizeof(dbih_dbc_t), sizeof(dbih_stc_t), sizeof(dbih_fdc_t) \ - ); \ -} - - -/* --- Assorted Utility Macros --- */ - -#define DBD_ATTRIB_OK(attribs) /* is this a usable attrib value */ \ - (attribs && SvROK(attribs) && SvTYPE(SvRV(attribs))==SVt_PVHV) - -/* If attribs value supplied then croak if it's not a hash ref. */ -/* Also map undef to Null. Should always be called to pre-process the */ -/* attribs value. One day we may add some extra magic in here. */ -#define DBD_ATTRIBS_CHECK(func, h, attribs) \ - if ((attribs) && SvOK(attribs)) { \ - if (!SvROK(attribs) || SvTYPE(SvRV(attribs))!=SVt_PVHV) \ - croak("%s->%s(...): attribute parameter '%s' is not a hash ref", \ - SvPV_nolen(h), func, SvPV_nolen(attribs)); \ - } else (attribs) = Nullsv - -#define DBD_ATTRIB_GET_SVP(attribs, key,klen) \ - (DBD_ATTRIB_OK(attribs) \ - ? hv_fetch((HV*)SvRV(attribs), key,klen, 0) \ - : (SV **)Nullsv) - -#define DBD_ATTRIB_GET_IV(attribs, key,klen, svp, var) \ - if ((svp=DBD_ATTRIB_GET_SVP(attribs, key,klen)) != NULL) \ - var = SvIV(*svp) - -#define DBD_ATTRIB_GET_BOOL(attribs, key,klen, svp, var) \ - if ((svp=DBD_ATTRIB_GET_SVP(attribs, key,klen)) != NULL) \ - var = SvTRUE(*svp) - -#define DBD_ATTRIB_TRUE(attribs, key,klen, svp) \ - ( ((svp=DBD_ATTRIB_GET_SVP(attribs, key,klen)) != NULL) \ - ? SvTRUE(*svp) : 0 ) - -#define DBD_ATTRIB_GET_PV(attribs, key,klen, svp, dflt) \ - (((svp=DBD_ATTRIB_GET_SVP(attribs, key,klen)) != NULL) \ - ? SvPV_nolen(*svp) : (dflt)) - -#define DBD_ATTRIB_DELETE(attribs, key, klen) \ - hv_delete((HV*)SvRV(attribs), key, klen, G_DISCARD) - -#endif /* DBIXS_VERSION */ -/* end of DBIXS.h */ diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/Driver.xst b/Master/tlpkg/tlperl/lib/auto/DBI/Driver.xst deleted file mode 100755 index f4527560925..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/Driver.xst +++ /dev/null @@ -1,775 +0,0 @@ -# $Id: Driver.xst 12816 2009-06-08 10:07:26Z timbo $ -# Copyright (c) 1997-2002 Tim Bunce Ireland -# Copyright (c) 2002 Jonathan Leffler -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. - - -#include "Driver_xst.h" - - -MODULE = DBD::~DRIVER~ PACKAGE = DBD::~DRIVER~ - -REQUIRE: 1.929 -PROTOTYPES: DISABLE - -BOOT: - items = 0; /* avoid 'unused variable' warning */ - DBISTATE_INIT; - /* XXX this interface will change: */ - DBI_IMP_SIZE("DBD::~DRIVER~::dr::imp_data_size", sizeof(imp_drh_t)); - DBI_IMP_SIZE("DBD::~DRIVER~::db::imp_data_size", sizeof(imp_dbh_t)); - DBI_IMP_SIZE("DBD::~DRIVER~::st::imp_data_size", sizeof(imp_sth_t)); - dbd_init(DBIS); - - -# ------------------------------------------------------------ -# driver level interface -# ------------------------------------------------------------ -MODULE = DBD::~DRIVER~ PACKAGE = DBD::~DRIVER~::dr - - -void -dbixs_revision(...) - PPCODE: - ST(0) = sv_2mortal(newSViv(DBIXS_REVISION)); - - -#ifdef dbd_discon_all - -# disconnect_all renamed and ALIAS'd to avoid length clash on VMS :-( -void -discon_all_(drh) - SV * drh - ALIAS: - disconnect_all = 1 - CODE: - D_imp_drh(drh); - if (0) ix = ix; /* avoid unused variable warning */ - ST(0) = dbd_discon_all(drh, imp_drh) ? &sv_yes : &sv_no; - -#endif /* dbd_discon_all */ - - -#ifdef dbd_dr_data_sources - -void -data_sources(drh, attr = Nullsv) - SV *drh - SV *attr - PPCODE: - { - D_imp_drh(drh); - AV *av = dbd_dr_data_sources(drh, imp_drh, attr); - if (av) { - int i; - int n = AvFILL(av)+1; - EXTEND(sp, n); - for (i = 0; i < n; ++i) { - PUSHs(AvARRAY(av)[i]); - } - } - } - -#endif - - -# ------------------------------------------------------------ -# database level interface -# ------------------------------------------------------------ -MODULE = DBD::~DRIVER~ PACKAGE = DBD::~DRIVER~::db - - -void -_login(dbh, dbname, username, password, attribs=Nullsv) - SV * dbh - SV * dbname - SV * username - SV * password - SV * attribs - CODE: - { - STRLEN lna; - D_imp_dbh(dbh); - char *u = (SvOK(username)) ? SvPV(username,lna) : ""; - char *p = (SvOK(password)) ? SvPV(password,lna) : ""; -#ifdef dbd_db_login6_sv - ST(0) = dbd_db_login6_sv(dbh, imp_dbh, dbname, username, password, attribs) ? &sv_yes : &sv_no; -#elif defined(dbd_db_login6) - ST(0) = dbd_db_login6(dbh, imp_dbh, SvPV_nolen(dbname), u, p, attribs) ? &sv_yes : &sv_no; -#else - ST(0) = dbd_db_login( dbh, imp_dbh, SvPV_nolen(dbname), u, p) ? &sv_yes : &sv_no; -#endif - } - - -void -selectall_arrayref(...) - PREINIT: - SV *sth; - SV **maxrows_svp; - SV **tmp_svp; - SV *attr = &PL_sv_undef; - imp_sth_t *imp_sth; - CODE: - if (items > 2) { - attr = ST(2); - if (SvROK(attr) && - (DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) - ) { - /* fallback to perl implementation */ - SV *tmp =dbixst_bounce_method("DBD::~DRIVER~::db::SUPER::selectall_arrayref", items); - SPAGAIN; - ST(0) = tmp; - XSRETURN(1); - } - } - /* --- prepare --- */ - if (SvROK(ST(1))) { - MAGIC *mg; - sth = ST(1); - /* switch to inner handle if not already */ - if ( (mg = mg_find(SvRV(sth),'P')) ) - sth = mg->mg_obj; - } - else { - sth = dbixst_bounce_method("prepare", 3); - SPAGAIN; SP -= items; /* because stack might have been realloc'd */ - if (!SvROK(sth)) - XSRETURN_UNDEF; - /* switch to inner handle */ - sth = mg_find(SvRV(sth),'P')->mg_obj; - } - imp_sth = (imp_sth_t*)(DBIh_COM(sth)); - /* --- bind_param --- */ - if (items > 3) { /* need to bind params before execute */ - if (!dbdxst_bind_params(sth, imp_sth, items-2, ax+2) ) { - XSRETURN_UNDEF; - } - } - /* --- execute --- */ - DBIc_ROW_COUNT(imp_sth) = 0; - if ( dbd_st_execute(sth, imp_sth) <= -2 ) { /* -2 == error */ - XSRETURN_UNDEF; - } - /* --- fetchall --- */ - maxrows_svp = DBD_ATTRIB_GET_SVP(attr, "MaxRows", 7); - ST(0) = dbdxst_fetchall_arrayref(sth, &PL_sv_undef, (maxrows_svp) ? *maxrows_svp : &PL_sv_undef); - - -void -selectrow_arrayref(...) - ALIAS: - selectrow_array = 1 - PREINIT: - int is_selectrow_array = (ix == 1); - imp_sth_t *imp_sth; - SV *sth; - AV *row_av; - PPCODE: - if (SvROK(ST(1))) { - MAGIC *mg; - sth = ST(1); - /* switch to inner handle if not already */ - if ( (mg = mg_find(SvRV(sth),'P')) ) - sth = mg->mg_obj; - } - else { - /* --- prepare --- */ - sth = dbixst_bounce_method("prepare", 3); - SPAGAIN; SP -= items; /* because stack might have been realloc'd */ - if (!SvROK(sth)) { - if (is_selectrow_array) { XSRETURN_EMPTY; } else { XSRETURN_UNDEF; } - } - /* switch to inner handle */ - sth = mg_find(SvRV(sth),'P')->mg_obj; - } - imp_sth = (imp_sth_t*)(DBIh_COM(sth)); - /* --- bind_param --- */ - if (items > 3) { /* need to bind params before execute */ - if (!dbdxst_bind_params(sth, imp_sth, items-2, ax+2) ) { - if (is_selectrow_array) { XSRETURN_EMPTY; } else { XSRETURN_UNDEF; } - } - } - /* --- execute --- */ - DBIc_ROW_COUNT(imp_sth) = 0; - if ( dbd_st_execute(sth, imp_sth) <= -2 ) { /* -2 == error */ - if (is_selectrow_array) { XSRETURN_EMPTY; } else { XSRETURN_UNDEF; } - } - /* --- fetchrow_arrayref --- */ - row_av = dbd_st_fetch(sth, imp_sth); - if (!row_av) { - if (GIMME == G_SCALAR) - PUSHs(&PL_sv_undef); - } - else if (is_selectrow_array) { - int i; - int num_fields = AvFILL(row_av)+1; - if (GIMME == G_SCALAR) - num_fields = 1; /* return just first field */ - EXTEND(sp, num_fields); - for(i=0; i < num_fields; ++i) { - PUSHs(AvARRAY(row_av)[i]); - } - } - else { - PUSHs( sv_2mortal(newRV((SV *)row_av)) ); - } - /* --- finish --- */ -#ifdef dbd_st_finish3 - dbd_st_finish3(sth, imp_sth, 0); -#else - dbd_st_finish(sth, imp_sth); -#endif - - -#ifdef dbd_db_do4 /* deebeedee-deebee-doo, deebee-doobee-dah? */ - -void -do(dbh, statement, params = Nullsv) - SV * dbh - char * statement - SV * params - CODE: - { - D_imp_dbh(dbh); - IV retval; - retval = dbd_db_do4(dbh, imp_dbh, statement, params); - /* remember that dbd_db_do4 must return <= -2 for error */ - if (retval == 0) /* ok with no rows affected */ - XST_mPV(0, "0E0"); /* (true but zero) */ - else if (retval < -1) /* -1 == unknown number of rows */ - XST_mUNDEF(0); /* <= -2 means error */ - else - XST_mIV(0, retval); /* typically 1, rowcount or -1 */ - } - -#endif - - -#ifdef dbd_db_last_insert_id - -void -last_insert_id(dbh, catalog, schema, table, field, attr=Nullsv) - SV * dbh - SV * catalog - SV * schema - SV * table - SV * field - SV * attr - CODE: - { - D_imp_dbh(dbh); - ST(0) = dbd_db_last_insert_id(dbh, imp_dbh, catalog, schema, table, field, attr); - } - -#endif - - -void -commit(dbh) - SV * dbh - CODE: - D_imp_dbh(dbh); - if (DBIc_has(imp_dbh,DBIcf_AutoCommit) && DBIc_WARN(imp_dbh)) - warn("commit ineffective with AutoCommit enabled"); - ST(0) = dbd_db_commit(dbh, imp_dbh) ? &sv_yes : &sv_no; - - -void -rollback(dbh) - SV * dbh - CODE: - D_imp_dbh(dbh); - if (DBIc_has(imp_dbh,DBIcf_AutoCommit) && DBIc_WARN(imp_dbh)) - warn("rollback ineffective with AutoCommit enabled"); - ST(0) = dbd_db_rollback(dbh, imp_dbh) ? &sv_yes : &sv_no; - - -void -disconnect(dbh) - SV * dbh - CODE: - D_imp_dbh(dbh); - if ( !DBIc_ACTIVE(imp_dbh) ) { - XSRETURN_YES; - } - /* Check for disconnect() being called whilst refs to cursors */ - /* still exists. This possibly needs some more thought. */ - if (DBIc_ACTIVE_KIDS(imp_dbh) && DBIc_WARN(imp_dbh) && !dirty) { - STRLEN lna; - char *plural = (DBIc_ACTIVE_KIDS(imp_dbh)==1) ? "" : "s"; - warn("%s->disconnect invalidates %d active statement handle%s %s", - SvPV(dbh,lna), (int)DBIc_ACTIVE_KIDS(imp_dbh), plural, - "(either destroy statement handles or call finish on them before disconnecting)"); - } - ST(0) = dbd_db_disconnect(dbh, imp_dbh) ? &sv_yes : &sv_no; - DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ - - -void -STORE(dbh, keysv, valuesv) - SV * dbh - SV * keysv - SV * valuesv - CODE: - D_imp_dbh(dbh); - if (SvGMAGICAL(valuesv)) - mg_get(valuesv); - ST(0) = &sv_yes; - if (!dbd_db_STORE_attrib(dbh, imp_dbh, keysv, valuesv)) - if (!DBIc_DBISTATE(imp_dbh)->set_attr(dbh, keysv, valuesv)) - ST(0) = &sv_no; - - -void -FETCH(dbh, keysv) - SV * dbh - SV * keysv - CODE: - D_imp_dbh(dbh); - SV *valuesv = dbd_db_FETCH_attrib(dbh, imp_dbh, keysv); - if (!valuesv) - valuesv = DBIc_DBISTATE(imp_dbh)->get_attr(dbh, keysv); - ST(0) = valuesv; /* dbd_db_FETCH_attrib did sv_2mortal */ - - -void -DESTROY(dbh) - SV * dbh - PPCODE: - /* keep in sync with default DESTROY in DBI.xs */ - D_imp_dbh(dbh); - ST(0) = &sv_yes; - if (!DBIc_IMPSET(imp_dbh)) { /* was never fully set up */ - STRLEN lna; - if (DBIc_WARN(imp_dbh) && !dirty && DBIc_DBISTATE(imp_dbh)->debug >= 2) - PerlIO_printf(DBIc_LOGPIO(imp_dbh), - " DESTROY for %s ignored - handle not initialised\n", - SvPV(dbh,lna)); - } - else { - if (DBIc_IADESTROY(imp_dbh)) { /* want's ineffective destroy */ - DBIc_ACTIVE_off(imp_dbh); - if (DBIc_DBISTATE(imp_dbh)->debug) - PerlIO_printf(DBIc_LOGPIO(imp_dbh), " DESTROY %s skipped due to InactiveDestroy\n", SvPV_nolen(dbh)); - } - if (DBIc_ACTIVE(imp_dbh)) { - if (!DBIc_has(imp_dbh,DBIcf_AutoCommit)) { - /* Application is using transactions and hasn't explicitly disconnected. - Some databases will automatically commit on graceful disconnect. - Since we're about to gracefully disconnect as part of the DESTROY - we want to be sure we're not about to implicitly commit changes - that are incomplete and should be rolled back. (The DESTROY may - be due to a RaiseError, for example.) So we rollback here. - This will be harmless if the application has issued a commit, - XXX Could add an attribute flag to indicate that the driver - doesn't have this problem. Patches welcome. - */ - if (DBIc_WARN(imp_dbh) - && DBIc_is(imp_dbh, DBIcf_Executed) /* has not just called commit/rollback */ - && (!dirty || DBIc_DBISTATE(imp_dbh)->debug >= 3) - ) { - warn("Issuing rollback() due to DESTROY without explicit disconnect() of %s handle %s", - SvPV_nolen(*hv_fetch((HV*)SvRV(dbh), "ImplementorClass", 16, 1)), - SvPV_nolen(*hv_fetch((HV*)SvRV(dbh), "Name", 4, 1)) - ); - } - dbd_db_rollback(dbh, imp_dbh); /* ROLLBACK! */ - } - dbd_db_disconnect(dbh, imp_dbh); - DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ - } - dbd_db_destroy(dbh, imp_dbh); - } - - -#ifdef dbd_take_imp_data - -void -take_imp_data(h) - SV * h - CODE: - D_imp_xxh(h); - /* dbd_take_imp_data() returns &sv_no (or other defined but false value) - * to indicate "preparations complete, now call SUPER::take_imp_data" for me. - * Anything else is returned to the caller via sv_2mortal(sv), typically that - * would be &sv_undef for error or an SV holding the imp_data. - */ - SV *sv = dbd_take_imp_data(h, imp_xxh, NULL); - if (SvOK(sv) && !SvTRUE(sv)) { - SV *tmp = dbixst_bounce_method("DBD::~DRIVER~::db::SUPER::take_imp_data", items); - SPAGAIN; - ST(0) = tmp; - } else { - ST(0) = sv_2mortal(sv); - } - -#endif - -#ifdef dbd_db_data_sources - -void -data_sources(dbh, attr = Nullsv) - SV *dbh - SV *attr - PPCODE: - { - D_imp_dbh(dbh); - AV *av = dbd_db_data_sources(dbh, imp_dbh, attr); - if (av) { - int i; - int n = AvFILL(av)+1; - EXTEND(sp, n); - for (i = 0; i < n; ++i) { - PUSHs(AvARRAY(av)[i]); - } - } - } - -#endif - -# -- end of DBD::~DRIVER~::db - -# ------------------------------------------------------------ -# statement interface -# ------------------------------------------------------------ -MODULE = DBD::~DRIVER~ PACKAGE = DBD::~DRIVER~::st - - -void -_prepare(sth, statement, attribs=Nullsv) - SV * sth - SV * statement - SV * attribs - CODE: - { - D_imp_sth(sth); - DBD_ATTRIBS_CHECK("_prepare", sth, attribs); -#ifdef dbd_st_prepare_sv - ST(0) = dbd_st_prepare_sv(sth, imp_sth, statement, attribs) ? &sv_yes : &sv_no; -#else - ST(0) = dbd_st_prepare(sth, imp_sth, SvPV_nolen(statement), attribs) ? &sv_yes : &sv_no; -#endif - } - - -#ifdef dbd_st_rows - -void -rows(sth) - SV * sth - CODE: - D_imp_sth(sth); - XST_mIV(0, dbd_st_rows(sth, imp_sth)); - -#endif /* dbd_st_rows */ - - -#ifdef dbd_st_bind_col - -void -bind_col(sth, col, ref, attribs=Nullsv) - SV * sth - SV * col - SV * ref - SV * attribs - CODE: - { - IV sql_type = 0; - D_imp_sth(sth); - if (SvGMAGICAL(ref)) - mg_get(ref); - if (attribs) { - if (SvNIOK(attribs)) { - sql_type = SvIV(attribs); - attribs = Nullsv; - } - else { - SV **svp; - DBD_ATTRIBS_CHECK("bind_col", sth, attribs); - /* XXX we should perhaps complain if TYPE is not SvNIOK */ - DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); - } - } - switch(dbd_st_bind_col(sth, imp_sth, col, ref, sql_type, attribs)) { - case 2: ST(0) = &sv_yes; /* job done completely */ - break; - case 1: /* fallback to DBI default */ - ST(0) = (DBIc_DBISTATE(imp_sth)->bind_col(sth, col, ref, attribs)) - ? &sv_yes : &sv_no; - break; - default: ST(0) = &sv_no; /* dbd_st_bind_col has called set_err */ - break; - } - } - -#endif /* dbd_st_bind_col */ - -void -bind_param(sth, param, value, attribs=Nullsv) - SV * sth - SV * param - SV * value - SV * attribs - CODE: - { - IV sql_type = 0; - D_imp_sth(sth); - if (SvGMAGICAL(value)) - mg_get(value); - if (attribs) { - if (SvNIOK(attribs)) { - sql_type = SvIV(attribs); - attribs = Nullsv; - } - else { - SV **svp; - DBD_ATTRIBS_CHECK("bind_param", sth, attribs); - /* XXX we should perhaps complain if TYPE is not SvNIOK */ - DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); - } - } - ST(0) = dbd_bind_ph(sth, imp_sth, param, value, sql_type, attribs, FALSE, 0) - ? &sv_yes : &sv_no; - } - - -void -bind_param_inout(sth, param, value_ref, maxlen, attribs=Nullsv) - SV * sth - SV * param - SV * value_ref - IV maxlen - SV * attribs - CODE: - { - IV sql_type = 0; - D_imp_sth(sth); - SV *value; - if (!SvROK(value_ref) || SvTYPE(SvRV(value_ref)) > SVt_PVMG) - croak("bind_param_inout needs a reference to a scalar value"); - value = SvRV(value_ref); - if (SvREADONLY(value)) - croak("Modification of a read-only value attempted"); - if (SvGMAGICAL(value)) - mg_get(value); - if (attribs) { - if (SvNIOK(attribs)) { - sql_type = SvIV(attribs); - attribs = Nullsv; - } - else { - SV **svp; - DBD_ATTRIBS_CHECK("bind_param", sth, attribs); - DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); - } - } - ST(0) = dbd_bind_ph(sth, imp_sth, param, value, sql_type, attribs, TRUE, maxlen) - ? &sv_yes : &sv_no; - } - - -void -execute(sth, ...) - SV * sth - CODE: - D_imp_sth(sth); - int retval; - if (items > 1) { /* need to bind params */ - if (!dbdxst_bind_params(sth, imp_sth, items, ax) ) { - XSRETURN_UNDEF; - } - } - /* XXX this code is duplicated in selectrow_arrayref above */ - if (DBIc_ROW_COUNT(imp_sth) > 0) /* reset for re-execute */ - DBIc_ROW_COUNT(imp_sth) = 0; - retval = dbd_st_execute(sth, imp_sth); - /* remember that dbd_st_execute must return <= -2 for error */ - if (retval == 0) /* ok with no rows affected */ - XST_mPV(0, "0E0"); /* (true but zero) */ - else if (retval < -1) /* -1 == unknown number of rows */ - XST_mUNDEF(0); /* <= -2 means error */ - else - XST_mIV(0, retval); /* typically 1, rowcount or -1 */ - - -#ifdef dbd_st_execute_for_fetch - -void -execute_for_fetch(sth, fetch_tuple_sub, tuple_status = Nullsv) - SV * sth - SV * fetch_tuple_sub - SV * tuple_status - CODE: - { - D_imp_sth(sth); - ST(0) = dbd_st_execute_for_fetch(sth, imp_sth, fetch_tuple_sub, tuple_status); - } - -#endif - - - -void -fetchrow_arrayref(sth) - SV * sth - ALIAS: - fetch = 1 - CODE: - D_imp_sth(sth); - AV *av; - if (0) ix = ix; /* avoid unused variable warning */ - av = dbd_st_fetch(sth, imp_sth); - ST(0) = (av) ? sv_2mortal(newRV((SV *)av)) : &PL_sv_undef; - - -void -fetchrow_array(sth) - SV * sth - ALIAS: - fetchrow = 1 - PPCODE: - D_imp_sth(sth); - AV *av; - av = dbd_st_fetch(sth, imp_sth); - if (av) { - int i; - int num_fields = AvFILL(av)+1; - EXTEND(sp, num_fields); - for(i=0; i < num_fields; ++i) { - PUSHs(AvARRAY(av)[i]); - } - if (0) ix = ix; /* avoid unused variable warning */ - } - - -void -fetchall_arrayref(sth, slice=&PL_sv_undef, batch_row_count=&PL_sv_undef) - SV * sth - SV * slice - SV * batch_row_count - CODE: - if (SvOK(slice)) { /* fallback to perl implementation */ - SV *tmp = dbixst_bounce_method("DBD::~DRIVER~::st::SUPER::fetchall_arrayref", 3); - SPAGAIN; - ST(0) = tmp; - } - else { - ST(0) = dbdxst_fetchall_arrayref(sth, slice, batch_row_count); - } - - -void -finish(sth) - SV * sth - CODE: - D_imp_sth(sth); - D_imp_dbh_from_sth; - if (!DBIc_ACTIVE(imp_sth)) { - /* No active statement to finish */ - XSRETURN_YES; - } - if (!DBIc_ACTIVE(imp_dbh)) { - /* Either an explicit disconnect() or global destruction */ - /* has disconnected us from the database. Finish is meaningless */ - DBIc_ACTIVE_off(imp_sth); - XSRETURN_YES; - } -#ifdef dbd_st_finish3 - ST(0) = dbd_st_finish3(sth, imp_sth, 0) ? &sv_yes : &sv_no; -#else - ST(0) = dbd_st_finish(sth, imp_sth) ? &sv_yes : &sv_no; -#endif - - -void -blob_read(sth, field, offset, len, destrv=Nullsv, destoffset=0) - SV * sth - int field - long offset - long len - SV * destrv - long destoffset - CODE: - { - D_imp_sth(sth); - if (!destrv) - destrv = sv_2mortal(newRV(sv_2mortal(newSV(0)))); - if (dbd_st_blob_read(sth, imp_sth, field, offset, len, destrv, destoffset)) - ST(0) = SvRV(destrv); - else ST(0) = &PL_sv_undef; - } - - -void -STORE(sth, keysv, valuesv) - SV * sth - SV * keysv - SV * valuesv - CODE: - D_imp_sth(sth); - if (SvGMAGICAL(valuesv)) - mg_get(valuesv); - ST(0) = &sv_yes; - if (!dbd_st_STORE_attrib(sth, imp_sth, keysv, valuesv)) - if (!DBIc_DBISTATE(imp_sth)->set_attr(sth, keysv, valuesv)) - ST(0) = &sv_no; - - -# FETCH renamed and ALIAS'd to avoid case clash on VMS :-( -void -FETCH_attrib(sth, keysv) - SV * sth - SV * keysv - ALIAS: - FETCH = 1 - CODE: - D_imp_sth(sth); - SV *valuesv; - if (0) ix = ix; /* avoid unused variable warning */ - valuesv = dbd_st_FETCH_attrib(sth, imp_sth, keysv); - if (!valuesv) - valuesv = DBIc_DBISTATE(imp_sth)->get_attr(sth, keysv); - ST(0) = valuesv; /* dbd_st_FETCH_attrib did sv_2mortal */ - - -void -DESTROY(sth) - SV * sth - PPCODE: - /* keep in sync with default DESTROY in DBI.xs */ - D_imp_sth(sth); - ST(0) = &sv_yes; - if (!DBIc_IMPSET(imp_sth)) { /* was never fully set up */ - STRLEN lna; - if (DBIc_WARN(imp_sth) && !dirty && DBIc_DBISTATE(imp_sth)->debug >= 2) - PerlIO_printf(DBIc_LOGPIO(imp_sth), - " DESTROY for %s ignored - handle not initialised\n", - SvPV(sth,lna)); - } - else { - if (DBIc_IADESTROY(imp_sth)) { /* want's ineffective destroy */ - DBIc_ACTIVE_off(imp_sth); - if (DBIc_DBISTATE(imp_sth)->debug) - PerlIO_printf(DBIc_LOGPIO(imp_sth), " DESTROY %s skipped due to InactiveDestroy\n", SvPV_nolen(sth)); - } - if (DBIc_ACTIVE(imp_sth)) { - D_imp_dbh_from_sth; - if (!dirty && DBIc_ACTIVE(imp_dbh)) { -#ifdef dbd_st_finish3 - dbd_st_finish3(sth, imp_sth, 1); -#else - dbd_st_finish(sth, imp_sth); -#endif - } - else { - DBIc_ACTIVE_off(imp_sth); - } - } - dbd_st_destroy(sth, imp_sth); - } - -# end of ~DRIVER~.xst -# vim:ts=8:sw=4:et diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/Driver_xst.h b/Master/tlpkg/tlperl/lib/auto/DBI/Driver_xst.h deleted file mode 100755 index d3965f13eac..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/Driver_xst.h +++ /dev/null @@ -1,118 +0,0 @@ -/* -# $Id: Driver_xst.h 10378 2007-12-06 10:48:17Z timbo $ -# Copyright (c) 2002 Tim Bunce Ireland -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -*/ - - -/* This is really just a workaround for SUPER:: not working right for XS code. - * It would be better if we setup perl's context so SUPER:: did the right thing - * (borrowing the relevant magic from pp_entersub in perl pp_hot.c). - * Then we could just use call_method("SUPER::foo") instead. - * XXX remember to call SPAGAIN in the calling code after calling this! - */ -static SV * -dbixst_bounce_method(char *methname, int params) -{ - dTHX; - /* XXX this 'magic' undoes the dMARK embedded in the dXSARGS of our caller */ - /* so that the dXSARGS below can set things up as they were for our caller */ - void *xxx = PL_markstack_ptr++; - dXSARGS; /* declares sp, ax, mark, items */ - int i; - SV *sv; - int debug = 0; - D_imp_xxh(ST(0)); - if (debug >= 3) { - PerlIO_printf(DBIc_LOGPIO(imp_xxh), - " -> %s (trampoline call with %d (%ld) params)\n", methname, params, (long)items); - xxx = xxx; /* avoid unused var warning */ - } - EXTEND(SP, params); - PUSHMARK(SP); - for (i=0; i < params; ++i) { - sv = (i >= items) ? &sv_undef : ST(i); - PUSHs(sv); - } - PUTBACK; - i = perl_call_method(methname, G_SCALAR); - SPAGAIN; - sv = (i) ? POPs : &sv_undef; - PUTBACK; - if (debug >= 3) - PerlIO_printf(DBIc_LOGPIO(imp_xxh), - " <- %s= %s (trampoline call return)\n", methname, neatsvpv(sv,0)); - return sv; -} - - -static int -dbdxst_bind_params(SV *sth, imp_sth_t *imp_sth, I32 items, I32 ax) -{ - /* Handle binding supplied values to placeholders. */ - /* items = one greater than the number of params */ - /* ax = ax from calling sub, maybe adjusted to match items */ - dTHX; - int i; - SV *idx; - if (items-1 != DBIc_NUM_PARAMS(imp_sth) - && DBIc_NUM_PARAMS(imp_sth) != DBIc_NUM_PARAMS_AT_EXECUTE - ) { - char errmsg[99]; - sprintf(errmsg,"called with %d bind variables when %d are needed", - (int)items-1, DBIc_NUM_PARAMS(imp_sth)); - sv_setpv(DBIc_ERRSTR(imp_sth), errmsg); - sv_setiv(DBIc_ERR(imp_sth), (IV)-1); - return 0; - } - idx = sv_2mortal(newSViv(0)); - for(i=1; i < items ; ++i) { - SV* value = ST(i); - if (SvGMAGICAL(value)) - mg_get(value); /* trigger magic to FETCH the value */ - sv_setiv(idx, i); - if (!dbd_bind_ph(sth, imp_sth, idx, value, 0, Nullsv, FALSE, 0)) { - return 0; /* dbd_bind_ph already registered error */ - } - } - return 1; -} - -#ifndef dbd_fetchall_arrayref -static SV * -dbdxst_fetchall_arrayref(SV *sth, SV *slice, SV *batch_row_count) -{ - dTHX; - D_imp_sth(sth); - SV *rows_rvav; - if (SvOK(slice)) { /* should never get here */ - char errmsg[99]; - sprintf(errmsg,"slice param not supported by XS version of fetchall_arrayref"); - sv_setpv(DBIc_ERRSTR(imp_sth), errmsg); - sv_setiv(DBIc_ERR(imp_sth), (IV)-1); - return &sv_undef; - } - else { - IV maxrows = SvOK(batch_row_count) ? SvIV(batch_row_count) : -1; - AV *fetched_av; - AV *rows_av = newAV(); - if ( !DBIc_ACTIVE(imp_sth) && maxrows>0 ) { - /* to simplify application logic we return undef without an error */ - /* if we've fetched all the rows and called with a batch_row_count */ - return &sv_undef; - } - av_extend(rows_av, (maxrows>0) ? maxrows : 31); - while ( (maxrows < 0 || maxrows-- > 0) - && (fetched_av = dbd_st_fetch(sth, imp_sth)) - ) { - AV *copy_row_av = av_make(AvFILL(fetched_av)+1, AvARRAY(fetched_av)); - av_push(rows_av, newRV_noinc((SV*)copy_row_av)); - } - rows_rvav = sv_2mortal(newRV_noinc((SV *)rows_av)); - } - return rows_rvav; -} -#endif - diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/dbd_xsh.h b/Master/tlpkg/tlperl/lib/auto/DBI/dbd_xsh.h deleted file mode 100755 index f238bb5e2f6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/dbd_xsh.h +++ /dev/null @@ -1,58 +0,0 @@ -/* @(#)$Id: dbd_xsh.h 11724 2008-09-02 13:34:31Z mjevans $ - * - * Copyright 2000-2002 Tim Bunce - * Copyright 2002 Jonathan Leffler - * - * These prototypes are for dbdimp.c funcs used in the XS file. - * These names are #defined to driver specific names by the - * dbdimp.h file in the driver source. - */ - -#ifndef DBI_DBD_XSH_H -#define DBI_DBD_XSH_H - -void dbd_init _((dbistate_t *dbistate)); - -int dbd_discon_all _((SV *drh, imp_drh_t *imp_drh)); -SV *dbd_take_imp_data _((SV *h, imp_xxh_t *imp_xxh, void *foo)); - -/* Support for dbd_dr_data_sources and dbd_db_do added to Driver.xst in DBI v1.33 */ -/* dbd_dr_data_sources: optional: defined by a driver that calls a C */ -/* function to get the list of data sources */ -AV *dbd_dr_data_sources(SV *drh, imp_drh_t *imp_drh, SV *attrs); - -int dbd_db_login6_sv _((SV *dbh, imp_dbh_t *imp_dbh, SV *dbname, SV *uid, SV *pwd, SV*attribs)); -int dbd_db_login6 _((SV *dbh, imp_dbh_t *imp_dbh, char *dbname, char *uid, char *pwd, SV*attribs)); -int dbd_db_login _((SV *dbh, imp_dbh_t *imp_dbh, char *dbname, char *uid, char *pwd)); /* deprecated */ -/* Note: interface of dbd_db_do changed in v1.33 */ -/* Old prototype: dbd_db_do _((SV *sv, char *statement)); */ -/* dbd_db_do: optional: defined by a driver if the DBI default version is too slow */ -int dbd_db_do4 _((SV *dbh, imp_dbh_t *imp_dbh, char *statement, SV *params)); -int dbd_db_commit _((SV *dbh, imp_dbh_t *imp_dbh)); -int dbd_db_rollback _((SV *dbh, imp_dbh_t *imp_dbh)); -int dbd_db_disconnect _((SV *dbh, imp_dbh_t *imp_dbh)); -void dbd_db_destroy _((SV *dbh, imp_dbh_t *imp_dbh)); -int dbd_db_STORE_attrib _((SV *dbh, imp_dbh_t *imp_dbh, SV *keysv, SV *valuesv)); -SV *dbd_db_FETCH_attrib _((SV *dbh, imp_dbh_t *imp_dbh, SV *keysv)); -SV *dbd_db_last_insert_id _((SV *dbh, imp_dbh_t *imp_dbh, SV *catalog, SV *schema, SV *table, SV *field, SV *attr)); -AV *dbd_db_data_sources _((SV *dbh, imp_dbh_t *imp_dbh, SV *attr)); - -int dbd_st_prepare _((SV *sth, imp_sth_t *imp_sth, char *statement, SV *attribs)); -int dbd_st_prepare_sv _((SV *sth, imp_sth_t *imp_sth, SV *statement, SV *attribs)); -int dbd_st_rows _((SV *sth, imp_sth_t *imp_sth)); -int dbd_st_execute _((SV *sth, imp_sth_t *imp_sth)); -AV *dbd_st_fetch _((SV *sth, imp_sth_t *imp_sth)); -int dbd_st_finish3 _((SV *sth, imp_sth_t *imp_sth, int from_destroy)); -int dbd_st_finish _((SV *sth, imp_sth_t *imp_sth)); /* deprecated */ -void dbd_st_destroy _((SV *sth, imp_sth_t *imp_sth)); -int dbd_st_blob_read _((SV *sth, imp_sth_t *imp_sth, - int field, long offset, long len, SV *destrv, long destoffset)); -int dbd_st_STORE_attrib _((SV *sth, imp_sth_t *imp_sth, SV *keysv, SV *valuesv)); -SV *dbd_st_FETCH_attrib _((SV *sth, imp_sth_t *imp_sth, SV *keysv)); -SV *dbd_st_execute_for_fetch _((SV *sth, imp_sth_t *imp_sth, SV *fetch_tuple_sub, SV *tuple_status)); - -int dbd_bind_ph _((SV *sth, imp_sth_t *imp_sth, - SV *param, SV *value, IV sql_type, SV *attribs, - int is_inout, IV maxlen)); - -#endif /* end of dbd_xsh.h */ diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/dbi_sql.h b/Master/tlpkg/tlperl/lib/auto/DBI/dbi_sql.h deleted file mode 100755 index 1d7869d467a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/dbi_sql.h +++ /dev/null @@ -1,96 +0,0 @@ -/* $Id: dbi_sql.h 2488 2006-02-07 22:24:43Z timbo $ - * - * Copyright (c) 1997,1998,1999 Tim Bunce England - * - * See COPYRIGHT section in DBI.pm for usage and distribution rights. - */ - - -/* Some core SQL CLI standard (ODBC) declarations */ -#ifndef SQL_SUCCESS /* don't clash with ODBC based drivers */ - -/* SQL datatype codes */ -#define SQL_GUID (-11) -#define SQL_WLONGVARCHAR (-10) -#define SQL_WVARCHAR (-9) -#define SQL_WCHAR (-8) -#define SQL_BIT (-7) -#define SQL_TINYINT (-6) -#define SQL_BIGINT (-5) -#define SQL_LONGVARBINARY (-4) -#define SQL_VARBINARY (-3) -#define SQL_BINARY (-2) -#define SQL_LONGVARCHAR (-1) -#define SQL_UNKNOWN_TYPE 0 -#define SQL_ALL_TYPES 0 -#define SQL_CHAR 1 -#define SQL_NUMERIC 2 -#define SQL_DECIMAL 3 -#define SQL_INTEGER 4 -#define SQL_SMALLINT 5 -#define SQL_FLOAT 6 -#define SQL_REAL 7 -#define SQL_DOUBLE 8 -#define SQL_DATETIME 9 -#define SQL_DATE 9 -#define SQL_INTERVAL 10 -#define SQL_TIME 10 -#define SQL_TIMESTAMP 11 -#define SQL_VARCHAR 12 -#define SQL_BOOLEAN 16 -#define SQL_UDT 17 -#define SQL_UDT_LOCATOR 18 -#define SQL_ROW 19 -#define SQL_REF 20 -#define SQL_BLOB 30 -#define SQL_BLOB_LOCATOR 31 -#define SQL_CLOB 40 -#define SQL_CLOB_LOCATOR 41 -#define SQL_ARRAY 50 -#define SQL_ARRAY_LOCATOR 51 -#define SQL_MULTISET 55 -#define SQL_MULTISET_LOCATOR 56 -#define SQL_TYPE_DATE 91 -#define SQL_TYPE_TIME 92 -#define SQL_TYPE_TIMESTAMP 93 -#define SQL_TYPE_TIME_WITH_TIMEZONE 94 -#define SQL_TYPE_TIMESTAMP_WITH_TIMEZONE 95 -#define SQL_INTERVAL_YEAR 101 -#define SQL_INTERVAL_MONTH 102 -#define SQL_INTERVAL_DAY 103 -#define SQL_INTERVAL_HOUR 104 -#define SQL_INTERVAL_MINUTE 105 -#define SQL_INTERVAL_SECOND 106 -#define SQL_INTERVAL_YEAR_TO_MONTH 107 -#define SQL_INTERVAL_DAY_TO_HOUR 108 -#define SQL_INTERVAL_DAY_TO_MINUTE 109 -#define SQL_INTERVAL_DAY_TO_SECOND 110 -#define SQL_INTERVAL_HOUR_TO_MINUTE 111 -#define SQL_INTERVAL_HOUR_TO_SECOND 112 -#define SQL_INTERVAL_MINUTE_TO_SECOND 113 - - -/* Main return codes */ -#define SQL_ERROR (-1) -#define SQL_SUCCESS 0 -#define SQL_SUCCESS_WITH_INFO 1 -#define SQL_NO_DATA_FOUND 100 - -/* - * for ODBC SQL Cursor Types - */ -#define SQL_CURSOR_FORWARD_ONLY 0UL -#define SQL_CURSOR_KEYSET_DRIVEN 1UL -#define SQL_CURSOR_DYNAMIC 2UL -#define SQL_CURSOR_STATIC 3UL -#define SQL_CURSOR_TYPE_DEFAULT SQL_CURSOR_FORWARD_ONLY - -#endif /* SQL_SUCCESS */ - -/* Handy macro for testing for success and success with info. */ -/* BEWARE that this macro can have side effects since rc appears twice! */ -/* So DONT use it as if(SQL_ok(func(...))) { ... } */ -#define SQL_ok(rc) ((rc)==SQL_SUCCESS || (rc)==SQL_SUCCESS_WITH_INFO) - - -/* end of dbi_sql.h */ diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/dbipport.h b/Master/tlpkg/tlperl/lib/auto/DBI/dbipport.h deleted file mode 100755 index 8a9c47c0aed..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/dbipport.h +++ /dev/null @@ -1,4954 +0,0 @@ -#if 0 -<<'SKIP'; -#endif -/* ----------------------------------------------------------------------- - - ppport.h -- Perl/Pollution/Portability Version 3.06_01 - - Automatically created by Devel::PPPort running under - perl 5.008008 on Wed Apr 26 01:39:44 2006. - - Do NOT edit this file directly! -- Edit PPPort_pm.PL and the - includes in parts/inc/ instead. - - Use 'perldoc ppport.h' to view the documentation below. - ----------------------------------------------------------------------- - -SKIP - -=pod - -=head1 NAME - -ppport.h - Perl/Pollution/Portability version 3.06_01 - -=head1 SYNOPSIS - - perl ppport.h [options] [source files] - - Searches current directory for files if no [source files] are given - - --help show short help - - --patch=file write one patch file with changes - --copy=suffix write changed copies with suffix - --diff=program use diff program and options - - --compat-version=version provide compatibility with Perl version - --cplusplus accept C++ comments - - --quiet don't output anything except fatal errors - --nodiag don't show diagnostics - --nohints don't show hints - --nochanges don't suggest changes - --nofilter don't filter input files - - --list-provided list provided API - --list-unsupported list unsupported API - --api-info=name show Perl API portability information - -=head1 COMPATIBILITY - -This version of F<ppport.h> is designed to support operation with Perl -installations back to 5.003, and has been tested up to 5.9.3. - -=head1 OPTIONS - -=head2 --help - -Display a brief usage summary. - -=head2 --patch=I<file> - -If this option is given, a single patch file will be created if -any changes are suggested. This requires a working diff program -to be installed on your system. - -=head2 --copy=I<suffix> - -If this option is given, a copy of each file will be saved with -the given suffix that contains the suggested changes. This does -not require any external programs. - -If neither C<--patch> or C<--copy> are given, the default is to -simply print the diffs for each file. This requires either -C<Text::Diff> or a C<diff> program to be installed. - -=head2 --diff=I<program> - -Manually set the diff program and options to use. The default -is to use C<Text::Diff>, when installed, and output unified -context diffs. - -=head2 --compat-version=I<version> - -Tell F<ppport.h> to check for compatibility with the given -Perl version. The default is to check for compatibility with Perl -version 5.003. You can use this option to reduce the output -of F<ppport.h> if you intend to be backward compatible only -up to a certain Perl version. - -=head2 --cplusplus - -Usually, F<ppport.h> will detect C++ style comments and -replace them with C style comments for portability reasons. -Using this option instructs F<ppport.h> to leave C++ -comments untouched. - -=head2 --quiet - -Be quiet. Don't print anything except fatal errors. - -=head2 --nodiag - -Don't output any diagnostic messages. Only portability -alerts will be printed. - -=head2 --nohints - -Don't output any hints. Hints often contain useful portability -notes. - -=head2 --nochanges - -Don't suggest any changes. Only give diagnostic output and hints -unless these are also deactivated. - -=head2 --nofilter - -Don't filter the list of input files. By default, files not looking -like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped. - -=head2 --list-provided - -Lists the API elements for which compatibility is provided by -F<ppport.h>. Also lists if it must be explicitly requested, -if it has dependencies, and if there are hints for it. - -=head2 --list-unsupported - -Lists the API elements that are known not to be supported by -F<ppport.h> and below which version of Perl they probably -won't be available or work. - -=head2 --api-info=I<name> - -Show portability information for API elements matching I<name>. -If I<name> is surrounded by slashes, it is interpreted as a regular -expression. - -=head1 DESCRIPTION - -In order for a Perl extension (XS) module to be as portable as possible -across differing versions of Perl itself, certain steps need to be taken. - -=over 4 - -=item * - -Including this header is the first major one. This alone will give you -access to a large part of the Perl API that hasn't been available in -earlier Perl releases. Use - - perl ppport.h --list-provided - -to see which API elements are provided by ppport.h. - -=item * - -You should avoid using deprecated parts of the API. For example, using -global Perl variables without the C<PL_> prefix is deprecated. Also, -some API functions used to have a C<perl_> prefix. Using this form is -also deprecated. You can safely use the supported API, as F<ppport.h> -will provide wrappers for older Perl versions. - -=item * - -If you use one of a few functions that were not present in earlier -versions of Perl, and that can't be provided using a macro, you have -to explicitly request support for these functions by adding one or -more C<#define>s in your source code before the inclusion of F<ppport.h>. - -These functions will be marked C<explicit> in the list shown by -C<--list-provided>. - -Depending on whether you module has a single or multiple files that -use such functions, you want either C<static> or global variants. - -For a C<static> function, use: - - #define NEED_function - -For a global function, use: - - #define NEED_function_GLOBAL - -Note that you mustn't have more than one global request for one -function in your project. - - Function Static Request Global Request - ----------------------------------------------------------------------------------------- - eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL - grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL - grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL - grok_number() NEED_grok_number NEED_grok_number_GLOBAL - grok_numeric_radix() NEED_grok_numeric_radix NEED_grok_numeric_radix_GLOBAL - grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL - newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL - newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL - sv_2pv_nolen() NEED_sv_2pv_nolen NEED_sv_2pv_nolen_GLOBAL - sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL - sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL - sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_nocontext_GLOBAL - sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLOBAL - sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_nocontext_GLOBAL - vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL - -To avoid namespace conflicts, you can change the namespace of the -explicitly exported functions using the C<DPPP_NAMESPACE> macro. -Just C<#define> the macro before including C<ppport.h>: - - #define DPPP_NAMESPACE MyOwnNamespace_ - #include "ppport.h" - -The default namespace is C<DPPP_>. - -=back - -The good thing is that most of the above can be checked by running -F<ppport.h> on your source code. See the next section for -details. - -=head1 EXAMPLES - -To verify whether F<ppport.h> is needed for your module, whether you -should make any changes to your code, and whether any special defines -should be used, F<ppport.h> can be run as a Perl script to check your -source code. Simply say: - - perl ppport.h - -The result will usually be a list of patches suggesting changes -that should at least be acceptable, if not necessarily the most -efficient solution, or a fix for all possible problems. - -If you know that your XS module uses features only available in -newer Perl releases, if you're aware that it uses C++ comments, -and if you want all suggestions as a single patch file, you could -use something like this: - - perl ppport.h --compat-version=5.6.0 --cplusplus --patch=test.diff - -If you only want your code to be scanned without any suggestions -for changes, use: - - perl ppport.h --nochanges - -You can specify a different C<diff> program or options, using -the C<--diff> option: - - perl ppport.h --diff='diff -C 10' - -This would output context diffs with 10 lines of context. - -To display portability information for the C<newSVpvn> function, -use: - - perl ppport.h --api-info=newSVpvn - -Since the argument to C<--api-info> can be a regular expression, -you can use - - perl ppport.h --api-info=/_nomg$/ - -to display portability information for all C<_nomg> functions or - - perl ppport.h --api-info=/./ - -to display information for all known API elements. - -=head1 BUGS - -If this version of F<ppport.h> is causing failure during -the compilation of this module, please check if newer versions -of either this module or C<Devel::PPPort> are available on CPAN -before sending a bug report. - -If F<ppport.h> was generated using the latest version of -C<Devel::PPPort> and is causing failure of this module, please -file a bug report using the CPAN Request Tracker at L<http://rt.cpan.org/>. - -Please include the following information: - -=over 4 - -=item 1. - -The complete output from running "perl -V" - -=item 2. - -This file. - -=item 3. - -The name and version of the module you were trying to build. - -=item 4. - -A full log of the build that failed. - -=item 5. - -Any other information that you think could be relevant. - -=back - -For the latest version of this code, please get the C<Devel::PPPort> -module from CPAN. - -=head1 COPYRIGHT - -Version 3.x, Copyright (c) 2004-2005, Marcus Holland-Moritz. - -Version 2.x, Copyright (C) 2001, Paul Marquess. - -Version 1.x, Copyright (C) 1999, Kenneth Albanowski. - -This program is free software; you can redistribute it and/or -modify it under the same terms as Perl itself. - -=head1 SEE ALSO - -See L<Devel::PPPort>. - -=cut - -use strict; - -my %opt = ( - quiet => 0, - diag => 1, - hints => 1, - changes => 1, - cplusplus => 0, - filter => 1, -); - -my($ppport) = $0 =~ /([\w.]+)$/; -my $LF = '(?:\r\n|[\r\n])'; # line feed -my $HS = "[ \t]"; # horizontal whitespace - -eval { - require Getopt::Long; - Getopt::Long::GetOptions(\%opt, qw( - help quiet diag! filter! hints! changes! cplusplus - patch=s copy=s diff=s compat-version=s - list-provided list-unsupported api-info=s - )) or usage(); -}; - -if ($@ and grep /^-/, @ARGV) { - usage() if "@ARGV" =~ /^--?h(?:elp)?$/; - die "Getopt::Long not found. Please don't use any options.\n"; -} - -usage() if $opt{help}; - -if (exists $opt{'compat-version'}) { - my($r,$v,$s) = eval { parse_version($opt{'compat-version'}) }; - if ($@) { - die "Invalid version number format: '$opt{'compat-version'}'\n"; - } - die "Only Perl 5 is supported\n" if $r != 5; - die "Invalid version number: $opt{'compat-version'}\n" if $v >= 1000 || $s >= 1000; - $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s; -} -else { - $opt{'compat-version'} = 5; -} - -# Never use C comments in this file!!!!! -my $ccs = '/'.'*'; -my $cce = '*'.'/'; -my $rccs = quotemeta $ccs; -my $rcce = quotemeta $cce; - -my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/ - ? ( $1 => { - ($2 ? ( base => $2 ) : ()), - ($3 ? ( todo => $3 ) : ()), - (index($4, 'v') >= 0 ? ( varargs => 1 ) : ()), - (index($4, 'p') >= 0 ? ( provided => 1 ) : ()), - (index($4, 'n') >= 0 ? ( nothxarg => 1 ) : ()), - } ) - : die "invalid spec: $_" } qw( -AvFILLp|5.004050||p -AvFILL||| -CLASS|||n -CX_CURPAD_SAVE||| -CX_CURPAD_SV||| -CopFILEAV|5.006000||p -CopFILEGV_set|5.006000||p -CopFILEGV|5.006000||p -CopFILESV|5.006000||p -CopFILE_set|5.006000||p -CopFILE|5.006000||p -CopSTASHPV_set|5.006000||p -CopSTASHPV|5.006000||p -CopSTASH_eq|5.006000||p -CopSTASH_set|5.006000||p -CopSTASH|5.006000||p -CopyD|5.009002||p -Copy||| -CvPADLIST||| -CvSTASH||| -CvWEAKOUTSIDE||| -DEFSV|5.004050||p -END_EXTERN_C|5.005000||p -ENTER||| -ERRSV|5.004050||p -EXTEND||| -EXTERN_C|5.005000||p -FREETMPS||| -GIMME_V||5.004000|n -GIMME|||n -GROK_NUMERIC_RADIX|5.007002||p -G_ARRAY||| -G_DISCARD||| -G_EVAL||| -G_NOARGS||| -G_SCALAR||| -G_VOID||5.004000| -GetVars||| -GvSV||| -Gv_AMupdate||| -HEf_SVKEY||5.004000| -HeHASH||5.004000| -HeKEY||5.004000| -HeKLEN||5.004000| -HePV||5.004000| -HeSVKEY_force||5.004000| -HeSVKEY_set||5.004000| -HeSVKEY||5.004000| -HeVAL||5.004000| -HvNAME||| -INT2PTR|5.006000||p -IN_LOCALE_COMPILETIME|5.007002||p -IN_LOCALE_RUNTIME|5.007002||p -IN_LOCALE|5.007002||p -IN_PERL_COMPILETIME|5.008001||p -IS_NUMBER_GREATER_THAN_UV_MAX|5.007002||p -IS_NUMBER_INFINITY|5.007002||p -IS_NUMBER_IN_UV|5.007002||p -IS_NUMBER_NAN|5.007003||p -IS_NUMBER_NEG|5.007002||p -IS_NUMBER_NOT_INT|5.007002||p -IVSIZE|5.006000||p -IVTYPE|5.006000||p -IVdf|5.006000||p -LEAVE||| -LVRET||| -MARK||| -MY_CXT_CLONE|5.009002||p -MY_CXT_INIT|5.007003||p -MY_CXT|5.007003||p -MoveD|5.009002||p -Move||| -NEWSV||| -NOOP|5.005000||p -NUM2PTR|5.006000||p -NVTYPE|5.006000||p -NVef|5.006001||p -NVff|5.006001||p -NVgf|5.006001||p -Newc||| -Newz||| -New||| -Nullav||| -Nullch||| -Nullcv||| -Nullhv||| -Nullsv||| -ORIGMARK||| -PAD_BASE_SV||| -PAD_CLONE_VARS||| -PAD_COMPNAME_FLAGS||| -PAD_COMPNAME_GEN_set||| -PAD_COMPNAME_GEN||| -PAD_COMPNAME_OURSTASH||| -PAD_COMPNAME_PV||| -PAD_COMPNAME_TYPE||| -PAD_RESTORE_LOCAL||| -PAD_SAVE_LOCAL||| -PAD_SAVE_SETNULLPAD||| -PAD_SETSV||| -PAD_SET_CUR_NOSAVE||| -PAD_SET_CUR||| -PAD_SVl||| -PAD_SV||| -PERL_BCDVERSION|5.009003||p -PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p -PERL_INT_MAX|5.004000||p -PERL_INT_MIN|5.004000||p -PERL_LONG_MAX|5.004000||p -PERL_LONG_MIN|5.004000||p -PERL_MAGIC_arylen|5.007002||p -PERL_MAGIC_backref|5.007002||p -PERL_MAGIC_bm|5.007002||p -PERL_MAGIC_collxfrm|5.007002||p -PERL_MAGIC_dbfile|5.007002||p -PERL_MAGIC_dbline|5.007002||p -PERL_MAGIC_defelem|5.007002||p -PERL_MAGIC_envelem|5.007002||p -PERL_MAGIC_env|5.007002||p -PERL_MAGIC_ext|5.007002||p -PERL_MAGIC_fm|5.007002||p -PERL_MAGIC_glob|5.007002||p -PERL_MAGIC_isaelem|5.007002||p -PERL_MAGIC_isa|5.007002||p -PERL_MAGIC_mutex|5.007002||p -PERL_MAGIC_nkeys|5.007002||p -PERL_MAGIC_overload_elem|5.007002||p -PERL_MAGIC_overload_table|5.007002||p -PERL_MAGIC_overload|5.007002||p -PERL_MAGIC_pos|5.007002||p -PERL_MAGIC_qr|5.007002||p -PERL_MAGIC_regdata|5.007002||p -PERL_MAGIC_regdatum|5.007002||p -PERL_MAGIC_regex_global|5.007002||p -PERL_MAGIC_shared_scalar|5.007003||p -PERL_MAGIC_shared|5.007003||p -PERL_MAGIC_sigelem|5.007002||p -PERL_MAGIC_sig|5.007002||p -PERL_MAGIC_substr|5.007002||p -PERL_MAGIC_sv|5.007002||p -PERL_MAGIC_taint|5.007002||p -PERL_MAGIC_tiedelem|5.007002||p -PERL_MAGIC_tiedscalar|5.007002||p -PERL_MAGIC_tied|5.007002||p -PERL_MAGIC_utf8|5.008001||p -PERL_MAGIC_uvar_elem|5.007003||p -PERL_MAGIC_uvar|5.007002||p -PERL_MAGIC_vec|5.007002||p -PERL_MAGIC_vstring|5.008001||p -PERL_QUAD_MAX|5.004000||p -PERL_QUAD_MIN|5.004000||p -PERL_REVISION|5.006000||p -PERL_SCAN_ALLOW_UNDERSCORES|5.007003||p -PERL_SCAN_DISALLOW_PREFIX|5.007003||p -PERL_SCAN_GREATER_THAN_UV_MAX|5.007003||p -PERL_SCAN_SILENT_ILLDIGIT|5.008001||p -PERL_SHORT_MAX|5.004000||p -PERL_SHORT_MIN|5.004000||p -PERL_SUBVERSION|5.006000||p -PERL_UCHAR_MAX|5.004000||p -PERL_UCHAR_MIN|5.004000||p -PERL_UINT_MAX|5.004000||p -PERL_UINT_MIN|5.004000||p -PERL_ULONG_MAX|5.004000||p -PERL_ULONG_MIN|5.004000||p -PERL_UNUSED_DECL|5.007002||p -PERL_UQUAD_MAX|5.004000||p -PERL_UQUAD_MIN|5.004000||p -PERL_USHORT_MAX|5.004000||p -PERL_USHORT_MIN|5.004000||p -PERL_VERSION|5.006000||p -PL_DBsingle|||pn -PL_DBsub|||pn -PL_DBtrace|||n -PL_Sv|5.005000||p -PL_compiling|5.004050||p -PL_copline|5.005000||p -PL_curcop|5.004050||p -PL_curstash|5.004050||p -PL_debstash|5.004050||p -PL_defgv|5.004050||p -PL_diehook|5.004050||p -PL_dirty|5.004050||p -PL_dowarn|||pn -PL_errgv|5.004050||p -PL_hexdigit|5.005000||p -PL_hints|5.005000||p -PL_last_in_gv|||n -PL_modglobal||5.005000|n -PL_na|5.004050||pn -PL_no_modify|5.006000||p -PL_ofs_sv|||n -PL_perl_destruct_level|5.004050||p -PL_perldb|5.004050||p -PL_ppaddr|5.006000||p -PL_rsfp_filters|5.004050||p -PL_rsfp|5.004050||p -PL_rs|||n -PL_stack_base|5.004050||p -PL_stack_sp|5.004050||p -PL_stdingv|5.004050||p -PL_sv_arenaroot|5.004050||p -PL_sv_no|5.004050||pn -PL_sv_undef|5.004050||pn -PL_sv_yes|5.004050||pn -PL_tainted|5.004050||p -PL_tainting|5.004050||p -POPi|||n -POPl|||n -POPn|||n -POPpbytex||5.007001|n -POPpx||5.005030|n -POPp|||n -POPs|||n -PTR2IV|5.006000||p -PTR2NV|5.006000||p -PTR2UV|5.006000||p -PTR2ul|5.007001||p -PTRV|5.006000||p -PUSHMARK||| -PUSHi||| -PUSHmortal|5.009002||p -PUSHn||| -PUSHp||| -PUSHs||| -PUSHu|5.004000||p -PUTBACK||| -PerlIO_clearerr||5.007003| -PerlIO_close||5.007003| -PerlIO_eof||5.007003| -PerlIO_error||5.007003| -PerlIO_fileno||5.007003| -PerlIO_fill||5.007003| -PerlIO_flush||5.007003| -PerlIO_get_base||5.007003| -PerlIO_get_bufsiz||5.007003| -PerlIO_get_cnt||5.007003| -PerlIO_get_ptr||5.007003| -PerlIO_read||5.007003| -PerlIO_seek||5.007003| -PerlIO_set_cnt||5.007003| -PerlIO_set_ptrcnt||5.007003| -PerlIO_setlinebuf||5.007003| -PerlIO_stderr||5.007003| -PerlIO_stdin||5.007003| -PerlIO_stdout||5.007003| -PerlIO_tell||5.007003| -PerlIO_unread||5.007003| -PerlIO_write||5.007003| -Poison|5.008000||p -RETVAL|||n -Renewc||| -Renew||| -SAVECLEARSV||| -SAVECOMPPAD||| -SAVEPADSV||| -SAVETMPS||| -SAVE_DEFSV|5.004050||p -SPAGAIN||| -SP||| -START_EXTERN_C|5.005000||p -START_MY_CXT|5.007003||p -STMT_END|||p -STMT_START|||p -ST||| -SVt_IV||| -SVt_NV||| -SVt_PVAV||| -SVt_PVCV||| -SVt_PVHV||| -SVt_PVMG||| -SVt_PV||| -Safefree||| -Slab_Alloc||| -Slab_Free||| -StructCopy||| -SvCUR_set||| -SvCUR||| -SvEND||| -SvGETMAGIC|5.004050||p -SvGROW||| -SvIOK_UV||5.006000| -SvIOK_notUV||5.006000| -SvIOK_off||| -SvIOK_only_UV||5.006000| -SvIOK_only||| -SvIOK_on||| -SvIOKp||| -SvIOK||| -SvIVX||| -SvIV_nomg|5.009001||p -SvIV_set||| -SvIVx||| -SvIV||| -SvIsCOW_shared_hash||5.008003| -SvIsCOW||5.008003| -SvLEN_set||| -SvLEN||| -SvLOCK||5.007003| -SvMAGIC_set||5.009003| -SvNIOK_off||| -SvNIOKp||| -SvNIOK||| -SvNOK_off||| -SvNOK_only||| -SvNOK_on||| -SvNOKp||| -SvNOK||| -SvNVX||| -SvNV_set||| -SvNVx||| -SvNV||| -SvOK||| -SvOOK||| -SvPOK_off||| -SvPOK_only_UTF8||5.006000| -SvPOK_only||| -SvPOK_on||| -SvPOKp||| -SvPOK||| -SvPVX||| -SvPV_force_nomg|5.007002||p -SvPV_force||| -SvPV_nolen|5.006000||p -SvPV_nomg|5.007002||p -SvPV_set||| -SvPVbyte_force||5.009002| -SvPVbyte_nolen||5.006000| -SvPVbytex_force||5.006000| -SvPVbytex||5.006000| -SvPVbyte|5.006000||p -SvPVutf8_force||5.006000| -SvPVutf8_nolen||5.006000| -SvPVutf8x_force||5.006000| -SvPVutf8x||5.006000| -SvPVutf8||5.006000| -SvPVx||| -SvPV||| -SvREFCNT_dec||| -SvREFCNT_inc||| -SvREFCNT||| -SvROK_off||| -SvROK_on||| -SvROK||| -SvRV_set||5.009003| -SvRV||| -SvSETMAGIC||| -SvSHARE||5.007003| -SvSTASH_set||5.009003| -SvSTASH||| -SvSetMagicSV_nosteal||5.004000| -SvSetMagicSV||5.004000| -SvSetSV_nosteal||5.004000| -SvSetSV||| -SvTAINTED_off||5.004000| -SvTAINTED_on||5.004000| -SvTAINTED||5.004000| -SvTAINT||| -SvTRUE||| -SvTYPE||| -SvUNLOCK||5.007003| -SvUOK||5.007001| -SvUPGRADE||| -SvUTF8_off||5.006000| -SvUTF8_on||5.006000| -SvUTF8||5.006000| -SvUVXx|5.004000||p -SvUVX|5.004000||p -SvUV_nomg|5.009001||p -SvUV_set||5.009003| -SvUVx|5.004000||p -SvUV|5.004000||p -SvVOK||5.008001| -THIS|||n -UNDERBAR|5.009002||p -UVSIZE|5.006000||p -UVTYPE|5.006000||p -UVXf|5.007001||p -UVof|5.006000||p -UVuf|5.006000||p -UVxf|5.006000||p -XCPT_CATCH|5.009002||p -XCPT_RETHROW|5.009002||p -XCPT_TRY_END|5.009002||p -XCPT_TRY_START|5.009002||p -XPUSHi||| -XPUSHmortal|5.009002||p -XPUSHn||| -XPUSHp||| -XPUSHs||| -XPUSHu|5.004000||p -XSRETURN_EMPTY||| -XSRETURN_IV||| -XSRETURN_NO||| -XSRETURN_NV||| -XSRETURN_PV||| -XSRETURN_UNDEF||| -XSRETURN_UV|5.008001||p -XSRETURN_YES||| -XSRETURN||| -XST_mIV||| -XST_mNO||| -XST_mNV||| -XST_mPV||| -XST_mUNDEF||| -XST_mUV|5.008001||p -XST_mYES||| -XS_VERSION_BOOTCHECK||| -XS_VERSION||| -XS||| -ZeroD|5.009002||p -Zero||| -_aMY_CXT|5.007003||p -_pMY_CXT|5.007003||p -aMY_CXT_|5.007003||p -aMY_CXT|5.007003||p -aTHX_|5.006000||p -aTHX|5.006000||p -add_data||| -allocmy||| -amagic_call||| -any_dup||| -ao||| -append_elem||| -append_list||| -apply_attrs_my||| -apply_attrs_string||5.006001| -apply_attrs||| -apply||| -asIV||| -asUV||| -atfork_lock||5.007003|n -atfork_unlock||5.007003|n -av_arylen_p||5.009003| -av_clear||| -av_delete||5.006000| -av_exists||5.006000| -av_extend||| -av_fake||| -av_fetch||| -av_fill||| -av_len||| -av_make||| -av_pop||| -av_push||| -av_reify||| -av_shift||| -av_store||| -av_undef||| -av_unshift||| -ax|||n -bad_type||| -bind_match||| -block_end||| -block_gimme||5.004000| -block_start||| -boolSV|5.004000||p -boot_core_PerlIO||| -boot_core_UNIVERSAL||| -boot_core_xsutils||| -bytes_from_utf8||5.007001| -bytes_to_utf8||5.006001| -cache_re||| -call_argv|5.006000||p -call_atexit||5.006000| -call_body||| -call_list_body||| -call_list||5.004000| -call_method|5.006000||p -call_pv|5.006000||p -call_sv|5.006000||p -calloc||5.007002|n -cando||| -cast_i32||5.006000| -cast_iv||5.006000| -cast_ulong||5.006000| -cast_uv||5.006000| -check_uni||| -checkcomma||| -checkposixcc||| -ck_anoncode||| -ck_bitop||| -ck_concat||| -ck_defined||| -ck_delete||| -ck_die||| -ck_eof||| -ck_eval||| -ck_exec||| -ck_exists||| -ck_exit||| -ck_ftst||| -ck_fun||| -ck_glob||| -ck_grep||| -ck_index||| -ck_join||| -ck_lengthconst||| -ck_lfun||| -ck_listiob||| -ck_match||| -ck_method||| -ck_null||| -ck_open||| -ck_repeat||| -ck_require||| -ck_retarget||| -ck_return||| -ck_rfun||| -ck_rvconst||| -ck_sassign||| -ck_select||| -ck_shift||| -ck_sort||| -ck_spair||| -ck_split||| -ck_subr||| -ck_substr||| -ck_svconst||| -ck_trunc||| -ck_unpack||| -cl_and||| -cl_anything||| -cl_init_zero||| -cl_init||| -cl_is_anything||| -cl_or||| -closest_cop||| -convert||| -cop_free||| -cr_textfilter||| -croak_nocontext|||vn -croak|||v -csighandler||5.007001|n -custom_op_desc||5.007003| -custom_op_name||5.007003| -cv_ckproto||| -cv_clone||| -cv_const_sv||5.004000| -cv_dump||| -cv_undef||| -cx_dump||5.005000| -cx_dup||| -cxinc||| -dAXMARK||5.009003| -dAX|5.007002||p -dITEMS|5.007002||p -dMARK||| -dMY_CXT_SV|5.007003||p -dMY_CXT|5.007003||p -dNOOP|5.006000||p -dORIGMARK||| -dSP||| -dTHR|5.004050||p -dTHXa|5.006000||p -dTHXoa|5.006000||p -dTHX|5.006000||p -dUNDERBAR|5.009002||p -dXCPT|5.009002||p -dXSARGS||| -dXSI32||| -dXSTARG|5.006000||p -deb_curcv||| -deb_nocontext|||vn -deb_stack_all||| -deb_stack_n||| -debop||5.005000| -debprofdump||5.005000| -debprof||| -debstackptrs||5.007003| -debstack||5.007003| -deb||5.007003|v -del_he||| -del_sv||| -delimcpy||5.004000| -depcom||| -deprecate_old||| -deprecate||| -despatch_signals||5.007001| -die_nocontext|||vn -die_where||| -die|||v -dirp_dup||| -div128||| -djSP||| -do_aexec5||| -do_aexec||| -do_aspawn||| -do_binmode||5.004050| -do_chomp||| -do_chop||| -do_close||| -do_dump_pad||| -do_eof||| -do_exec3||| -do_execfree||| -do_exec||| -do_gv_dump||5.006000| -do_gvgv_dump||5.006000| -do_hv_dump||5.006000| -do_ipcctl||| -do_ipcget||| -do_join||| -do_kv||| -do_magic_dump||5.006000| -do_msgrcv||| -do_msgsnd||| -do_oddball||| -do_op_dump||5.006000| -do_open9||5.006000| -do_openn||5.007001| -do_open||5.004000| -do_pipe||| -do_pmop_dump||5.006000| -do_print||| -do_readline||| -do_seek||| -do_semop||| -do_shmio||| -do_spawn_nowait||| -do_spawn||| -do_sprintf||| -do_sv_dump||5.006000| -do_sysseek||| -do_tell||| -do_trans_complex_utf8||| -do_trans_complex||| -do_trans_count_utf8||| -do_trans_count||| -do_trans_simple_utf8||| -do_trans_simple||| -do_trans||| -do_vecget||| -do_vecset||| -do_vop||| -docatch_body||| -docatch||| -doeval||| -dofile||| -dofindlabel||| -doform||| -doing_taint||5.008001|n -dooneliner||| -doopen_pm||| -doparseform||| -dopoptoeval||| -dopoptolabel||| -dopoptoloop||| -dopoptosub_at||| -dopoptosub||| -dounwind||| -dowantarray||| -dump_all||5.006000| -dump_eval||5.006000| -dump_fds||| -dump_form||5.006000| -dump_indent||5.006000|v -dump_mstats||| -dump_packsubs||5.006000| -dump_sub||5.006000| -dump_vindent||5.006000| -dumpuntil||| -dup_attrlist||| -emulate_eaccess||| -eval_pv|5.006000||p -eval_sv|5.006000||p -expect_number||| -fbm_compile||5.005000| -fbm_instr||5.005000| -fd_on_nosuid_fs||| -filter_add||| -filter_del||| -filter_gets||| -filter_read||| -find_beginning||| -find_byclass||| -find_in_my_stash||| -find_runcv||| -find_rundefsvoffset||5.009002| -find_script||| -find_uninit_var||| -fold_constants||| -forbid_setid||| -force_ident||| -force_list||| -force_next||| -force_version||| -force_word||| -form_nocontext|||vn -form||5.004000|v -fp_dup||| -fprintf_nocontext|||vn -free_global_struct||| -free_tied_hv_pool||| -free_tmps||| -gen_constant_list||| -get_av|5.006000||p -get_context||5.006000|n -get_cv|5.006000||p -get_db_sub||| -get_debug_opts||| -get_hash_seed||| -get_hv|5.006000||p -get_mstats||| -get_no_modify||| -get_num||| -get_op_descs||5.005000| -get_op_names||5.005000| -get_opargs||| -get_ppaddr||5.006000| -get_sv|5.006000||p -get_vtbl||5.005030| -getcwd_sv||5.007002| -getenv_len||| -gp_dup||| -gp_free||| -gp_ref||| -grok_bin|5.007003||p -grok_hex|5.007003||p -grok_number|5.007002||p -grok_numeric_radix|5.007002||p -grok_oct|5.007003||p -group_end||| -gv_AVadd||| -gv_HVadd||| -gv_IOadd||| -gv_autoload4||5.004000| -gv_check||| -gv_dump||5.006000| -gv_efullname3||5.004000| -gv_efullname4||5.006001| -gv_efullname||| -gv_ename||| -gv_fetchfile||| -gv_fetchmeth_autoload||5.007003| -gv_fetchmethod_autoload||5.004000| -gv_fetchmethod||| -gv_fetchmeth||| -gv_fetchpvn_flags||5.009002| -gv_fetchpv||| -gv_fetchsv||5.009002| -gv_fullname3||5.004000| -gv_fullname4||5.006001| -gv_fullname||| -gv_handler||5.007001| -gv_init_sv||| -gv_init||| -gv_share||| -gv_stashpvn|5.006000||p -gv_stashpv||| -gv_stashsv||| -he_dup||| -hek_dup||| -hfreeentries||| -hsplit||| -hv_assert||5.009001| -hv_auxinit||| -hv_clear_placeholders||5.009001| -hv_clear||| -hv_delayfree_ent||5.004000| -hv_delete_common||| -hv_delete_ent||5.004000| -hv_delete||| -hv_eiter_p||5.009003| -hv_eiter_set||5.009003| -hv_exists_ent||5.004000| -hv_exists||| -hv_fetch_common||| -hv_fetch_ent||5.004000| -hv_fetch||| -hv_free_ent||5.004000| -hv_iterinit||| -hv_iterkeysv||5.004000| -hv_iterkey||| -hv_iternext_flags||5.008000| -hv_iternextsv||| -hv_iternext||| -hv_iterval||| -hv_ksplit||5.004000| -hv_magic_check||| -hv_magic||| -hv_name_set||5.009003| -hv_notallowed||| -hv_placeholders_get||5.009003| -hv_placeholders_p||5.009003| -hv_placeholders_set||5.009003| -hv_riter_p||5.009003| -hv_riter_set||5.009003| -hv_scalar||5.009001| -hv_store_ent||5.004000| -hv_store_flags||5.008000| -hv_store||| -hv_undef||| -ibcmp_locale||5.004000| -ibcmp_utf8||5.007003| -ibcmp||| -incl_perldb||| -incline||| -incpush||| -ingroup||| -init_argv_symbols||| -init_debugger||| -init_global_struct||| -init_i18nl10n||5.006000| -init_i18nl14n||5.006000| -init_ids||| -init_interp||| -init_lexer||| -init_main_stash||| -init_perllib||| -init_postdump_symbols||| -init_predump_symbols||| -init_stacks||5.005000| -init_tm||5.007002| -instr||| -intro_my||| -intuit_method||| -intuit_more||| -invert||| -io_close||| -isALNUM||| -isALPHA||| -isDIGIT||| -isLOWER||| -isSPACE||| -isUPPER||| -is_an_int||| -is_gv_magical_sv||| -is_gv_magical||| -is_handle_constructor||| -is_list_assignment||| -is_lvalue_sub||5.007001| -is_uni_alnum_lc||5.006000| -is_uni_alnumc_lc||5.006000| -is_uni_alnumc||5.006000| -is_uni_alnum||5.006000| -is_uni_alpha_lc||5.006000| -is_uni_alpha||5.006000| -is_uni_ascii_lc||5.006000| -is_uni_ascii||5.006000| -is_uni_cntrl_lc||5.006000| -is_uni_cntrl||5.006000| -is_uni_digit_lc||5.006000| -is_uni_digit||5.006000| -is_uni_graph_lc||5.006000| -is_uni_graph||5.006000| -is_uni_idfirst_lc||5.006000| -is_uni_idfirst||5.006000| -is_uni_lower_lc||5.006000| -is_uni_lower||5.006000| -is_uni_print_lc||5.006000| -is_uni_print||5.006000| -is_uni_punct_lc||5.006000| -is_uni_punct||5.006000| -is_uni_space_lc||5.006000| -is_uni_space||5.006000| -is_uni_upper_lc||5.006000| -is_uni_upper||5.006000| -is_uni_xdigit_lc||5.006000| -is_uni_xdigit||5.006000| -is_utf8_alnumc||5.006000| -is_utf8_alnum||5.006000| -is_utf8_alpha||5.006000| -is_utf8_ascii||5.006000| -is_utf8_char_slow||| -is_utf8_char||5.006000| -is_utf8_cntrl||5.006000| -is_utf8_digit||5.006000| -is_utf8_graph||5.006000| -is_utf8_idcont||5.008000| -is_utf8_idfirst||5.006000| -is_utf8_lower||5.006000| -is_utf8_mark||5.006000| -is_utf8_print||5.006000| -is_utf8_punct||5.006000| -is_utf8_space||5.006000| -is_utf8_string_loclen||5.009003| -is_utf8_string_loc||5.008001| -is_utf8_string||5.006001| -is_utf8_upper||5.006000| -is_utf8_xdigit||5.006000| -isa_lookup||| -items|||n -ix|||n -jmaybe||| -keyword||| -leave_scope||| -lex_end||| -lex_start||| -linklist||| -listkids||| -list||| -load_module_nocontext|||vn -load_module||5.006000|v -localize||| -looks_like_number||| -lop||| -mPUSHi|5.009002||p -mPUSHn|5.009002||p -mPUSHp|5.009002||p -mPUSHu|5.009002||p -mXPUSHi|5.009002||p -mXPUSHn|5.009002||p -mXPUSHp|5.009002||p -mXPUSHu|5.009002||p -magic_clear_all_env||| -magic_clearenv||| -magic_clearpack||| -magic_clearsig||| -magic_dump||5.006000| -magic_existspack||| -magic_freearylen_p||| -magic_freeovrld||| -magic_freeregexp||| -magic_getarylen||| -magic_getdefelem||| -magic_getglob||| -magic_getnkeys||| -magic_getpack||| -magic_getpos||| -magic_getsig||| -magic_getsubstr||| -magic_gettaint||| -magic_getuvar||| -magic_getvec||| -magic_get||| -magic_killbackrefs||| -magic_len||| -magic_methcall||| -magic_methpack||| -magic_nextpack||| -magic_regdata_cnt||| -magic_regdatum_get||| -magic_regdatum_set||| -magic_scalarpack||| -magic_set_all_env||| -magic_setamagic||| -magic_setarylen||| -magic_setbm||| -magic_setcollxfrm||| -magic_setdbline||| -magic_setdefelem||| -magic_setenv||| -magic_setfm||| -magic_setglob||| -magic_setisa||| -magic_setmglob||| -magic_setnkeys||| -magic_setpack||| -magic_setpos||| -magic_setregexp||| -magic_setsig||| -magic_setsubstr||| -magic_settaint||| -magic_setutf8||| -magic_setuvar||| -magic_setvec||| -magic_set||| -magic_sizepack||| -magic_wipepack||| -magicname||| -make_trie||| -malloced_size|||n -malloc||5.007002|n -markstack_grow||| -measure_struct||| -memEQ|5.004000||p -memNE|5.004000||p -mem_collxfrm||| -mess_alloc||| -mess_nocontext|||vn -mess||5.006000|v -method_common||| -mfree||5.007002|n -mg_clear||| -mg_copy||| -mg_dup||| -mg_find||| -mg_free||| -mg_get||| -mg_length||5.005000| -mg_localize||| -mg_magical||| -mg_set||| -mg_size||5.005000| -mini_mktime||5.007002| -missingterm||| -mode_from_discipline||| -modkids||| -mod||| -moreswitches||| -mul128||| -mulexp10|||n -my_atof2||5.007002| -my_atof||5.006000| -my_attrs||| -my_bcopy|||n -my_betoh16|||n -my_betoh32|||n -my_betoh64|||n -my_betohi|||n -my_betohl|||n -my_betohs|||n -my_bzero|||n -my_chsize||| -my_exit_jump||| -my_exit||| -my_failure_exit||5.004000| -my_fflush_all||5.006000| -my_fork||5.007003|n -my_htobe16|||n -my_htobe32|||n -my_htobe64|||n -my_htobei|||n -my_htobel|||n -my_htobes|||n -my_htole16|||n -my_htole32|||n -my_htole64|||n -my_htolei|||n -my_htolel|||n -my_htoles|||n -my_htonl||| -my_kid||| -my_letoh16|||n -my_letoh32|||n -my_letoh64|||n -my_letohi|||n -my_letohl|||n -my_letohs|||n -my_lstat||| -my_memcmp||5.004000|n -my_memset|||n -my_ntohl||| -my_pclose||5.004000| -my_popen_list||5.007001| -my_popen||5.004000| -my_setenv||| -my_socketpair||5.007003|n -my_stat||| -my_strftime||5.007002| -my_swabn|||n -my_swap||| -my_unexec||| -my||| -newANONATTRSUB||5.006000| -newANONHASH||| -newANONLIST||| -newANONSUB||| -newASSIGNOP||| -newATTRSUB||5.006000| -newAVREF||| -newAV||| -newBINOP||| -newCONDOP||| -newCONSTSUB|5.006000||p -newCVREF||| -newDEFSVOP||| -newFORM||| -newFOROP||| -newGVOP||| -newGVREF||| -newGVgen||| -newHVREF||| -newHVhv||5.005000| -newHV||| -newIO||| -newLISTOP||| -newLOGOP||| -newLOOPEX||| -newLOOPOP||| -newMYSUB||5.006000| -newNULLLIST||| -newOP||| -newPADOP||5.006000| -newPMOP||| -newPROG||| -newPVOP||| -newRANGE||| -newRV_inc|5.004000||p -newRV_noinc|5.006000||p -newRV||| -newSLICEOP||| -newSTATEOP||| -newSUB||| -newSVOP||| -newSVREF||| -newSVhek||5.009003| -newSViv||| -newSVnv||| -newSVpvf_nocontext|||vn -newSVpvf||5.004000|v -newSVpvn_share||5.007001| -newSVpvn|5.006000||p -newSVpv||| -newSVrv||| -newSVsv||| -newSVuv|5.006000||p -newSV||| -newUNOP||| -newWHILEOP||5.009003| -newXSproto||5.006000| -newXS||5.006000| -new_collate||5.006000| -new_constant||| -new_ctype||5.006000| -new_he||| -new_logop||| -new_numeric||5.006000| -new_stackinfo||5.005000| -new_version||5.009000| -next_symbol||| -nextargv||| -nextchar||| -ninstr||| -no_bareword_allowed||| -no_fh_allowed||| -no_op||| -not_a_number||| -nothreadhook||5.008000| -nuke_stacks||| -num_overflow|||n -oopsAV||| -oopsCV||| -oopsHV||| -op_clear||| -op_const_sv||| -op_dump||5.006000| -op_free||| -op_null||5.007002| -op_refcnt_lock||5.009002| -op_refcnt_unlock||5.009002| -open_script||| -pMY_CXT_|5.007003||p -pMY_CXT|5.007003||p -pTHX_|5.006000||p -pTHX|5.006000||p -pack_cat||5.007003| -pack_rec||| -package||| -packlist||5.008001| -pad_add_anon||| -pad_add_name||| -pad_alloc||| -pad_block_start||| -pad_check_dup||| -pad_compname_type||| -pad_findlex||| -pad_findmy||| -pad_fixup_inner_anons||| -pad_free||| -pad_leavemy||| -pad_new||| -pad_push||| -pad_reset||| -pad_setsv||| -pad_sv||| -pad_swipe||| -pad_tidy||| -pad_undef||| -parse_body||| -parse_unicode_opts||| -path_is_absolute||| -peep||| -pending_ident||| -perl_alloc_using|||n -perl_alloc|||n -perl_clone_using|||n -perl_clone|||n -perl_construct|||n -perl_destruct||5.007003|n -perl_free|||n -perl_parse||5.006000|n -perl_run|||n -pidgone||| -pmflag||| -pmop_dump||5.006000| -pmruntime||| -pmtrans||| -pop_scope||| -pregcomp||| -pregexec||| -pregfree||| -prepend_elem||| -printf_nocontext|||vn -ptr_table_clear||| -ptr_table_fetch||| -ptr_table_free||| -ptr_table_new||| -ptr_table_split||| -ptr_table_store||| -push_scope||| -put_byte||| -pv_display||5.006000| -pv_uni_display||5.007003| -qerror||| -re_croak2||| -re_dup||| -re_intuit_start||5.006000| -re_intuit_string||5.006000| -realloc||5.007002|n -reentrant_free||| -reentrant_init||| -reentrant_retry|||vn -reentrant_size||| -refkids||| -refto||| -ref||| -reg_node||| -reganode||| -regatom||| -regbranch||| -regclass_swash||5.007003| -regclass||| -regcp_set_to||| -regcppop||| -regcppush||| -regcurly||| -regdump||5.005000| -regexec_flags||5.005000| -reghop3||| -reghopmaybe3||| -reghopmaybe||| -reghop||| -reginclass||| -reginitcolors||5.006000| -reginsert||| -regmatch||| -regnext||5.005000| -regoptail||| -regpiece||| -regpposixcc||| -regprop||| -regrepeat_hard||| -regrepeat||| -regtail||| -regtry||| -reguni||| -regwhite||| -reg||| -repeatcpy||| -report_evil_fh||| -report_uninit||| -require_errno||| -require_pv||5.006000| -rninstr||| -rsignal_restore||| -rsignal_save||| -rsignal_state||5.004000| -rsignal||5.004000| -run_body||| -runops_debug||5.005000| -runops_standard||5.005000| -rvpv_dup||| -rxres_free||| -rxres_restore||| -rxres_save||| -safesyscalloc||5.006000|n -safesysfree||5.006000|n -safesysmalloc||5.006000|n -safesysrealloc||5.006000|n -same_dirent||| -save_I16||5.004000| -save_I32||| -save_I8||5.006000| -save_aelem||5.004050| -save_alloc||5.006000| -save_aptr||| -save_ary||| -save_bool||5.008001| -save_clearsv||| -save_delete||| -save_destructor_x||5.006000| -save_destructor||5.006000| -save_freeop||| -save_freepv||| -save_freesv||| -save_generic_pvref||5.006001| -save_generic_svref||5.005030| -save_gp||5.004000| -save_hash||| -save_hek_flags||| -save_helem||5.004050| -save_hints||5.005000| -save_hptr||| -save_int||| -save_item||| -save_iv||5.005000| -save_lines||| -save_list||| -save_long||| -save_magic||| -save_mortalizesv||5.007001| -save_nogv||| -save_op||| -save_padsv||5.007001| -save_pptr||| -save_re_context||5.006000| -save_scalar_at||| -save_scalar||| -save_set_svflags||5.009000| -save_shared_pvref||5.007003| -save_sptr||| -save_svref||| -save_threadsv||5.005000| -save_vptr||5.006000| -savepvn||| -savepv||| -savesharedpv||5.007003| -savestack_grow_cnt||5.008001| -savestack_grow||| -savesvpv||5.009002| -sawparens||| -scalar_mod_type||| -scalarboolean||| -scalarkids||| -scalarseq||| -scalarvoid||| -scalar||| -scan_bin||5.006000| -scan_commit||| -scan_const||| -scan_formline||| -scan_heredoc||| -scan_hex||| -scan_ident||| -scan_inputsymbol||| -scan_num||5.007001| -scan_oct||| -scan_pat||| -scan_str||| -scan_subst||| -scan_trans||| -scan_version||5.009001| -scan_vstring||5.008001| -scan_word||| -scope||| -screaminstr||5.005000| -seed||| -set_context||5.006000|n -set_csh||| -set_numeric_local||5.006000| -set_numeric_radix||5.006000| -set_numeric_standard||5.006000| -setdefout||| -setenv_getix||| -share_hek_flags||| -share_hek||| -si_dup||| -sighandler|||n -simplify_sort||| -skipspace||| -sortsv||5.007003| -ss_dup||| -stack_grow||| -start_glob||| -start_subparse||5.004000| -stashpv_hvname_match||5.009003| -stdize_locale||| -strEQ||| -strGE||| -strGT||| -strLE||| -strLT||| -strNE||| -str_to_version||5.006000| -strnEQ||| -strnNE||| -study_chunk||| -sub_crush_depth||| -sublex_done||| -sublex_push||| -sublex_start||| -sv_2bool||| -sv_2cv||| -sv_2io||| -sv_2iuv_non_preserve||| -sv_2iv_flags||5.009001| -sv_2iv||| -sv_2mortal||| -sv_2nv||| -sv_2pv_flags||5.007002| -sv_2pv_nolen|5.006000||p -sv_2pvbyte_nolen||| -sv_2pvbyte|5.006000||p -sv_2pvutf8_nolen||5.006000| -sv_2pvutf8||5.006000| -sv_2pv||| -sv_2uv_flags||5.009001| -sv_2uv|5.004000||p -sv_add_arena||| -sv_add_backref||| -sv_backoff||| -sv_bless||| -sv_cat_decode||5.008001| -sv_catpv_mg|5.006000||p -sv_catpvf_mg_nocontext|||pvn -sv_catpvf_mg|5.006000|5.004000|pv -sv_catpvf_nocontext|||vn -sv_catpvf||5.004000|v -sv_catpvn_flags||5.007002| -sv_catpvn_mg|5.006000||p -sv_catpvn_nomg|5.007002||p -sv_catpvn||| -sv_catpv||| -sv_catsv_flags||5.007002| -sv_catsv_mg|5.006000||p -sv_catsv_nomg|5.007002||p -sv_catsv||| -sv_chop||| -sv_clean_all||| -sv_clean_objs||| -sv_clear||| -sv_cmp_locale||5.004000| -sv_cmp||| -sv_collxfrm||| -sv_compile_2op||5.008001| -sv_copypv||5.007003| -sv_dec||| -sv_del_backref||| -sv_derived_from||5.004000| -sv_dump||| -sv_dup||| -sv_eq||| -sv_force_normal_flags||5.007001| -sv_force_normal||5.006000| -sv_free2||| -sv_free_arenas||| -sv_free||| -sv_gets||5.004000| -sv_grow||| -sv_inc||| -sv_insert||| -sv_isa||| -sv_isobject||| -sv_iv||5.005000| -sv_len_utf8||5.006000| -sv_len||| -sv_magicext||5.007003| -sv_magic||| -sv_mortalcopy||| -sv_newmortal||| -sv_newref||| -sv_nolocking||5.007003| -sv_nosharing||5.007003| -sv_nounlocking||5.007003| -sv_nv||5.005000| -sv_peek||5.005000| -sv_pos_b2u||5.006000| -sv_pos_u2b||5.006000| -sv_pvbyten_force||5.006000| -sv_pvbyten||5.006000| -sv_pvbyte||5.006000| -sv_pvn_force_flags||5.007002| -sv_pvn_force|||p -sv_pvn_nomg|5.007003||p -sv_pvn|5.006000||p -sv_pvutf8n_force||5.006000| -sv_pvutf8n||5.006000| -sv_pvutf8||5.006000| -sv_pv||5.006000| -sv_recode_to_utf8||5.007003| -sv_reftype||| -sv_release_COW||| -sv_release_IVX||| -sv_replace||| -sv_report_used||| -sv_reset||| -sv_rvweaken||5.006000| -sv_setiv_mg|5.006000||p -sv_setiv||| -sv_setnv_mg|5.006000||p -sv_setnv||| -sv_setpv_mg|5.006000||p -sv_setpvf_mg_nocontext|||pvn -sv_setpvf_mg|5.006000|5.004000|pv -sv_setpvf_nocontext|||vn -sv_setpvf||5.004000|v -sv_setpviv_mg||5.008001| -sv_setpviv||5.008001| -sv_setpvn_mg|5.006000||p -sv_setpvn||| -sv_setpv||| -sv_setref_iv||| -sv_setref_nv||| -sv_setref_pvn||| -sv_setref_pv||| -sv_setref_uv||5.007001| -sv_setsv_cow||| -sv_setsv_flags||5.007002| -sv_setsv_mg|5.006000||p -sv_setsv_nomg|5.007002||p -sv_setsv||| -sv_setuv_mg|5.006000||p -sv_setuv|5.006000||p -sv_tainted||5.004000| -sv_taint||5.004000| -sv_true||5.005000| -sv_unglob||| -sv_uni_display||5.007003| -sv_unmagic||| -sv_unref_flags||5.007001| -sv_unref||| -sv_untaint||5.004000| -sv_upgrade||| -sv_usepvn_mg|5.006000||p -sv_usepvn||| -sv_utf8_decode||5.006000| -sv_utf8_downgrade||5.006000| -sv_utf8_encode||5.006000| -sv_utf8_upgrade_flags||5.007002| -sv_utf8_upgrade||5.007001| -sv_uv|5.006000||p -sv_vcatpvf_mg|5.006000|5.004000|p -sv_vcatpvfn||5.004000| -sv_vcatpvf|5.006000|5.004000|p -sv_vsetpvf_mg|5.006000|5.004000|p -sv_vsetpvfn||5.004000| -sv_vsetpvf|5.006000|5.004000|p -svtype||| -swallow_bom||| -swash_fetch||5.007002| -swash_init||5.006000| -sys_intern_clear||| -sys_intern_dup||| -sys_intern_init||| -taint_env||| -taint_proper||| -tmps_grow||5.006000| -toLOWER||| -toUPPER||| -to_byte_substr||| -to_uni_fold||5.007003| -to_uni_lower_lc||5.006000| -to_uni_lower||5.007003| -to_uni_title_lc||5.006000| -to_uni_title||5.007003| -to_uni_upper_lc||5.006000| -to_uni_upper||5.007003| -to_utf8_case||5.007003| -to_utf8_fold||5.007003| -to_utf8_lower||5.007003| -to_utf8_substr||| -to_utf8_title||5.007003| -to_utf8_upper||5.007003| -tokeq||| -tokereport||| -too_few_arguments||| -too_many_arguments||| -unlnk||| -unpack_rec||| -unpack_str||5.007003| -unpackstring||5.008001| -unshare_hek_or_pvn||| -unshare_hek||| -unsharepvn||5.004000| -upg_version||5.009000| -usage||| -utf16_textfilter||| -utf16_to_utf8_reversed||5.006001| -utf16_to_utf8||5.006001| -utf16rev_textfilter||| -utf8_distance||5.006000| -utf8_hop||5.006000| -utf8_length||5.007001| -utf8_mg_pos_init||| -utf8_mg_pos||| -utf8_to_bytes||5.006001| -utf8_to_uvchr||5.007001| -utf8_to_uvuni||5.007001| -utf8n_to_uvchr||5.007001| -utf8n_to_uvuni||5.007001| -utilize||| -uvchr_to_utf8_flags||5.007003| -uvchr_to_utf8||5.007001| -uvuni_to_utf8_flags||5.007003| -uvuni_to_utf8||5.007001| -validate_suid||| -varname||| -vcmp||5.009000| -vcroak||5.006000| -vdeb||5.007003| -vdie||| -vform||5.006000| -visit||| -vivify_defelem||| -vivify_ref||| -vload_module||5.006000| -vmess||5.006000| -vnewSVpvf|5.006000|5.004000|p -vnormal||5.009002| -vnumify||5.009000| -vstringify||5.009000| -vwarner||5.006000| -vwarn||5.006000| -wait4pid||| -warn_nocontext|||vn -warner_nocontext|||vn -warner||5.006000|v -warn|||v -watch||| -whichsig||| -write_to_stderr||| -yyerror||| -yylex||| -yyparse||| -yywarn||| -); - -if (exists $opt{'list-unsupported'}) { - my $f; - for $f (sort { lc $a cmp lc $b } keys %API) { - next unless $API{$f}{todo}; - print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n"; - } - exit 0; -} - -# Scan for possible replacement candidates - -my(%replace, %need, %hints, %depends); -my $replace = 0; -my $hint = ''; - -while (<DATA>) { - if ($hint) { - if (m{^\s*\*\s(.*?)\s*$}) { - $hints{$hint} ||= ''; # suppress warning with older perls - $hints{$hint} .= "$1\n"; - } - else { - $hint = ''; - } - } - $hint = $1 if m{^\s*$rccs\sHint:\s+(\w+)\s*$}; - - $replace = $1 if m{^\s*$rccs\s+Replace:\s+(\d+)\s+$rcce\s*$}; - $replace{$2} = $1 if $replace and m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+)}; - $replace{$2} = $1 if m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+).*$rccs\s+Replace\s+$rcce}; - $replace{$1} = $2 if m{^\s*$rccs\s+Replace (\w+) with (\w+)\s+$rcce\s*$}; - - if (m{^\s*$rccs\s+(\w+)\s+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) { - push @{$depends{$1}}, map { s/\s+//g; $_ } split /,/, $2; - } - - $need{$1} = 1 if m{^#if\s+defined\(NEED_(\w+)(?:_GLOBAL)?\)}; -} - -if (exists $opt{'api-info'}) { - my $f; - my $count = 0; - my $match = $opt{'api-info'} =~ m!^/(.*)/$! ? $1 : "^\Q$opt{'api-info'}\E\$"; - for $f (sort { lc $a cmp lc $b } keys %API) { - next unless $f =~ /$match/; - print "\n=== $f ===\n\n"; - my $info = 0; - if ($API{$f}{base} || $API{$f}{todo}) { - my $base = format_version($API{$f}{base} || $API{$f}{todo}); - print "Supported at least starting from perl-$base.\n"; - $info++; - } - if ($API{$f}{provided}) { - my $todo = $API{$f}{todo} ? format_version($API{$f}{todo}) : "5.003"; - print "Support by $ppport provided back to perl-$todo.\n"; - print "Support needs to be explicitly requested by NEED_$f.\n" if exists $need{$f}; - print "Depends on: ", join(', ', @{$depends{$f}}), ".\n" if exists $depends{$f}; - print "$hints{$f}" if exists $hints{$f}; - $info++; - } - unless ($info) { - print "No portability information available.\n"; - } - $count++; - } - if ($count > 0) { - print "\n"; - } - else { - print "Found no API matching '$opt{'api-info'}'.\n"; - } - exit 0; -} - -if (exists $opt{'list-provided'}) { - my $f; - for $f (sort { lc $a cmp lc $b } keys %API) { - next unless $API{$f}{provided}; - my @flags; - push @flags, 'explicit' if exists $need{$f}; - push @flags, 'depend' if exists $depends{$f}; - push @flags, 'hint' if exists $hints{$f}; - my $flags = @flags ? ' ['.join(', ', @flags).']' : ''; - print "$f$flags\n"; - } - exit 0; -} - -my @files; -my @srcext = qw( xs c h cc cpp ); -my $srcext = join '|', @srcext; - -if (@ARGV) { - my %seen; - @files = grep { -f && !exists $seen{$_} } map { glob $_ } @ARGV; -} -else { - eval { - require File::Find; - File::Find::find(sub { - $File::Find::name =~ /\.($srcext)$/i - and push @files, $File::Find::name; - }, '.'); - }; - if ($@) { - @files = map { glob "*.$_" } @srcext; - } -} - -if (!@ARGV || $opt{filter}) { - my(@in, @out); - my %xsc = map { /(.*)\.xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () } @files; - for (@files) { - my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i || !/\.($srcext)$/i; - push @{ $out ? \@out : \@in }, $_; - } - if (@ARGV && @out) { - warning("Skipping the following files (use --nofilter to avoid this):\n| ", join "\n| ", @out); - } - @files = @in; -} - -unless (@files) { - die "No input files given!\n"; -} - -my(%files, %global, %revreplace); -%revreplace = reverse %replace; -my $filename; -my $patch_opened = 0; - -for $filename (@files) { - unless (open IN, "<$filename") { - warn "Unable to read from $filename: $!\n"; - next; - } - - info("Scanning $filename ..."); - - my $c = do { local $/; <IN> }; - close IN; - - my %file = (orig => $c, changes => 0); - - # temporarily remove C comments from the code - my @ccom; - $c =~ s{ - ( - [^"'/]+ - | - (?:"[^"\\]*(?:\\.[^"\\]*)*" [^"'/]*)+ - | - (?:'[^'\\]*(?:\\.[^'\\]*)*' [^"'/]*)+ - ) - | - (/ (?: - \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / - | - /[^\r\n]* - )) - }{ - defined $2 and push @ccom, $2; - defined $1 ? $1 : "$ccs$#ccom$cce"; - }egsx; - - $file{ccom} = \@ccom; - $file{code} = $c; - $file{has_inc_ppport} = ($c =~ /#.*include.*\Q$ppport\E/); - - my $func; - - for $func (keys %API) { - my $match = $func; - $match .= "|$revreplace{$func}" if exists $revreplace{$func}; - if ($c =~ /\b(?:Perl_)?($match)\b/) { - $file{uses_replace}{$1}++ if exists $revreplace{$func} && $1 eq $revreplace{$func}; - $file{uses_Perl}{$func}++ if $c =~ /\bPerl_$func\b/; - if (exists $API{$func}{provided}) { - if (!exists $API{$func}{base} || $API{$func}{base} > $opt{'compat-version'}) { - $file{uses}{$func}++; - my @deps = rec_depend($func); - if (@deps) { - $file{uses_deps}{$func} = \@deps; - for (@deps) { - $file{uses}{$_} = 0 unless exists $file{uses}{$_}; - } - } - for ($func, @deps) { - if (exists $need{$_}) { - $file{needs}{$_} = 'static'; - } - } - } - } - if (exists $API{$func}{todo} && $API{$func}{todo} > $opt{'compat-version'}) { - if ($c =~ /\b$func\b/) { - $file{uses_todo}{$func}++; - } - } - } - } - - while ($c =~ /^$HS*#$HS*define$HS+(NEED_(\w+?)(_GLOBAL)?)\b/mg) { - if (exists $need{$2}) { - $file{defined $3 ? 'needed_global' : 'needed_static'}{$2}++; - } - else { - warning("Possibly wrong #define $1 in $filename"); - } - } - - for (qw(uses needs uses_todo needed_global needed_static)) { - for $func (keys %{$file{$_}}) { - push @{$global{$_}{$func}}, $filename; - } - } - - $files{$filename} = \%file; -} - -# Globally resolve NEED_'s -my $need; -for $need (keys %{$global{needs}}) { - if (@{$global{needs}{$need}} > 1) { - my @targets = @{$global{needs}{$need}}; - my @t = grep $files{$_}{needed_global}{$need}, @targets; - @targets = @t if @t; - @t = grep /\.xs$/i, @targets; - @targets = @t if @t; - my $target = shift @targets; - $files{$target}{needs}{$need} = 'global'; - for (@{$global{needs}{$need}}) { - $files{$_}{needs}{$need} = 'extern' if $_ ne $target; - } - } -} - -for $filename (@files) { - exists $files{$filename} or next; - - info("=== Analyzing $filename ==="); - - my %file = %{$files{$filename}}; - my $func; - my $c = $file{code}; - - for $func (sort keys %{$file{uses_Perl}}) { - if ($API{$func}{varargs}) { - my $changes = ($c =~ s{\b(Perl_$func\s*\(\s*)(?!aTHX_?)(\)|[^\s)]*\))} - { $1 . ($2 eq ')' ? 'aTHX' : 'aTHX_ ') . $2 }ge); - if ($changes) { - warning("Doesn't pass interpreter argument aTHX to Perl_$func"); - $file{changes} += $changes; - } - } - else { - warning("Uses Perl_$func instead of $func"); - $file{changes} += ($c =~ s{\bPerl_$func(\s*)\((\s*aTHX_?)?\s*} - {$func$1(}g); - } - } - - for $func (sort keys %{$file{uses_replace}}) { - warning("Uses $func instead of $replace{$func}"); - $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g); - } - - for $func (sort keys %{$file{uses}}) { - next unless $file{uses}{$func}; # if it's only a dependency - if (exists $file{uses_deps}{$func}) { - diag("Uses $func, which depends on ", join(', ', @{$file{uses_deps}{$func}})); - } - elsif (exists $replace{$func}) { - warning("Uses $func instead of $replace{$func}"); - $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g); - } - else { - diag("Uses $func"); - } - hint($func); - } - - for $func (sort keys %{$file{uses_todo}}) { - warning("Uses $func, which may not be portable below perl ", - format_version($API{$func}{todo})); - } - - for $func (sort keys %{$file{needed_static}}) { - my $message = ''; - if (not exists $file{uses}{$func}) { - $message = "No need to define NEED_$func if $func is never used"; - } - elsif (exists $file{needs}{$func} && $file{needs}{$func} ne 'static') { - $message = "No need to define NEED_$func when already needed globally"; - } - if ($message) { - diag($message); - $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_$func\b.*$LF//mg); - } - } - - for $func (sort keys %{$file{needed_global}}) { - my $message = ''; - if (not exists $global{uses}{$func}) { - $message = "No need to define NEED_${func}_GLOBAL if $func is never used"; - } - elsif (exists $file{needs}{$func}) { - if ($file{needs}{$func} eq 'extern') { - $message = "No need to define NEED_${func}_GLOBAL when already needed globally"; - } - elsif ($file{needs}{$func} eq 'static') { - $message = "No need to define NEED_${func}_GLOBAL when only used in this file"; - } - } - if ($message) { - diag($message); - $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_${func}_GLOBAL\b.*$LF//mg); - } - } - - $file{needs_inc_ppport} = keys %{$file{uses}}; - - if ($file{needs_inc_ppport}) { - my $pp = ''; - - for $func (sort keys %{$file{needs}}) { - my $type = $file{needs}{$func}; - next if $type eq 'extern'; - my $suffix = $type eq 'global' ? '_GLOBAL' : ''; - unless (exists $file{"needed_$type"}{$func}) { - if ($type eq 'global') { - diag("Files [@{$global{needs}{$func}}] need $func, adding global request"); - } - else { - diag("File needs $func, adding static request"); - } - $pp .= "#define NEED_$func$suffix\n"; - } - } - - if ($pp && ($c =~ s/^(?=$HS*#$HS*define$HS+NEED_\w+)/$pp/m)) { - $pp = ''; - $file{changes}++; - } - - unless ($file{has_inc_ppport}) { - diag("Needs to include '$ppport'"); - $pp .= qq(#include "$ppport"\n) - } - - if ($pp) { - $file{changes} += ($c =~ s/^($HS*#$HS*define$HS+NEED_\w+.*?)^/$1$pp/ms) - || ($c =~ s/^(?=$HS*#$HS*include.*\Q$ppport\E)/$pp/m) - || ($c =~ s/^($HS*#$HS*include.*XSUB.*\s*?)^/$1$pp/m) - || ($c =~ s/^/$pp/); - } - } - else { - if ($file{has_inc_ppport}) { - diag("No need to include '$ppport'"); - $file{changes} += ($c =~ s/^$HS*?#$HS*include.*\Q$ppport\E.*?$LF//m); - } - } - - # put back in our C comments - my $ix; - my $cppc = 0; - my @ccom = @{$file{ccom}}; - for $ix (0 .. $#ccom) { - if (!$opt{cplusplus} && $ccom[$ix] =~ s!^//!!) { - $cppc++; - $file{changes} += $c =~ s/$rccs$ix$rcce/$ccs$ccom[$ix] $cce/; - } - else { - $c =~ s/$rccs$ix$rcce/$ccom[$ix]/; - } - } - - if ($cppc) { - my $s = $cppc != 1 ? 's' : ''; - warning("Uses $cppc C++ style comment$s, which is not portable"); - } - - if ($file{changes}) { - if (exists $opt{copy}) { - my $newfile = "$filename$opt{copy}"; - if (-e $newfile) { - error("'$newfile' already exists, refusing to write copy of '$filename'"); - } - else { - local *F; - if (open F, ">$newfile") { - info("Writing copy of '$filename' with changes to '$newfile'"); - print F $c; - close F; - } - else { - error("Cannot open '$newfile' for writing: $!"); - } - } - } - elsif (exists $opt{patch} || $opt{changes}) { - if (exists $opt{patch}) { - unless ($patch_opened) { - if (open PATCH, ">$opt{patch}") { - $patch_opened = 1; - } - else { - error("Cannot open '$opt{patch}' for writing: $!"); - delete $opt{patch}; - $opt{changes} = 1; - goto fallback; - } - } - mydiff(\*PATCH, $filename, $c); - } - else { -fallback: - info("Suggested changes:"); - mydiff(\*STDOUT, $filename, $c); - } - } - else { - my $s = $file{changes} == 1 ? '' : 's'; - info("$file{changes} potentially required change$s detected"); - } - } - else { - info("Looks good"); - } -} - -close PATCH if $patch_opened; - -exit 0; - - -sub mydiff -{ - local *F = shift; - my($file, $str) = @_; - my $diff; - - if (exists $opt{diff}) { - $diff = run_diff($opt{diff}, $file, $str); - } - - if (!defined $diff and can_use('Text::Diff')) { - $diff = Text::Diff::diff($file, \$str, { STYLE => 'Unified' }); - $diff = <<HEADER . $diff; ---- $file -+++ $file.patched -HEADER - } - - if (!defined $diff) { - $diff = run_diff('diff -u', $file, $str); - } - - if (!defined $diff) { - $diff = run_diff('diff', $file, $str); - } - - if (!defined $diff) { - error("Cannot generate a diff. Please install Text::Diff or use --copy."); - return; - } - - print F $diff; - -} - -sub run_diff -{ - my($prog, $file, $str) = @_; - my $tmp = 'dppptemp'; - my $suf = 'aaa'; - my $diff = ''; - local *F; - - while (-e "$tmp.$suf") { $suf++ } - $tmp = "$tmp.$suf"; - - if (open F, ">$tmp") { - print F $str; - close F; - - if (open F, "$prog $file $tmp |") { - while (<F>) { - s/\Q$tmp\E/$file.patched/; - $diff .= $_; - } - close F; - unlink $tmp; - return $diff; - } - - unlink $tmp; - } - else { - error("Cannot open '$tmp' for writing: $!"); - } - - return undef; -} - -sub can_use -{ - eval "use @_;"; - return $@ eq ''; -} - -sub rec_depend -{ - my $func = shift; - my %seen; - return () unless exists $depends{$func}; - grep !$seen{$_}++, map { ($_, rec_depend($_)) } @{$depends{$func}}; -} - -sub parse_version -{ - my $ver = shift; - - if ($ver =~ /^(\d+)\.(\d+)\.(\d+)$/) { - return ($1, $2, $3); - } - elsif ($ver !~ /^\d+\.[\d_]+$/) { - die "cannot parse version '$ver'\n"; - } - - $ver =~ s/_//g; - $ver =~ s/$/000000/; - - my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/; - - $v = int $v; - $s = int $s; - - if ($r < 5 || ($r == 5 && $v < 6)) { - if ($s % 10) { - die "cannot parse version '$ver'\n"; - } - } - - return ($r, $v, $s); -} - -sub format_version -{ - my $ver = shift; - - $ver =~ s/$/000000/; - my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/; - - $v = int $v; - $s = int $s; - - if ($r < 5 || ($r == 5 && $v < 6)) { - if ($s % 10) { - die "invalid version '$ver'\n"; - } - $s /= 10; - - $ver = sprintf "%d.%03d", $r, $v; - $s > 0 and $ver .= sprintf "_%02d", $s; - - return $ver; - } - - return sprintf "%d.%d.%d", $r, $v, $s; -} - -sub info -{ - $opt{quiet} and return; - print @_, "\n"; -} - -sub diag -{ - $opt{quiet} and return; - $opt{diag} and print @_, "\n"; -} - -sub warning -{ - $opt{quiet} and return; - print "*** ", @_, "\n"; -} - -sub error -{ - print "*** ERROR: ", @_, "\n"; -} - -my %given_hints; -sub hint -{ - $opt{quiet} and return; - $opt{hints} or return; - my $func = shift; - exists $hints{$func} or return; - $given_hints{$func}++ and return; - my $hint = $hints{$func}; - $hint =~ s/^/ /mg; - print " --- hint for $func ---\n", $hint; -} - -sub usage -{ - my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms; - my %M = ( 'I' => '*' ); - $usage =~ s/^\s*perl\s+\S+/$^X $0/; - $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g; - - print <<ENDUSAGE; - -Usage: $usage - -See perldoc $0 for details. - -ENDUSAGE - - exit 2; -} - -__DATA__ -*/ - -#ifndef _P_P_PORTABILITY_H_ -#define _P_P_PORTABILITY_H_ - -#ifndef DPPP_NAMESPACE -# define DPPP_NAMESPACE DPPP_ -#endif - -#define DPPP_CAT2(x,y) CAT2(x,y) -#define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name) - -#ifndef PERL_REVISION -# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION)) -# define PERL_PATCHLEVEL_H_IMPLICIT -# include <patchlevel.h> -# endif -# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL))) -# include <could_not_find_Perl_patchlevel.h> -# endif -# ifndef PERL_REVISION -# define PERL_REVISION (5) - /* Replace: 1 */ -# define PERL_VERSION PATCHLEVEL -# define PERL_SUBVERSION SUBVERSION - /* Replace PERL_PATCHLEVEL with PERL_VERSION */ - /* Replace: 0 */ -# endif -#endif - -#define PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + PERL_SUBVERSION) - -/* It is very unlikely that anyone will try to use this with Perl 6 - (or greater), but who knows. - */ -#if PERL_REVISION != 5 -# error ppport.h only works with Perl version 5 -#endif /* PERL_REVISION != 5 */ - -#ifdef I_LIMITS -# include <limits.h> -#endif - -#ifndef PERL_UCHAR_MIN -# define PERL_UCHAR_MIN ((unsigned char)0) -#endif - -#ifndef PERL_UCHAR_MAX -# ifdef UCHAR_MAX -# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX) -# else -# ifdef MAXUCHAR -# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR) -# else -# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0) -# endif -# endif -#endif - -#ifndef PERL_USHORT_MIN -# define PERL_USHORT_MIN ((unsigned short)0) -#endif - -#ifndef PERL_USHORT_MAX -# ifdef USHORT_MAX -# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX) -# else -# ifdef MAXUSHORT -# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT) -# else -# ifdef USHRT_MAX -# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX) -# else -# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0) -# endif -# endif -# endif -#endif - -#ifndef PERL_SHORT_MAX -# ifdef SHORT_MAX -# define PERL_SHORT_MAX ((short)SHORT_MAX) -# else -# ifdef MAXSHORT /* Often used in <values.h> */ -# define PERL_SHORT_MAX ((short)MAXSHORT) -# else -# ifdef SHRT_MAX -# define PERL_SHORT_MAX ((short)SHRT_MAX) -# else -# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1)) -# endif -# endif -# endif -#endif - -#ifndef PERL_SHORT_MIN -# ifdef SHORT_MIN -# define PERL_SHORT_MIN ((short)SHORT_MIN) -# else -# ifdef MINSHORT -# define PERL_SHORT_MIN ((short)MINSHORT) -# else -# ifdef SHRT_MIN -# define PERL_SHORT_MIN ((short)SHRT_MIN) -# else -# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3)) -# endif -# endif -# endif -#endif - -#ifndef PERL_UINT_MAX -# ifdef UINT_MAX -# define PERL_UINT_MAX ((unsigned int)UINT_MAX) -# else -# ifdef MAXUINT -# define PERL_UINT_MAX ((unsigned int)MAXUINT) -# else -# define PERL_UINT_MAX (~(unsigned int)0) -# endif -# endif -#endif - -#ifndef PERL_UINT_MIN -# define PERL_UINT_MIN ((unsigned int)0) -#endif - -#ifndef PERL_INT_MAX -# ifdef INT_MAX -# define PERL_INT_MAX ((int)INT_MAX) -# else -# ifdef MAXINT /* Often used in <values.h> */ -# define PERL_INT_MAX ((int)MAXINT) -# else -# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1)) -# endif -# endif -#endif - -#ifndef PERL_INT_MIN -# ifdef INT_MIN -# define PERL_INT_MIN ((int)INT_MIN) -# else -# ifdef MININT -# define PERL_INT_MIN ((int)MININT) -# else -# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3)) -# endif -# endif -#endif - -#ifndef PERL_ULONG_MAX -# ifdef ULONG_MAX -# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX) -# else -# ifdef MAXULONG -# define PERL_ULONG_MAX ((unsigned long)MAXULONG) -# else -# define PERL_ULONG_MAX (~(unsigned long)0) -# endif -# endif -#endif - -#ifndef PERL_ULONG_MIN -# define PERL_ULONG_MIN ((unsigned long)0L) -#endif - -#ifndef PERL_LONG_MAX -# ifdef LONG_MAX -# define PERL_LONG_MAX ((long)LONG_MAX) -# else -# ifdef MAXLONG -# define PERL_LONG_MAX ((long)MAXLONG) -# else -# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1)) -# endif -# endif -#endif - -#ifndef PERL_LONG_MIN -# ifdef LONG_MIN -# define PERL_LONG_MIN ((long)LONG_MIN) -# else -# ifdef MINLONG -# define PERL_LONG_MIN ((long)MINLONG) -# else -# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3)) -# endif -# endif -#endif - -#if defined(HAS_QUAD) && (defined(convex) || defined(uts)) -# ifndef PERL_UQUAD_MAX -# ifdef ULONGLONG_MAX -# define PERL_UQUAD_MAX ((unsigned long long)ULONGLONG_MAX) -# else -# ifdef MAXULONGLONG -# define PERL_UQUAD_MAX ((unsigned long long)MAXULONGLONG) -# else -# define PERL_UQUAD_MAX (~(unsigned long long)0) -# endif -# endif -# endif - -# ifndef PERL_UQUAD_MIN -# define PERL_UQUAD_MIN ((unsigned long long)0L) -# endif - -# ifndef PERL_QUAD_MAX -# ifdef LONGLONG_MAX -# define PERL_QUAD_MAX ((long long)LONGLONG_MAX) -# else -# ifdef MAXLONGLONG -# define PERL_QUAD_MAX ((long long)MAXLONGLONG) -# else -# define PERL_QUAD_MAX ((long long) (PERL_UQUAD_MAX >> 1)) -# endif -# endif -# endif - -# ifndef PERL_QUAD_MIN -# ifdef LONGLONG_MIN -# define PERL_QUAD_MIN ((long long)LONGLONG_MIN) -# else -# ifdef MINLONGLONG -# define PERL_QUAD_MIN ((long long)MINLONGLONG) -# else -# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3)) -# endif -# endif -# endif -#endif - -/* This is based on code from 5.003 perl.h */ -#ifdef HAS_QUAD -# ifdef cray -#ifndef IVTYPE -# define IVTYPE int -#endif - -#ifndef IV_MIN -# define IV_MIN PERL_INT_MIN -#endif - -#ifndef IV_MAX -# define IV_MAX PERL_INT_MAX -#endif - -#ifndef UV_MIN -# define UV_MIN PERL_UINT_MIN -#endif - -#ifndef UV_MAX -# define UV_MAX PERL_UINT_MAX -#endif - -# ifdef INTSIZE -#ifndef IVSIZE -# define IVSIZE INTSIZE -#endif - -# endif -# else -# if defined(convex) || defined(uts) -#ifndef IVTYPE -# define IVTYPE long long -#endif - -#ifndef IV_MIN -# define IV_MIN PERL_QUAD_MIN -#endif - -#ifndef IV_MAX -# define IV_MAX PERL_QUAD_MAX -#endif - -#ifndef UV_MIN -# define UV_MIN PERL_UQUAD_MIN -#endif - -#ifndef UV_MAX -# define UV_MAX PERL_UQUAD_MAX -#endif - -# ifdef LONGLONGSIZE -#ifndef IVSIZE -# define IVSIZE LONGLONGSIZE -#endif - -# endif -# else -#ifndef IVTYPE -# define IVTYPE long -#endif - -#ifndef IV_MIN -# define IV_MIN PERL_LONG_MIN -#endif - -#ifndef IV_MAX -# define IV_MAX PERL_LONG_MAX -#endif - -#ifndef UV_MIN -# define UV_MIN PERL_ULONG_MIN -#endif - -#ifndef UV_MAX -# define UV_MAX PERL_ULONG_MAX -#endif - -# ifdef LONGSIZE -#ifndef IVSIZE -# define IVSIZE LONGSIZE -#endif - -# endif -# endif -# endif -#ifndef IVSIZE -# define IVSIZE 8 -#endif - -#ifndef PERL_QUAD_MIN -# define PERL_QUAD_MIN IV_MIN -#endif - -#ifndef PERL_QUAD_MAX -# define PERL_QUAD_MAX IV_MAX -#endif - -#ifndef PERL_UQUAD_MIN -# define PERL_UQUAD_MIN UV_MIN -#endif - -#ifndef PERL_UQUAD_MAX -# define PERL_UQUAD_MAX UV_MAX -#endif - -#else -#ifndef IVTYPE -# define IVTYPE long -#endif - -#ifndef IV_MIN -# define IV_MIN PERL_LONG_MIN -#endif - -#ifndef IV_MAX -# define IV_MAX PERL_LONG_MAX -#endif - -#ifndef UV_MIN -# define UV_MIN PERL_ULONG_MIN -#endif - -#ifndef UV_MAX -# define UV_MAX PERL_ULONG_MAX -#endif - -#endif - -#ifndef IVSIZE -# ifdef LONGSIZE -# define IVSIZE LONGSIZE -# else -# define IVSIZE 4 /* A bold guess, but the best we can make. */ -# endif -#endif -#ifndef UVTYPE -# define UVTYPE unsigned IVTYPE -#endif - -#ifndef UVSIZE -# define UVSIZE IVSIZE -#endif - -#ifndef sv_setuv -# define sv_setuv(sv, uv) \ - STMT_START { \ - UV TeMpUv = uv; \ - if (TeMpUv <= IV_MAX) \ - sv_setiv(sv, TeMpUv); \ - else \ - sv_setnv(sv, (double)TeMpUv); \ - } STMT_END -#endif - -#ifndef newSVuv -# define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv)) -#endif -#ifndef sv_2uv -# define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv))) -#endif - -#ifndef SvUVX -# define SvUVX(sv) ((UV)SvIVX(sv)) -#endif - -#ifndef SvUVXx -# define SvUVXx(sv) SvUVX(sv) -#endif - -#ifndef SvUV -# define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) -#endif - -#ifndef SvUVx -# define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv)) -#endif - -/* Hint: sv_uv - * Always use the SvUVx() macro instead of sv_uv(). - */ -#ifndef sv_uv -# define sv_uv(sv) SvUVx(sv) -#endif -#ifndef XST_mUV -# define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) ) -#endif - -#ifndef XSRETURN_UV -# define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END -#endif -#ifndef PUSHu -# define PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG; } STMT_END -#endif - -#ifndef XPUSHu -# define XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END -#endif - -#if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)) -/* Replace: 1 */ -# define PL_DBsingle DBsingle -# define PL_DBsub DBsub -# define PL_Sv Sv -# define PL_compiling compiling -# define PL_copline copline -# define PL_curcop curcop -# define PL_curstash curstash -# define PL_debstash debstash -# define PL_defgv defgv -# define PL_diehook diehook -# define PL_dirty dirty -# define PL_dowarn dowarn -# define PL_errgv errgv -# define PL_hexdigit hexdigit -# define PL_hints hints -# define PL_na na -# define PL_no_modify no_modify -# define PL_perl_destruct_level perl_destruct_level -# define PL_perldb perldb -# define PL_ppaddr ppaddr -# define PL_rsfp_filters rsfp_filters -# define PL_rsfp rsfp -# define PL_stack_base stack_base -# define PL_stack_sp stack_sp -# define PL_stdingv stdingv -# define PL_sv_arenaroot sv_arenaroot -# define PL_sv_no sv_no -# define PL_sv_undef sv_undef -# define PL_sv_yes sv_yes -# define PL_tainted tainted -# define PL_tainting tainting -/* Replace: 0 */ -#endif - -#ifndef PERL_UNUSED_DECL -# ifdef HASATTRIBUTE -# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER) -# define PERL_UNUSED_DECL -# else -# define PERL_UNUSED_DECL __attribute__((unused)) -# endif -# else -# define PERL_UNUSED_DECL -# endif -#endif -#ifndef NOOP -# define NOOP (void)0 -#endif - -#ifndef dNOOP -# define dNOOP extern int Perl___notused PERL_UNUSED_DECL -#endif - -#ifndef NVTYPE -# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) -# define NVTYPE long double -# else -# define NVTYPE double -# endif -typedef NVTYPE NV; -#endif - -#ifndef INT2PTR - -# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE) -# define PTRV UV -# define INT2PTR(any,d) (any)(d) -# else -# if PTRSIZE == LONGSIZE -# define PTRV unsigned long -# else -# define PTRV unsigned -# endif -# define INT2PTR(any,d) (any)(PTRV)(d) -# endif - -# define NUM2PTR(any,d) (any)(PTRV)(d) -# define PTR2IV(p) INT2PTR(IV,p) -# define PTR2UV(p) INT2PTR(UV,p) -# define PTR2NV(p) NUM2PTR(NV,p) - -# if PTRSIZE == LONGSIZE -# define PTR2ul(p) (unsigned long)(p) -# else -# define PTR2ul(p) INT2PTR(unsigned long,p) -# endif - -#endif /* !INT2PTR */ - -#undef START_EXTERN_C -#undef END_EXTERN_C -#undef EXTERN_C -#ifdef __cplusplus -# define START_EXTERN_C extern "C" { -# define END_EXTERN_C } -# define EXTERN_C extern "C" -#else -# define START_EXTERN_C -# define END_EXTERN_C -# define EXTERN_C extern -#endif - -#ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN -# if defined(__STRICT_ANSI__) && defined(PERL_GCC_PEDANTIC) -# define PERL_GCC_BRACE_GROUPS_FORBIDDEN -# endif -#endif - -#undef STMT_START -#undef STMT_END -#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus) -# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */ -# define STMT_END ) -#else -# if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__) -# define STMT_START if (1) -# define STMT_END else (void)0 -# else -# define STMT_START do -# define STMT_END while (0) -# endif -#endif -#ifndef boolSV -# define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) -#endif - -/* DEFSV appears first in 5.004_56 */ -#ifndef DEFSV -# define DEFSV GvSV(PL_defgv) -#endif - -#ifndef SAVE_DEFSV -# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv)) -#endif - -/* Older perls (<=5.003) lack AvFILLp */ -#ifndef AvFILLp -# define AvFILLp AvFILL -#endif -#ifndef ERRSV -# define ERRSV get_sv("@",FALSE) -#endif -#ifndef newSVpvn -# define newSVpvn(data,len) ((data) \ - ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \ - : newSV(0)) -#endif - -/* Hint: gv_stashpvn - * This function's backport doesn't support the length parameter, but - * rather ignores it. Portability can only be ensured if the length - * parameter is used for speed reasons, but the length can always be - * correctly computed from the string argument. - */ -#ifndef gv_stashpvn -# define gv_stashpvn(str,len,create) gv_stashpv(str,create) -#endif - -/* Replace: 1 */ -#ifndef get_cv -# define get_cv perl_get_cv -#endif - -#ifndef get_sv -# define get_sv perl_get_sv -#endif - -#ifndef get_av -# define get_av perl_get_av -#endif - -#ifndef get_hv -# define get_hv perl_get_hv -#endif - -/* Replace: 0 */ - -#ifdef HAS_MEMCMP -#ifndef memNE -# define memNE(s1,s2,l) (memcmp(s1,s2,l)) -#endif - -#ifndef memEQ -# define memEQ(s1,s2,l) (!memcmp(s1,s2,l)) -#endif - -#else -#ifndef memNE -# define memNE(s1,s2,l) (bcmp(s1,s2,l)) -#endif - -#ifndef memEQ -# define memEQ(s1,s2,l) (!bcmp(s1,s2,l)) -#endif - -#endif -#ifndef MoveD -# define MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t)) -#endif - -#ifndef CopyD -# define CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * sizeof(t)) -#endif - -#ifdef HAS_MEMSET -#ifndef ZeroD -# define ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t)) -#endif - -#else -#ifndef ZeroD -# define ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof(t)),d) -#endif - -#endif -#ifndef Poison -# define Poison(d,n,t) (void)memset((char*)(d), 0xAB, (n) * sizeof(t)) -#endif -#ifndef dUNDERBAR -# define dUNDERBAR dNOOP -#endif - -#ifndef UNDERBAR -# define UNDERBAR DEFSV -#endif -#ifndef dAX -# define dAX I32 ax = MARK - PL_stack_base + 1 -#endif - -#ifndef dITEMS -# define dITEMS I32 items = SP - MARK -#endif -#ifndef dXSTARG -# define dXSTARG SV * targ = sv_newmortal() -#endif -#ifndef dTHR -# define dTHR dNOOP -#endif -#ifndef dTHX -# define dTHX dNOOP -#endif - -#ifndef dTHXa -# define dTHXa(x) dNOOP -#endif -#ifndef pTHX -# define pTHX void -#endif - -#ifndef pTHX_ -# define pTHX_ -#endif - -#ifndef aTHX -# define aTHX -#endif - -#ifndef aTHX_ -# define aTHX_ -#endif -#ifndef dTHXoa -# define dTHXoa(x) dTHXa(x) -#endif -#ifndef PUSHmortal -# define PUSHmortal PUSHs(sv_newmortal()) -#endif - -#ifndef mPUSHp -# define mPUSHp(p,l) sv_setpvn_mg(PUSHmortal, (p), (l)) -#endif - -#ifndef mPUSHn -# define mPUSHn(n) sv_setnv_mg(PUSHmortal, (NV)(n)) -#endif - -#ifndef mPUSHi -# define mPUSHi(i) sv_setiv_mg(PUSHmortal, (IV)(i)) -#endif - -#ifndef mPUSHu -# define mPUSHu(u) sv_setuv_mg(PUSHmortal, (UV)(u)) -#endif -#ifndef XPUSHmortal -# define XPUSHmortal XPUSHs(sv_newmortal()) -#endif - -#ifndef mXPUSHp -# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn_mg(PUSHmortal, (p), (l)); } STMT_END -#endif - -#ifndef mXPUSHn -# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv_mg(PUSHmortal, (NV)(n)); } STMT_END -#endif - -#ifndef mXPUSHi -# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv_mg(PUSHmortal, (IV)(i)); } STMT_END -#endif - -#ifndef mXPUSHu -# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv_mg(PUSHmortal, (UV)(u)); } STMT_END -#endif - -/* Replace: 1 */ -#ifndef call_sv -# define call_sv perl_call_sv -#endif - -#ifndef call_pv -# define call_pv perl_call_pv -#endif - -#ifndef call_argv -# define call_argv perl_call_argv -#endif - -#ifndef call_method -# define call_method perl_call_method -#endif -#ifndef eval_sv -# define eval_sv perl_eval_sv -#endif - -/* Replace: 0 */ - -/* Replace perl_eval_pv with eval_pv */ -/* eval_pv depends on eval_sv */ - -#ifndef eval_pv -#if defined(NEED_eval_pv) -static SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error); -static -#else -extern SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error); -#endif - -#ifdef eval_pv -# undef eval_pv -#endif -#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b) -#define Perl_eval_pv DPPP_(my_eval_pv) - -#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL) - -SV* -DPPP_(my_eval_pv)(char *p, I32 croak_on_error) -{ - dSP; - SV* sv = newSVpv(p, 0); - - PUSHMARK(sp); - eval_sv(sv, G_SCALAR); - SvREFCNT_dec(sv); - - SPAGAIN; - sv = POPs; - PUTBACK; - - if (croak_on_error && SvTRUE(GvSV(errgv))) - croak(SvPVx(GvSV(errgv), na)); - - return sv; -} - -#endif -#endif -#ifndef newRV_inc -# define newRV_inc(sv) newRV(sv) /* Replace */ -#endif - -#ifndef newRV_noinc -#if defined(NEED_newRV_noinc) -static SV * DPPP_(my_newRV_noinc)(SV *sv); -static -#else -extern SV * DPPP_(my_newRV_noinc)(SV *sv); -#endif - -#ifdef newRV_noinc -# undef newRV_noinc -#endif -#define newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a) -#define Perl_newRV_noinc DPPP_(my_newRV_noinc) - -#if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL) -SV * -DPPP_(my_newRV_noinc)(SV *sv) -{ - SV *rv = (SV *)newRV(sv); - SvREFCNT_dec(sv); - return rv; -} -#endif -#endif - -/* Hint: newCONSTSUB - * Returns a CV* as of perl-5.7.1. This return value is not supported - * by Devel::PPPort. - */ - -/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */ -#if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION < 63))) && ((PERL_VERSION != 4) || (PERL_SUBVERSION != 5)) -#if defined(NEED_newCONSTSUB) -static void DPPP_(my_newCONSTSUB)(HV *stash, char *name, SV *sv); -static -#else -extern void DPPP_(my_newCONSTSUB)(HV *stash, char *name, SV *sv); -#endif - -#ifdef newCONSTSUB -# undef newCONSTSUB -#endif -#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c) -#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB) - -#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL) - -void -DPPP_(my_newCONSTSUB)(HV *stash, char *name, SV *sv) -{ - U32 oldhints = PL_hints; - HV *old_cop_stash = PL_curcop->cop_stash; - HV *old_curstash = PL_curstash; - line_t oldline = PL_curcop->cop_line; - PL_curcop->cop_line = PL_copline; - - PL_hints &= ~HINT_BLOCK_SCOPE; - if (stash) - PL_curstash = PL_curcop->cop_stash = stash; - - newSUB( - -#if ((PERL_VERSION < 3) || ((PERL_VERSION == 3) && (PERL_SUBVERSION < 22))) - start_subparse(), -#elif ((PERL_VERSION == 3) && (PERL_SUBVERSION == 22)) - start_subparse(0), -#else /* 5.003_23 onwards */ - start_subparse(FALSE, 0), -#endif - - newSVOP(OP_CONST, 0, newSVpv(name,0)), - newSVOP(OP_CONST, 0, &PL_sv_no), /* SvPV(&PL_sv_no) == "" -- GMB */ - newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv)) - ); - - PL_hints = oldhints; - PL_curcop->cop_stash = old_cop_stash; - PL_curstash = old_curstash; - PL_curcop->cop_line = oldline; -} -#endif -#endif - -/* - * Boilerplate macros for initializing and accessing interpreter-local - * data from C. All statics in extensions should be reworked to use - * this, if you want to make the extension thread-safe. See ext/re/re.xs - * for an example of the use of these macros. - * - * Code that uses these macros is responsible for the following: - * 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts" - * 2. Declare a typedef named my_cxt_t that is a structure that contains - * all the data that needs to be interpreter-local. - * 3. Use the START_MY_CXT macro after the declaration of my_cxt_t. - * 4. Use the MY_CXT_INIT macro such that it is called exactly once - * (typically put in the BOOT: section). - * 5. Use the members of the my_cxt_t structure everywhere as - * MY_CXT.member. - * 6. Use the dMY_CXT macro (a declaration) in all the functions that - * access MY_CXT. - */ - -#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \ - defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT) - -#ifndef START_MY_CXT - -/* This must appear in all extensions that define a my_cxt_t structure, - * right after the definition (i.e. at file scope). The non-threads - * case below uses it to declare the data as static. */ -#define START_MY_CXT - -#if (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 )) -/* Fetches the SV that keeps the per-interpreter data. */ -#define dMY_CXT_SV \ - SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE) -#else /* >= perl5.004_68 */ -#define dMY_CXT_SV \ - SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \ - sizeof(MY_CXT_KEY)-1, TRUE) -#endif /* < perl5.004_68 */ - -/* This declaration should be used within all functions that use the - * interpreter-local data. */ -#define dMY_CXT \ - dMY_CXT_SV; \ - my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv)) - -/* Creates and zeroes the per-interpreter data. - * (We allocate my_cxtp in a Perl SV so that it will be released when - * the interpreter goes away.) */ -#define MY_CXT_INIT \ - dMY_CXT_SV; \ - /* newSV() allocates one more than needed */ \ - my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\ - Zero(my_cxtp, 1, my_cxt_t); \ - sv_setuv(my_cxt_sv, PTR2UV(my_cxtp)) - -/* This macro must be used to access members of the my_cxt_t structure. - * e.g. MYCXT.some_data */ -#define MY_CXT (*my_cxtp) - -/* Judicious use of these macros can reduce the number of times dMY_CXT - * is used. Use is similar to pTHX, aTHX etc. */ -#define pMY_CXT my_cxt_t *my_cxtp -#define pMY_CXT_ pMY_CXT, -#define _pMY_CXT ,pMY_CXT -#define aMY_CXT my_cxtp -#define aMY_CXT_ aMY_CXT, -#define _aMY_CXT ,aMY_CXT - -#endif /* START_MY_CXT */ - -#ifndef MY_CXT_CLONE -/* Clones the per-interpreter data. */ -#define MY_CXT_CLONE \ - dMY_CXT_SV; \ - my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\ - Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\ - sv_setuv(my_cxt_sv, PTR2UV(my_cxtp)) -#endif - -#else /* single interpreter */ - -#ifndef START_MY_CXT - -#define START_MY_CXT static my_cxt_t my_cxt; -#define dMY_CXT_SV dNOOP -#define dMY_CXT dNOOP -#define MY_CXT_INIT NOOP -#define MY_CXT my_cxt - -#define pMY_CXT void -#define pMY_CXT_ -#define _pMY_CXT -#define aMY_CXT -#define aMY_CXT_ -#define _aMY_CXT - -#endif /* START_MY_CXT */ - -#ifndef MY_CXT_CLONE -#define MY_CXT_CLONE NOOP -#endif - -#endif - -#ifndef IVdf -# if IVSIZE == LONGSIZE -# define IVdf "ld" -# define UVuf "lu" -# define UVof "lo" -# define UVxf "lx" -# define UVXf "lX" -# else -# if IVSIZE == INTSIZE -# define IVdf "d" -# define UVuf "u" -# define UVof "o" -# define UVxf "x" -# define UVXf "X" -# endif -# endif -#endif - -#ifndef NVef -# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \ - defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */ -# define NVef PERL_PRIeldbl -# define NVff PERL_PRIfldbl -# define NVgf PERL_PRIgldbl -# else -# define NVef "e" -# define NVff "f" -# define NVgf "g" -# endif -#endif - -#ifndef SvPV_nolen - -#if defined(NEED_sv_2pv_nolen) -static char * DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv); -static -#else -extern char * DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv); -#endif - -#ifdef sv_2pv_nolen -# undef sv_2pv_nolen -#endif -#define sv_2pv_nolen(a) DPPP_(my_sv_2pv_nolen)(aTHX_ a) -#define Perl_sv_2pv_nolen DPPP_(my_sv_2pv_nolen) - -#if defined(NEED_sv_2pv_nolen) || defined(NEED_sv_2pv_nolen_GLOBAL) - -char * -DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv) -{ - STRLEN n_a; - return sv_2pv(sv, &n_a); -} - -#endif - -/* Hint: sv_2pv_nolen - * Use the SvPV_nolen() macro instead of sv_2pv_nolen(). - */ - -/* SvPV_nolen depends on sv_2pv_nolen */ -#define SvPV_nolen(sv) \ - ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ - ? SvPVX(sv) : sv_2pv_nolen(sv)) - -#endif - -#ifdef SvPVbyte - -/* Hint: SvPVbyte - * Does not work in perl-5.6.1, ppport.h implements a version - * borrowed from perl-5.7.3. - */ - -#if ((PERL_VERSION < 7) || ((PERL_VERSION == 7) && (PERL_SUBVERSION < 0))) - -#if defined(NEED_sv_2pvbyte) -static char * DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp); -static -#else -extern char * DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp); -#endif - -#ifdef sv_2pvbyte -# undef sv_2pvbyte -#endif -#define sv_2pvbyte(a,b) DPPP_(my_sv_2pvbyte)(aTHX_ a,b) -#define Perl_sv_2pvbyte DPPP_(my_sv_2pvbyte) - -#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL) - -char * -DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp) -{ - sv_utf8_downgrade(sv,0); - return SvPV(sv,*lp); -} - -#endif - -/* Hint: sv_2pvbyte - * Use the SvPVbyte() macro instead of sv_2pvbyte(). - */ - -#undef SvPVbyte - -/* SvPVbyte depends on sv_2pvbyte */ -#define SvPVbyte(sv, lp) \ - ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \ - ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp)) - -#endif - -#else - -# define SvPVbyte SvPV -# define sv_2pvbyte sv_2pv - -#endif - -/* sv_2pvbyte_nolen depends on sv_2pv_nolen */ -#ifndef sv_2pvbyte_nolen -# define sv_2pvbyte_nolen sv_2pv_nolen -#endif - -/* Hint: sv_pvn - * Always use the SvPV() macro instead of sv_pvn(). - */ -#ifndef sv_pvn -# define sv_pvn(sv, len) SvPV(sv, len) -#endif - -/* Hint: sv_pvn_force - * Always use the SvPV_force() macro instead of sv_pvn_force(). - */ -#ifndef sv_pvn_force -# define sv_pvn_force(sv, len) SvPV_force(sv, len) -#endif - -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(vnewSVpvf) -#if defined(NEED_vnewSVpvf) -static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args); -static -#else -extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char * pat, va_list * args); -#endif - -#ifdef vnewSVpvf -# undef vnewSVpvf -#endif -#define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b) -#define Perl_vnewSVpvf DPPP_(my_vnewSVpvf) - -#if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL) - -SV * -DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args) -{ - register SV *sv = newSV(0); - sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); - return sv; -} - -#endif -#endif - -/* sv_vcatpvf depends on sv_vcatpvfn */ -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_vcatpvf) -# define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)) -#endif - -/* sv_vsetpvf depends on sv_vsetpvfn */ -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_vsetpvf) -# define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)) -#endif - -/* sv_catpvf_mg depends on sv_vcatpvfn, sv_catpvf_mg_nocontext */ -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_catpvf_mg) -#if defined(NEED_sv_catpvf_mg) -static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...); -static -#else -extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...); -#endif - -#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg) - -#if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL) - -void -DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...) -{ - va_list args; - va_start(args, pat); - sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); - SvSETMAGIC(sv); - va_end(args); -} - -#endif -#endif - -/* sv_catpvf_mg_nocontext depends on sv_vcatpvfn */ -#ifdef PERL_IMPLICIT_CONTEXT -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_catpvf_mg_nocontext) -#if defined(NEED_sv_catpvf_mg_nocontext) -static void DPPP_(my_sv_catpvf_mg_nocontext)(SV * sv, const char * pat, ...); -static -#else -extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV * sv, const char * pat, ...); -#endif - -#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext) -#define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext) - -#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_GLOBAL) - -void -DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...) -{ - dTHX; - va_list args; - va_start(args, pat); - sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); - SvSETMAGIC(sv); - va_end(args); -} - -#endif -#endif -#endif - -#ifndef sv_catpvf_mg -# ifdef PERL_IMPLICIT_CONTEXT -# define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext -# else -# define sv_catpvf_mg Perl_sv_catpvf_mg -# endif -#endif - -/* sv_vcatpvf_mg depends on sv_vcatpvfn */ -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_vcatpvf_mg) -# define sv_vcatpvf_mg(sv, pat, args) \ - STMT_START { \ - sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \ - SvSETMAGIC(sv); \ - } STMT_END -#endif - -/* sv_setpvf_mg depends on sv_vsetpvfn, sv_setpvf_mg_nocontext */ -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_setpvf_mg) -#if defined(NEED_sv_setpvf_mg) -static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * sv, const char * pat, ...); -static -#else -extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * sv, const char * pat, ...); -#endif - -#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg) - -#if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL) - -void -DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...) -{ - va_list args; - va_start(args, pat); - sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); - SvSETMAGIC(sv); - va_end(args); -} - -#endif -#endif - -/* sv_setpvf_mg_nocontext depends on sv_vsetpvfn */ -#ifdef PERL_IMPLICIT_CONTEXT -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_setpvf_mg_nocontext) -#if defined(NEED_sv_setpvf_mg_nocontext) -static void DPPP_(my_sv_setpvf_mg_nocontext)(SV * sv, const char * pat, ...); -static -#else -extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV * sv, const char * pat, ...); -#endif - -#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext) -#define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext) - -#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_GLOBAL) - -void -DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...) -{ - dTHX; - va_list args; - va_start(args, pat); - sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*)); - SvSETMAGIC(sv); - va_end(args); -} - -#endif -#endif -#endif - -#ifndef sv_setpvf_mg -# ifdef PERL_IMPLICIT_CONTEXT -# define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext -# else -# define sv_setpvf_mg Perl_sv_setpvf_mg -# endif -#endif - -/* sv_vsetpvf_mg depends on sv_vsetpvfn */ -#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_vsetpvf_mg) -# define sv_vsetpvf_mg(sv, pat, args) \ - STMT_START { \ - sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \ - SvSETMAGIC(sv); \ - } STMT_END -#endif -#ifndef SvGETMAGIC -# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END -#endif -#ifndef PERL_MAGIC_sv -# define PERL_MAGIC_sv '\0' -#endif - -#ifndef PERL_MAGIC_overload -# define PERL_MAGIC_overload 'A' -#endif - -#ifndef PERL_MAGIC_overload_elem -# define PERL_MAGIC_overload_elem 'a' -#endif - -#ifndef PERL_MAGIC_overload_table -# define PERL_MAGIC_overload_table 'c' -#endif - -#ifndef PERL_MAGIC_bm -# define PERL_MAGIC_bm 'B' -#endif - -#ifndef PERL_MAGIC_regdata -# define PERL_MAGIC_regdata 'D' -#endif - -#ifndef PERL_MAGIC_regdatum -# define PERL_MAGIC_regdatum 'd' -#endif - -#ifndef PERL_MAGIC_env -# define PERL_MAGIC_env 'E' -#endif - -#ifndef PERL_MAGIC_envelem -# define PERL_MAGIC_envelem 'e' -#endif - -#ifndef PERL_MAGIC_fm -# define PERL_MAGIC_fm 'f' -#endif - -#ifndef PERL_MAGIC_regex_global -# define PERL_MAGIC_regex_global 'g' -#endif - -#ifndef PERL_MAGIC_isa -# define PERL_MAGIC_isa 'I' -#endif - -#ifndef PERL_MAGIC_isaelem -# define PERL_MAGIC_isaelem 'i' -#endif - -#ifndef PERL_MAGIC_nkeys -# define PERL_MAGIC_nkeys 'k' -#endif - -#ifndef PERL_MAGIC_dbfile -# define PERL_MAGIC_dbfile 'L' -#endif - -#ifndef PERL_MAGIC_dbline -# define PERL_MAGIC_dbline 'l' -#endif - -#ifndef PERL_MAGIC_mutex -# define PERL_MAGIC_mutex 'm' -#endif - -#ifndef PERL_MAGIC_shared -# define PERL_MAGIC_shared 'N' -#endif - -#ifndef PERL_MAGIC_shared_scalar -# define PERL_MAGIC_shared_scalar 'n' -#endif - -#ifndef PERL_MAGIC_collxfrm -# define PERL_MAGIC_collxfrm 'o' -#endif - -#ifndef PERL_MAGIC_tied -# define PERL_MAGIC_tied 'P' -#endif - -#ifndef PERL_MAGIC_tiedelem -# define PERL_MAGIC_tiedelem 'p' -#endif - -#ifndef PERL_MAGIC_tiedscalar -# define PERL_MAGIC_tiedscalar 'q' -#endif - -#ifndef PERL_MAGIC_qr -# define PERL_MAGIC_qr 'r' -#endif - -#ifndef PERL_MAGIC_sig -# define PERL_MAGIC_sig 'S' -#endif - -#ifndef PERL_MAGIC_sigelem -# define PERL_MAGIC_sigelem 's' -#endif - -#ifndef PERL_MAGIC_taint -# define PERL_MAGIC_taint 't' -#endif - -#ifndef PERL_MAGIC_uvar -# define PERL_MAGIC_uvar 'U' -#endif - -#ifndef PERL_MAGIC_uvar_elem -# define PERL_MAGIC_uvar_elem 'u' -#endif - -#ifndef PERL_MAGIC_vstring -# define PERL_MAGIC_vstring 'V' -#endif - -#ifndef PERL_MAGIC_vec -# define PERL_MAGIC_vec 'v' -#endif - -#ifndef PERL_MAGIC_utf8 -# define PERL_MAGIC_utf8 'w' -#endif - -#ifndef PERL_MAGIC_substr -# define PERL_MAGIC_substr 'x' -#endif - -#ifndef PERL_MAGIC_defelem -# define PERL_MAGIC_defelem 'y' -#endif - -#ifndef PERL_MAGIC_glob -# define PERL_MAGIC_glob '*' -#endif - -#ifndef PERL_MAGIC_arylen -# define PERL_MAGIC_arylen '#' -#endif - -#ifndef PERL_MAGIC_pos -# define PERL_MAGIC_pos '.' -#endif - -#ifndef PERL_MAGIC_backref -# define PERL_MAGIC_backref '<' -#endif - -#ifndef PERL_MAGIC_ext -# define PERL_MAGIC_ext '~' -#endif - -/* That's the best we can do... */ -#ifndef SvPV_force_nomg -# define SvPV_force_nomg SvPV_force -#endif - -#ifndef SvPV_nomg -# define SvPV_nomg SvPV -#endif - -#ifndef sv_catpvn_nomg -# define sv_catpvn_nomg sv_catpvn -#endif - -#ifndef sv_catsv_nomg -# define sv_catsv_nomg sv_catsv -#endif - -#ifndef sv_setsv_nomg -# define sv_setsv_nomg sv_setsv -#endif - -#ifndef sv_pvn_nomg -# define sv_pvn_nomg sv_pvn -#endif - -#ifndef SvIV_nomg -# define SvIV_nomg SvIV -#endif - -#ifndef SvUV_nomg -# define SvUV_nomg SvUV -#endif - -#ifndef sv_catpv_mg -# define sv_catpv_mg(sv, ptr) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_catpv(TeMpSv,ptr); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_catpvn_mg -# define sv_catpvn_mg(sv, ptr, len) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_catpvn(TeMpSv,ptr,len); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_catsv_mg -# define sv_catsv_mg(dsv, ssv) \ - STMT_START { \ - SV *TeMpSv = dsv; \ - sv_catsv(TeMpSv,ssv); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_setiv_mg -# define sv_setiv_mg(sv, i) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_setiv(TeMpSv,i); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_setnv_mg -# define sv_setnv_mg(sv, num) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_setnv(TeMpSv,num); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_setpv_mg -# define sv_setpv_mg(sv, ptr) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_setpv(TeMpSv,ptr); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_setpvn_mg -# define sv_setpvn_mg(sv, ptr, len) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_setpvn(TeMpSv,ptr,len); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_setsv_mg -# define sv_setsv_mg(dsv, ssv) \ - STMT_START { \ - SV *TeMpSv = dsv; \ - sv_setsv(TeMpSv,ssv); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_setuv_mg -# define sv_setuv_mg(sv, i) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_setuv(TeMpSv,i); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifndef sv_usepvn_mg -# define sv_usepvn_mg(sv, ptr, len) \ - STMT_START { \ - SV *TeMpSv = sv; \ - sv_usepvn(TeMpSv,ptr,len); \ - SvSETMAGIC(TeMpSv); \ - } STMT_END -#endif - -#ifdef USE_ITHREADS -#ifndef CopFILE -# define CopFILE(c) ((c)->cop_file) -#endif - -#ifndef CopFILEGV -# define CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv) -#endif - -#ifndef CopFILE_set -# define CopFILE_set(c,pv) ((c)->cop_file = savepv(pv)) -#endif - -#ifndef CopFILESV -# define CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv) -#endif - -#ifndef CopFILEAV -# define CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav) -#endif - -#ifndef CopSTASHPV -# define CopSTASHPV(c) ((c)->cop_stashpv) -#endif - -#ifndef CopSTASHPV_set -# define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch)) -#endif - -#ifndef CopSTASH -# define CopSTASH(c) (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv) -#endif - -#ifndef CopSTASH_set -# define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch) -#endif - -#ifndef CopSTASH_eq -# define CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \ - || (CopSTASHPV(c) && HvNAME(hv) \ - && strEQ(CopSTASHPV(c), HvNAME(hv))))) -#endif - -#else -#ifndef CopFILEGV -# define CopFILEGV(c) ((c)->cop_filegv) -#endif - -#ifndef CopFILEGV_set -# define CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv)) -#endif - -#ifndef CopFILE_set -# define CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv)) -#endif - -#ifndef CopFILESV -# define CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv) -#endif - -#ifndef CopFILEAV -# define CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav) -#endif - -#ifndef CopFILE -# define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) -#endif - -#ifndef CopSTASH -# define CopSTASH(c) ((c)->cop_stash) -#endif - -#ifndef CopSTASH_set -# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv)) -#endif - -#ifndef CopSTASHPV -# define CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch) -#endif - -#ifndef CopSTASHPV_set -# define CopSTASHPV_set(c,pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD)) -#endif - -#ifndef CopSTASH_eq -# define CopSTASH_eq(c,hv) (CopSTASH(c) == (hv)) -#endif - -#endif /* USE_ITHREADS */ -#ifndef IN_PERL_COMPILETIME -# define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling) -#endif - -#ifndef IN_LOCALE_RUNTIME -# define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE) -#endif - -#ifndef IN_LOCALE_COMPILETIME -# define IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE) -#endif - -#ifndef IN_LOCALE -# define IN_LOCALE (IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME) -#endif -#ifndef IS_NUMBER_IN_UV -# define IS_NUMBER_IN_UV 0x01 -#endif - -#ifndef IS_NUMBER_GREATER_THAN_UV_MAX -# define IS_NUMBER_GREATER_THAN_UV_MAX 0x02 -#endif - -#ifndef IS_NUMBER_NOT_INT -# define IS_NUMBER_NOT_INT 0x04 -#endif - -#ifndef IS_NUMBER_NEG -# define IS_NUMBER_NEG 0x08 -#endif - -#ifndef IS_NUMBER_INFINITY -# define IS_NUMBER_INFINITY 0x10 -#endif - -#ifndef IS_NUMBER_NAN -# define IS_NUMBER_NAN 0x20 -#endif - -/* GROK_NUMERIC_RADIX depends on grok_numeric_radix */ -#ifndef GROK_NUMERIC_RADIX -# define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send) -#endif -#ifndef PERL_SCAN_GREATER_THAN_UV_MAX -# define PERL_SCAN_GREATER_THAN_UV_MAX 0x02 -#endif - -#ifndef PERL_SCAN_SILENT_ILLDIGIT -# define PERL_SCAN_SILENT_ILLDIGIT 0x04 -#endif - -#ifndef PERL_SCAN_ALLOW_UNDERSCORES -# define PERL_SCAN_ALLOW_UNDERSCORES 0x01 -#endif - -#ifndef PERL_SCAN_DISALLOW_PREFIX -# define PERL_SCAN_DISALLOW_PREFIX 0x02 -#endif - -#ifndef grok_numeric_radix -#if defined(NEED_grok_numeric_radix) -static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * send); -static -#else -extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * send); -#endif - -#ifdef grok_numeric_radix -# undef grok_numeric_radix -#endif -#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b) -#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix) - -#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL) -bool -DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send) -{ -#ifdef USE_LOCALE_NUMERIC -#ifdef PL_numeric_radix_sv - if (PL_numeric_radix_sv && IN_LOCALE) { - STRLEN len; - char* radix = SvPV(PL_numeric_radix_sv, len); - if (*sp + len <= send && memEQ(*sp, radix, len)) { - *sp += len; - return TRUE; - } - } -#else - /* older perls don't have PL_numeric_radix_sv so the radix - * must manually be requested from locale.h - */ -#include <locale.h> - dTHR; /* needed for older threaded perls */ - struct lconv *lc = localeconv(); - char *radix = lc->decimal_point; - if (radix && IN_LOCALE) { - STRLEN len = strlen(radix); - if (*sp + len <= send && memEQ(*sp, radix, len)) { - *sp += len; - return TRUE; - } - } -#endif /* PERL_VERSION */ -#endif /* USE_LOCALE_NUMERIC */ - /* always try "." if numeric radix didn't match because - * we may have data from different locales mixed */ - if (*sp < send && **sp == '.') { - ++*sp; - return TRUE; - } - return FALSE; -} -#endif -#endif - -/* grok_number depends on grok_numeric_radix */ - -#ifndef grok_number -#if defined(NEED_grok_number) -static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep); -static -#else -extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep); -#endif - -#ifdef grok_number -# undef grok_number -#endif -#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c) -#define Perl_grok_number DPPP_(my_grok_number) - -#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL) -int -DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep) -{ - const char *s = pv; - const char *send = pv + len; - const UV max_div_10 = UV_MAX / 10; - const char max_mod_10 = UV_MAX % 10; - int numtype = 0; - int sawinf = 0; - int sawnan = 0; - - while (s < send && isSPACE(*s)) - s++; - if (s == send) { - return 0; - } else if (*s == '-') { - s++; - numtype = IS_NUMBER_NEG; - } - else if (*s == '+') - s++; - - if (s == send) - return 0; - - /* next must be digit or the radix separator or beginning of infinity */ - if (isDIGIT(*s)) { - /* UVs are at least 32 bits, so the first 9 decimal digits cannot - overflow. */ - UV value = *s - '0'; - /* This construction seems to be more optimiser friendly. - (without it gcc does the isDIGIT test and the *s - '0' separately) - With it gcc on arm is managing 6 instructions (6 cycles) per digit. - In theory the optimiser could deduce how far to unroll the loop - before checking for overflow. */ - if (++s < send) { - int digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - digit = *s - '0'; - if (digit >= 0 && digit <= 9) { - value = value * 10 + digit; - if (++s < send) { - /* Now got 9 digits, so need to check - each time for overflow. */ - digit = *s - '0'; - while (digit >= 0 && digit <= 9 - && (value < max_div_10 - || (value == max_div_10 - && digit <= max_mod_10))) { - value = value * 10 + digit; - if (++s < send) - digit = *s - '0'; - else - break; - } - if (digit >= 0 && digit <= 9 - && (s < send)) { - /* value overflowed. - skip the remaining digits, don't - worry about setting *valuep. */ - do { - s++; - } while (s < send && isDIGIT(*s)); - numtype |= - IS_NUMBER_GREATER_THAN_UV_MAX; - goto skip_value; - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - numtype |= IS_NUMBER_IN_UV; - if (valuep) - *valuep = value; - - skip_value: - if (GROK_NUMERIC_RADIX(&s, send)) { - numtype |= IS_NUMBER_NOT_INT; - while (s < send && isDIGIT(*s)) /* optional digits after the radix */ - s++; - } - } - else if (GROK_NUMERIC_RADIX(&s, send)) { - numtype |= IS_NUMBER_NOT_INT | IS_NUMBER_IN_UV; /* valuep assigned below */ - /* no digits before the radix means we need digits after it */ - if (s < send && isDIGIT(*s)) { - do { - s++; - } while (s < send && isDIGIT(*s)); - if (valuep) { - /* integer approximation is valid - it's 0. */ - *valuep = 0; - } - } - else - return 0; - } else if (*s == 'I' || *s == 'i') { - s++; if (s == send || (*s != 'N' && *s != 'n')) return 0; - s++; if (s == send || (*s != 'F' && *s != 'f')) return 0; - s++; if (s < send && (*s == 'I' || *s == 'i')) { - s++; if (s == send || (*s != 'N' && *s != 'n')) return 0; - s++; if (s == send || (*s != 'I' && *s != 'i')) return 0; - s++; if (s == send || (*s != 'T' && *s != 't')) return 0; - s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0; - s++; - } - sawinf = 1; - } else if (*s == 'N' || *s == 'n') { - /* XXX TODO: There are signaling NaNs and quiet NaNs. */ - s++; if (s == send || (*s != 'A' && *s != 'a')) return 0; - s++; if (s == send || (*s != 'N' && *s != 'n')) return 0; - s++; - sawnan = 1; - } else - return 0; - - if (sawinf) { - numtype &= IS_NUMBER_NEG; /* Keep track of sign */ - numtype |= IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT; - } else if (sawnan) { - numtype &= IS_NUMBER_NEG; /* Keep track of sign */ - numtype |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT; - } else if (s < send) { - /* we can have an optional exponent part */ - if (*s == 'e' || *s == 'E') { - /* The only flag we keep is sign. Blow away any "it's UV" */ - numtype &= IS_NUMBER_NEG; - numtype |= IS_NUMBER_NOT_INT; - s++; - if (s < send && (*s == '-' || *s == '+')) - s++; - if (s < send && isDIGIT(*s)) { - do { - s++; - } while (s < send && isDIGIT(*s)); - } - else - return 0; - } - } - while (s < send && isSPACE(*s)) - s++; - if (s >= send) - return numtype; - if (len == 10 && memEQ(pv, "0 but true", 10)) { - if (valuep) - *valuep = 0; - return IS_NUMBER_IN_UV; - } - return 0; -} -#endif -#endif - -/* - * The grok_* routines have been modified to use warn() instead of - * Perl_warner(). Also, 'hexdigit' was the former name of PL_hexdigit, - * which is why the stack variable has been renamed to 'xdigit'. - */ - -#ifndef grok_bin -#if defined(NEED_grok_bin) -static UV DPPP_(my_grok_bin)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result); -static -#else -extern UV DPPP_(my_grok_bin)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result); -#endif - -#ifdef grok_bin -# undef grok_bin -#endif -#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d) -#define Perl_grok_bin DPPP_(my_grok_bin) - -#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL) -UV -DPPP_(my_grok_bin)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) -{ - const char *s = start; - STRLEN len = *len_p; - UV value = 0; - NV value_nv = 0; - - const UV max_div_2 = UV_MAX / 2; - bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; - bool overflowed = FALSE; - - if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) { - /* strip off leading b or 0b. - for compatibility silently suffer "b" and "0b" as valid binary - numbers. */ - if (len >= 1) { - if (s[0] == 'b') { - s++; - len--; - } - else if (len >= 2 && s[0] == '0' && s[1] == 'b') { - s+=2; - len-=2; - } - } - } - - for (; len-- && *s; s++) { - char bit = *s; - if (bit == '0' || bit == '1') { - /* Write it in this wonky order with a goto to attempt to get the - compiler to make the common case integer-only loop pretty tight. - With gcc seems to be much straighter code than old scan_bin. */ - redo: - if (!overflowed) { - if (value <= max_div_2) { - value = (value << 1) | (bit - '0'); - continue; - } - /* Bah. We're just overflowed. */ - warn("Integer overflow in binary number"); - overflowed = TRUE; - value_nv = (NV) value; - } - value_nv *= 2.0; - /* If an NV has not enough bits in its mantissa to - * represent a UV this summing of small low-order numbers - * is a waste of time (because the NV cannot preserve - * the low-order bits anyway): we could just remember when - * did we overflow and in the end just multiply value_nv by the - * right amount. */ - value_nv += (NV)(bit - '0'); - continue; - } - if (bit == '_' && len && allow_underscores && (bit = s[1]) - && (bit == '0' || bit == '1')) - { - --len; - ++s; - goto redo; - } - if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT)) - warn("Illegal binary digit '%c' ignored", *s); - break; - } - - if ( ( overflowed && value_nv > 4294967295.0) -#if UVSIZE > 4 - || (!overflowed && value > 0xffffffff ) -#endif - ) { - warn("Binary number > 0b11111111111111111111111111111111 non-portable"); - } - *len_p = s - start; - if (!overflowed) { - *flags = 0; - return value; - } - *flags = PERL_SCAN_GREATER_THAN_UV_MAX; - if (result) - *result = value_nv; - return UV_MAX; -} -#endif -#endif - -#ifndef grok_hex -#if defined(NEED_grok_hex) -static UV DPPP_(my_grok_hex)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result); -static -#else -extern UV DPPP_(my_grok_hex)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result); -#endif - -#ifdef grok_hex -# undef grok_hex -#endif -#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d) -#define Perl_grok_hex DPPP_(my_grok_hex) - -#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL) -UV -DPPP_(my_grok_hex)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) -{ - const char *s = start; - STRLEN len = *len_p; - UV value = 0; - NV value_nv = 0; - - const UV max_div_16 = UV_MAX / 16; - bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; - bool overflowed = FALSE; - const char *xdigit; - - if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) { - /* strip off leading x or 0x. - for compatibility silently suffer "x" and "0x" as valid hex numbers. - */ - if (len >= 1) { - if (s[0] == 'x') { - s++; - len--; - } - else if (len >= 2 && s[0] == '0' && s[1] == 'x') { - s+=2; - len-=2; - } - } - } - - for (; len-- && *s; s++) { - xdigit = strchr((char *) PL_hexdigit, *s); - if (xdigit) { - /* Write it in this wonky order with a goto to attempt to get the - compiler to make the common case integer-only loop pretty tight. - With gcc seems to be much straighter code than old scan_hex. */ - redo: - if (!overflowed) { - if (value <= max_div_16) { - value = (value << 4) | ((xdigit - PL_hexdigit) & 15); - continue; - } - warn("Integer overflow in hexadecimal number"); - overflowed = TRUE; - value_nv = (NV) value; - } - value_nv *= 16.0; - /* If an NV has not enough bits in its mantissa to - * represent a UV this summing of small low-order numbers - * is a waste of time (because the NV cannot preserve - * the low-order bits anyway): we could just remember when - * did we overflow and in the end just multiply value_nv by the - * right amount of 16-tuples. */ - value_nv += (NV)((xdigit - PL_hexdigit) & 15); - continue; - } - if (*s == '_' && len && allow_underscores && s[1] - && (xdigit = strchr((char *) PL_hexdigit, s[1]))) - { - --len; - ++s; - goto redo; - } - if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT)) - warn("Illegal hexadecimal digit '%c' ignored", *s); - break; - } - - if ( ( overflowed && value_nv > 4294967295.0) -#if UVSIZE > 4 - || (!overflowed && value > 0xffffffff ) -#endif - ) { - warn("Hexadecimal number > 0xffffffff non-portable"); - } - *len_p = s - start; - if (!overflowed) { - *flags = 0; - return value; - } - *flags = PERL_SCAN_GREATER_THAN_UV_MAX; - if (result) - *result = value_nv; - return UV_MAX; -} -#endif -#endif - -#ifndef grok_oct -#if defined(NEED_grok_oct) -static UV DPPP_(my_grok_oct)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result); -static -#else -extern UV DPPP_(my_grok_oct)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result); -#endif - -#ifdef grok_oct -# undef grok_oct -#endif -#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d) -#define Perl_grok_oct DPPP_(my_grok_oct) - -#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL) -UV -DPPP_(my_grok_oct)(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) -{ - const char *s = start; - STRLEN len = *len_p; - UV value = 0; - NV value_nv = 0; - - const UV max_div_8 = UV_MAX / 8; - bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; - bool overflowed = FALSE; - - for (; len-- && *s; s++) { - /* gcc 2.95 optimiser not smart enough to figure that this subtraction - out front allows slicker code. */ - int digit = *s - '0'; - if (digit >= 0 && digit <= 7) { - /* Write it in this wonky order with a goto to attempt to get the - compiler to make the common case integer-only loop pretty tight. - */ - redo: - if (!overflowed) { - if (value <= max_div_8) { - value = (value << 3) | digit; - continue; - } - /* Bah. We're just overflowed. */ - warn("Integer overflow in octal number"); - overflowed = TRUE; - value_nv = (NV) value; - } - value_nv *= 8.0; - /* If an NV has not enough bits in its mantissa to - * represent a UV this summing of small low-order numbers - * is a waste of time (because the NV cannot preserve - * the low-order bits anyway): we could just remember when - * did we overflow and in the end just multiply value_nv by the - * right amount of 8-tuples. */ - value_nv += (NV)digit; - continue; - } - if (digit == ('_' - '0') && len && allow_underscores - && (digit = s[1] - '0') && (digit >= 0 && digit <= 7)) - { - --len; - ++s; - goto redo; - } - /* Allow \octal to work the DWIM way (that is, stop scanning - * as soon as non-octal characters are seen, complain only iff - * someone seems to want to use the digits eight and nine). */ - if (digit == 8 || digit == 9) { - if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT)) - warn("Illegal octal digit '%c' ignored", *s); - } - break; - } - - if ( ( overflowed && value_nv > 4294967295.0) -#if UVSIZE > 4 - || (!overflowed && value > 0xffffffff ) -#endif - ) { - warn("Octal number > 037777777777 non-portable"); - } - *len_p = s - start; - if (!overflowed) { - *flags = 0; - return value; - } - *flags = PERL_SCAN_GREATER_THAN_UV_MAX; - if (result) - *result = value_nv; - return UV_MAX; -} -#endif -#endif - -#ifdef NO_XSLOCKS -# ifdef dJMPENV -# define dXCPT dJMPENV; int rEtV = 0 -# define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0) -# define XCPT_TRY_END JMPENV_POP; -# define XCPT_CATCH if (rEtV != 0) -# define XCPT_RETHROW JMPENV_JUMP(rEtV) -# else -# define dXCPT Sigjmp_buf oldTOP; int rEtV = 0 -# define XCPT_TRY_START Copy(top_env, oldTOP, 1, Sigjmp_buf); rEtV = Sigsetjmp(top_env, 1); if (rEtV == 0) -# define XCPT_TRY_END Copy(oldTOP, top_env, 1, Sigjmp_buf); -# define XCPT_CATCH if (rEtV != 0) -# define XCPT_RETHROW Siglongjmp(top_env, rEtV) -# endif -#endif - -#endif /* _P_P_PORTABILITY_H_ */ - -/* End of File ppport.h */ diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/dbivport.h b/Master/tlpkg/tlperl/lib/auto/DBI/dbivport.h deleted file mode 100755 index 77dd96b86fb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/dbivport.h +++ /dev/null @@ -1,52 +0,0 @@ -/* dbivport.h - - Provides macros that enable greater portability between DBI versions. - - This file should be *copied* and included in driver distributions - and #included into the source, after #include DBIXS.h - - New driver releases should include an updated copy of dbivport.h - from the most recent DBI release. -*/ - -#ifndef DBI_VPORT_H -#define DBI_VPORT_H - -#ifndef DBIh_SET_ERR_CHAR -/* Emulate DBIh_SET_ERR_CHAR - Only uses the err_i, errstr and state parameters. -*/ -#define DBIh_SET_ERR_CHAR(h, imp_xxh, err_c, err_i, errstr, state, method) \ - sv_setiv(DBIc_ERR(imp_xxh), err_i); \ - (state) ? (void)sv_setpv(DBIc_STATE(imp_xxh), state) : (void)SvOK_off(DBIc_STATE(imp_xxh)); \ - sv_setpv(DBIc_ERRSTR(imp_xxh), errstr) -#endif - -#ifndef DBIcf_Executed -#define DBIcf_Executed 0x080000 -#endif - -#ifndef DBIc_TRACE_LEVEL_MASK -#define DBIc_TRACE_LEVEL_MASK 0x0000000F -#define DBIc_TRACE_FLAGS_MASK 0xFFFFFF00 -#define DBIc_TRACE_SETTINGS(imp) (DBIc_DBISTATE(imp)->debug) -#define DBIc_TRACE_LEVEL(imp) (DBIc_TRACE_SETTINGS(imp) & DBIc_TRACE_LEVEL_MASK) -#define DBIc_TRACE_FLAGS(imp) (DBIc_TRACE_SETTINGS(imp) & DBIc_TRACE_FLAGS_MASK) -/* DBIc_TRACE_MATCHES - true if s1 'matches' s2 (c.f. trace_msg()) - DBIc_TRACE_MATCHES(foo, DBIc_TRACE_SETTINGS(imp)) -*/ -#define DBIc_TRACE_MATCHES(s1, s2) \ - ( ((s1 & DBIc_TRACE_LEVEL_MASK) >= (s2 & DBIc_TRACE_LEVEL_MASK)) \ - || ((s1 & DBIc_TRACE_FLAGS_MASK) & (s2 & DBIc_TRACE_FLAGS_MASK)) ) -/* DBIc_TRACE - true if flags match & DBI level>=flaglevel, or if DBI level>level - DBIc_TRACE(imp, 0, 0, 4) = if level >= 4 - DBIc_TRACE(imp, DBDtf_FOO, 2, 4) = if tracing DBDtf_FOO & level>=2 or level>=4 - DBIc_TRACE(imp, DBDtf_FOO, 2, 0) = as above but never trace just due to level -*/ -#define DBIc_TRACE(imp, flags, flaglevel, level) \ - ( (flags && (DBIc_TRACE_FLAGS(imp) & flags) && (DBIc_TRACE_LEVEL(imp) >= flaglevel)) \ - || (level && DBIc_TRACE_LEVEL(imp) >= level) ) -#endif - - -#endif /* !DBI_VPORT_H */ diff --git a/Master/tlpkg/tlperl/lib/auto/DBI/dbixs_rev.h b/Master/tlpkg/tlperl/lib/auto/DBI/dbixs_rev.h deleted file mode 100755 index da50f6018c8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBI/dbixs_rev.h +++ /dev/null @@ -1,2 +0,0 @@ -/* Sat May 2 16:48:00 2009 */ -#define DBIXS_REVISION 12733 diff --git a/Master/tlpkg/tlperl/lib/auto/DBIx/Simple/.packlist b/Master/tlpkg/tlperl/lib/auto/DBIx/Simple/.packlist deleted file mode 100755 index f71f69d95e6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBIx/Simple/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\DBIx\Simple.pm
-C:\strawberry\perl\vendor\lib\DBIx\Simple\Comparison.pod
-C:\strawberry\perl\vendor\lib\DBIx\Simple\Examples.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/DBM/Deep/.packlist b/Master/tlpkg/tlperl/lib/auto/DBM/Deep/.packlist deleted file mode 100755 index e357818632c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DBM/Deep/.packlist +++ /dev/null @@ -1,8 +0,0 @@ -C:\strawberry\perl\vendor\lib\DBM\Deep.pm
-C:\strawberry\perl\vendor\lib\DBM\Deep.pod
-C:\strawberry\perl\vendor\lib\DBM\Deep\Array.pm
-C:\strawberry\perl\vendor\lib\DBM\Deep\Cookbook.pod
-C:\strawberry\perl\vendor\lib\DBM\Deep\Engine.pm
-C:\strawberry\perl\vendor\lib\DBM\Deep\File.pm
-C:\strawberry\perl\vendor\lib\DBM\Deep\Hash.pm
-C:\strawberry\perl\vendor\lib\DBM\Deep\Internals.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/DB_File/.packlist b/Master/tlpkg/tlperl/lib/auto/DB_File/.packlist deleted file mode 100755 index 22a8ff47aba..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DB_File/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\DB_File.pm
-C:\strawberry\perl\vendor\lib\auto\DB_File\DB_File.bs
-C:\strawberry\perl\vendor\lib\auto\DB_File\DB_File.dll
-C:\strawberry\perl\vendor\lib\auto\DB_File\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/DB_File/DB_File.bs b/Master/tlpkg/tlperl/lib/auto/DB_File/DB_File.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DB_File/DB_File.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DB_File/DB_File.dll b/Master/tlpkg/tlperl/lib/auto/DB_File/DB_File.dll Binary files differdeleted file mode 100755 index 4d8669c4861..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DB_File/DB_File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DB_File/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/DB_File/autosplit.ix deleted file mode 100755 index caa08654e87..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DB_File/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\DB_File.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Buffer/.packlist b/Master/tlpkg/tlperl/lib/auto/Data/Buffer/.packlist deleted file mode 100755 index d7ad4473176..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Data/Buffer/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Data\Buffer.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Compare/.packlist b/Master/tlpkg/tlperl/lib/auto/Data/Compare/.packlist deleted file mode 100755 index a378e7d69bf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Data/Compare/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Data\Compare.pm
-C:\strawberry\perl\vendor\lib\Data\Compare\Plugins.pod
-C:\strawberry\perl\vendor\lib\Data\Compare\Plugins\Scalar\Properties.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/.packlist b/Master/tlpkg/tlperl/lib/auto/Data/Dumper/.packlist deleted file mode 100755 index fdecd9a9d92..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\lib\Data\Dumper.pm
-C:\strawberry\perl\lib\auto\Data\Dumper\Dumper.bs
-C:\strawberry\perl\lib\auto\Data\Dumper\Dumper.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.bs b/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.dll b/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.dll Binary files differdeleted file mode 100755 index 4f566821c0c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Data/Dumper/Dumper.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Data/Random/.packlist b/Master/tlpkg/tlperl/lib/auto/Data/Random/.packlist deleted file mode 100755 index 21945e52a6b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Data/Random/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Data\Random.pm
-C:\strawberry\perl\vendor\lib\Data\Random\WordList.pm
-C:\strawberry\perl\vendor\lib\Data\Random\dict
diff --git a/Master/tlpkg/tlperl/lib/auto/Devel/DProf/DProf.dll b/Master/tlpkg/tlperl/lib/auto/Devel/DProf/DProf.dll Binary files differdeleted file mode 100755 index 3ef80bf4d4c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Devel/DProf/DProf.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Devel/PPPort/PPPort.dll b/Master/tlpkg/tlperl/lib/auto/Devel/PPPort/PPPort.dll Binary files differdeleted file mode 100755 index 9d533a2b064..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Devel/PPPort/PPPort.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Devel/Peek/Peek.dll b/Master/tlpkg/tlperl/lib/auto/Devel/Peek/Peek.dll Binary files differdeleted file mode 100755 index 11b31869de2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Devel/Peek/Peek.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/BubbleBabble/.packlist b/Master/tlpkg/tlperl/lib/auto/Digest/BubbleBabble/.packlist deleted file mode 100755 index 78a2d20fe82..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/BubbleBabble/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Digest\BubbleBabble.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/MD2/.packlist b/Master/tlpkg/tlperl/lib/auto/Digest/MD2/.packlist deleted file mode 100755 index c6ed5aa837f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/MD2/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Digest\MD2.pm
-C:\strawberry\perl\vendor\lib\auto\Digest\MD2\MD2.bs
-C:\strawberry\perl\vendor\lib\auto\Digest\MD2\MD2.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/MD2/MD2.bs b/Master/tlpkg/tlperl/lib/auto/Digest/MD2/MD2.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/MD2/MD2.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/MD2/MD2.dll b/Master/tlpkg/tlperl/lib/auto/Digest/MD2/MD2.dll Binary files differdeleted file mode 100755 index 19c561e4d25..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/MD2/MD2.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/MD5/MD5.dll b/Master/tlpkg/tlperl/lib/auto/Digest/MD5/MD5.dll Binary files differdeleted file mode 100755 index b7192969cc4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/MD5/MD5.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/.packlist b/Master/tlpkg/tlperl/lib/auto/Digest/SHA/.packlist deleted file mode 100755 index f1db4cae8da..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/.packlist +++ /dev/null @@ -1,5 +0,0 @@ -C:\strawberry\perl\bin\shasum
-C:\strawberry\perl\bin\shasum.bat
-C:\strawberry\perl\lib\Digest\SHA.pm
-C:\strawberry\perl\lib\auto\Digest\SHA\SHA.bs
-C:\strawberry\perl\lib\auto\Digest\SHA\SHA.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.bs b/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.dll b/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.dll Binary files differdeleted file mode 100755 index 0763104384a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/SHA/SHA.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/.packlist b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/.packlist deleted file mode 100755 index 4d4a0049a22..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Digest\SHA1.pm
-C:\strawberry\perl\vendor\lib\auto\Digest\SHA1\SHA1.bs
-C:\strawberry\perl\vendor\lib\auto\Digest\SHA1\SHA1.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.bs b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.dll b/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.dll Binary files differdeleted file mode 100755 index 09a65381987..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Digest/SHA1/SHA1.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/DynaLoader/autosplit.ix deleted file mode 100755 index d7605efa074..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DynaLoader/autosplit.ix +++ /dev/null @@ -1,8 +0,0 @@ -# Index created by AutoSplit for ../LIB\DynaLoader.pm -# (file acts as timestamp) -package DynaLoader; -sub dl_findfile ; -sub dl_expandspec ; -sub dl_find_symbol_anywhere -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al deleted file mode 100755 index 0c2e8215d10..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_expandspec.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 318 "../LIB\DynaLoader.pm (autosplit into ..\lib\auto\DynaLoader\dl_expandspec.al)" -sub dl_expandspec { - my($spec) = @_; - # Optional function invoked if DynaLoader.pm sets $do_expand. - # Most systems do not require or use this function. - # Some systems may implement it in the dl_*.xs file in which case - # this autoload version will not be called but is harmless. - - # This function is designed to deal with systems which treat some - # 'filenames' in a special way. For example VMS 'Logical Names' - # (something like unix environment variables - but different). - # This function should recognise such names and expand them into - # full file paths. - # Must return undef if $spec is invalid or file does not exist. - - my $file = $spec; # default output to input - - - return undef unless -f $file; - - print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug; - $file; -} - -# end of DynaLoader::dl_expandspec -1; diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al deleted file mode 100755 index fb182a01ed0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_find_symbol_anywhere.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 341 "../LIB\DynaLoader.pm (autosplit into ..\lib\auto\DynaLoader\dl_find_symbol_anywhere.al)" -sub dl_find_symbol_anywhere -{ - my $sym = shift; - my $libref; - foreach $libref (@dl_librefs) { - my $symref = dl_find_symbol($libref,$sym); - return $symref if $symref; - } - return undef; -} - -1; -# end of DynaLoader::dl_find_symbol_anywhere diff --git a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_findfile.al b/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_findfile.al deleted file mode 100755 index 3f7dfadaf83..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/DynaLoader/dl_findfile.al +++ /dev/null @@ -1,86 +0,0 @@ -# NOTE: Derived from ../LIB\DynaLoader.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package DynaLoader; - -#line 239 "../LIB\DynaLoader.pm (autosplit into ..\lib\auto\DynaLoader\dl_findfile.al)" -sub dl_findfile { - # Read ext/DynaLoader/DynaLoader.doc for detailed information. - # This function does not automatically consider the architecture - # or the perl library auto directories. - my (@args) = @_; - my (@dirs, $dir); # which directories to search - my (@found); # full paths to real files we have found - #my $dl_ext= 'dll'; # $Config::Config{'dlext'} suffix for perl extensions - #my $dl_so = 'dll'; # $Config::Config{'so'} suffix for shared libraries - - print STDERR "dl_findfile(@args)\n" if $dl_debug; - - # accumulate directories but process files as they appear - arg: foreach(@args) { - # Special fast case: full filepath requires no search - - - - if (m:/: && -f $_) { - push(@found,$_); - last arg unless wantarray; - next; - } - - - # Deal with directories first: - # Using a -L prefix is the preferred option (faster and more robust) - if (m:^-L:) { s/^-L//; push(@dirs, $_); next; } - - - - # Otherwise we try to try to spot directories by a heuristic - # (this is a more complicated issue than it first appears) - if (m:/: && -d $_) { push(@dirs, $_); next; } - - - - # Only files should get this far... - my(@names, $name); # what filenames to look for - if (m:-l: ) { # convert -lname to appropriate library name - s/-l//; - push(@names,"lib$_.$dl_so"); - push(@names,"lib$_.a"); - } else { # Umm, a bare name. Try various alternatives: - # these should be ordered with the most likely first - push(@names,"$_.$dl_dlext") unless m/\.$dl_dlext$/o; - push(@names,"$_.$dl_so") unless m/\.$dl_so$/o; - push(@names,"lib$_.$dl_so") unless m:/:; - push(@names,"$_.a") if !m/\.a$/ and $dlsrc eq "dl_dld.xs"; - push(@names, $_); - } - my $dirsep = '/'; - - foreach $dir (@dirs, @dl_library_path) { - next unless -d $dir; - - foreach $name (@names) { - my($file) = "$dir$dirsep$name"; - print STDERR " checking in $dir for $name\n" if $dl_debug; - $file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file); - #$file = _check_file($file); - if ($file) { - push(@found, $file); - next arg; # no need to look any further - } - } - } - } - if ($dl_debug) { - foreach(@dirs) { - print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_; - } - print STDERR "dl_findfile found: @found\n"; - } - return $found[0] unless wantarray; - @found; -} - -# end of DynaLoader::dl_findfile -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/.packlist b/Master/tlpkg/tlperl/lib/auto/Encode/.packlist deleted file mode 100755 index 364afe9cac4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/.packlist +++ /dev/null @@ -1,56 +0,0 @@ -C:\strawberry\perl\bin\enc2xs
-C:\strawberry\perl\bin\enc2xs.bat
-C:\strawberry\perl\bin\piconv
-C:\strawberry\perl\bin\piconv.bat
-C:\strawberry\perl\lib\Encode.pm
-C:\strawberry\perl\lib\Encode\Alias.pm
-C:\strawberry\perl\lib\Encode\Byte.pm
-C:\strawberry\perl\lib\Encode\CJKConstants.pm
-C:\strawberry\perl\lib\Encode\CN.pm
-C:\strawberry\perl\lib\Encode\CN\HZ.pm
-C:\strawberry\perl\lib\Encode\Changes.e2x
-C:\strawberry\perl\lib\Encode\Config.pm
-C:\strawberry\perl\lib\Encode\ConfigLocal_PM.e2x
-C:\strawberry\perl\lib\Encode\EBCDIC.pm
-C:\strawberry\perl\lib\Encode\Encoder.pm
-C:\strawberry\perl\lib\Encode\Encoding.pm
-C:\strawberry\perl\lib\Encode\GSM0338.pm
-C:\strawberry\perl\lib\Encode\Guess.pm
-C:\strawberry\perl\lib\Encode\JP.pm
-C:\strawberry\perl\lib\Encode\JP\H2Z.pm
-C:\strawberry\perl\lib\Encode\JP\JIS7.pm
-C:\strawberry\perl\lib\Encode\KR.pm
-C:\strawberry\perl\lib\Encode\KR\2022_KR.pm
-C:\strawberry\perl\lib\Encode\MIME\Header.pm
-C:\strawberry\perl\lib\Encode\MIME\Header\ISO_2022_JP.pm
-C:\strawberry\perl\lib\Encode\MIME\Name.pm
-C:\strawberry\perl\lib\Encode\Makefile_PL.e2x
-C:\strawberry\perl\lib\Encode\PerlIO.pod
-C:\strawberry\perl\lib\Encode\README.e2x
-C:\strawberry\perl\lib\Encode\Supported.pod
-C:\strawberry\perl\lib\Encode\Symbol.pm
-C:\strawberry\perl\lib\Encode\TW.pm
-C:\strawberry\perl\lib\Encode\Unicode.pm
-C:\strawberry\perl\lib\Encode\Unicode\UTF7.pm
-C:\strawberry\perl\lib\Encode\_PM.e2x
-C:\strawberry\perl\lib\Encode\_T.e2x
-C:\strawberry\perl\lib\Encode\encode.h
-C:\strawberry\perl\lib\auto\Encode\Byte\Byte.bs
-C:\strawberry\perl\lib\auto\Encode\Byte\Byte.dll
-C:\strawberry\perl\lib\auto\Encode\CN\CN.bs
-C:\strawberry\perl\lib\auto\Encode\CN\CN.dll
-C:\strawberry\perl\lib\auto\Encode\EBCDIC\EBCDIC.bs
-C:\strawberry\perl\lib\auto\Encode\EBCDIC\EBCDIC.dll
-C:\strawberry\perl\lib\auto\Encode\Encode.bs
-C:\strawberry\perl\lib\auto\Encode\Encode.dll
-C:\strawberry\perl\lib\auto\Encode\JP\JP.bs
-C:\strawberry\perl\lib\auto\Encode\JP\JP.dll
-C:\strawberry\perl\lib\auto\Encode\KR\KR.bs
-C:\strawberry\perl\lib\auto\Encode\KR\KR.dll
-C:\strawberry\perl\lib\auto\Encode\Symbol\Symbol.bs
-C:\strawberry\perl\lib\auto\Encode\Symbol\Symbol.dll
-C:\strawberry\perl\lib\auto\Encode\TW\TW.bs
-C:\strawberry\perl\lib\auto\Encode\TW\TW.dll
-C:\strawberry\perl\lib\auto\Encode\Unicode\Unicode.bs
-C:\strawberry\perl\lib\auto\Encode\Unicode\Unicode.dll
-C:\strawberry\perl\lib\encoding.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Byte/Byte.bs b/Master/tlpkg/tlperl/lib/auto/Encode/Byte/Byte.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Byte/Byte.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Byte/Byte.dll b/Master/tlpkg/tlperl/lib/auto/Encode/Byte/Byte.dll Binary files differdeleted file mode 100755 index f16bacb9a28..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Byte/Byte.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/CN/CN.bs b/Master/tlpkg/tlperl/lib/auto/Encode/CN/CN.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/CN/CN.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/CN/CN.dll b/Master/tlpkg/tlperl/lib/auto/Encode/CN/CN.dll Binary files differdeleted file mode 100755 index e0ae27afb21..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/CN/CN.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/EBCDIC/EBCDIC.bs b/Master/tlpkg/tlperl/lib/auto/Encode/EBCDIC/EBCDIC.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/EBCDIC/EBCDIC.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/EBCDIC/EBCDIC.dll b/Master/tlpkg/tlperl/lib/auto/Encode/EBCDIC/EBCDIC.dll Binary files differdeleted file mode 100755 index 31b79626541..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/EBCDIC/EBCDIC.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Encode.bs b/Master/tlpkg/tlperl/lib/auto/Encode/Encode.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Encode.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Encode.dll b/Master/tlpkg/tlperl/lib/auto/Encode/Encode.dll Binary files differdeleted file mode 100755 index 5c2ffbf7b43..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Encode.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/JP/JP.bs b/Master/tlpkg/tlperl/lib/auto/Encode/JP/JP.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/JP/JP.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/JP/JP.dll b/Master/tlpkg/tlperl/lib/auto/Encode/JP/JP.dll Binary files differdeleted file mode 100755 index e21bdcc9682..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/JP/JP.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/KR/KR.bs b/Master/tlpkg/tlperl/lib/auto/Encode/KR/KR.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/KR/KR.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/KR/KR.dll b/Master/tlpkg/tlperl/lib/auto/Encode/KR/KR.dll Binary files differdeleted file mode 100755 index 57f19225d3e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/KR/KR.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Symbol/Symbol.bs b/Master/tlpkg/tlperl/lib/auto/Encode/Symbol/Symbol.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Symbol/Symbol.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Symbol/Symbol.dll b/Master/tlpkg/tlperl/lib/auto/Encode/Symbol/Symbol.dll Binary files differdeleted file mode 100755 index 2b45c4b46f9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Symbol/Symbol.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/TW/TW.bs b/Master/tlpkg/tlperl/lib/auto/Encode/TW/TW.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/TW/TW.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/TW/TW.dll b/Master/tlpkg/tlperl/lib/auto/Encode/TW/TW.dll Binary files differdeleted file mode 100755 index dcae5090e3a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/TW/TW.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Unicode/Unicode.bs b/Master/tlpkg/tlperl/lib/auto/Encode/Unicode/Unicode.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Unicode/Unicode.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Encode/Unicode/Unicode.dll b/Master/tlpkg/tlperl/lib/auto/Encode/Unicode/Unicode.dll Binary files differdeleted file mode 100755 index 68aaf072c99..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Encode/Unicode/Unicode.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/ExtUtils/CBuilder/.packlist b/Master/tlpkg/tlperl/lib/auto/ExtUtils/CBuilder/.packlist deleted file mode 100755 index 892a0b233f1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/ExtUtils/CBuilder/.packlist +++ /dev/null @@ -1,13 +0,0 @@ -C:\strawberry\perl\lib\ExtUtils\CBuilder.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Base.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\Unix.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\VMS.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\Windows.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\Windows\BCC.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\Windows\GCC.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\Windows\MSVC.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\aix.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\cygwin.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\darwin.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\dec_osf.pm
-C:\strawberry\perl\lib\ExtUtils\CBuilder\Platform\os2.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/ExtUtils/MakeMaker/.packlist b/Master/tlpkg/tlperl/lib/auto/ExtUtils/MakeMaker/.packlist deleted file mode 100755 index 3fb8f839151..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/ExtUtils/MakeMaker/.packlist +++ /dev/null @@ -1,30 +0,0 @@ -C:\strawberry\perl\bin\instmodsh
-C:\strawberry\perl\bin\instmodsh.bat
-C:\strawberry\perl\lib\ExtUtils\Command\MM.pm
-C:\strawberry\perl\lib\ExtUtils\Liblist.pm
-C:\strawberry\perl\lib\ExtUtils\Liblist\Kid.pm
-C:\strawberry\perl\lib\ExtUtils\MM.pm
-C:\strawberry\perl\lib\ExtUtils\MM_AIX.pm
-C:\strawberry\perl\lib\ExtUtils\MM_Any.pm
-C:\strawberry\perl\lib\ExtUtils\MM_BeOS.pm
-C:\strawberry\perl\lib\ExtUtils\MM_Cygwin.pm
-C:\strawberry\perl\lib\ExtUtils\MM_DOS.pm
-C:\strawberry\perl\lib\ExtUtils\MM_Darwin.pm
-C:\strawberry\perl\lib\ExtUtils\MM_MacOS.pm
-C:\strawberry\perl\lib\ExtUtils\MM_NW5.pm
-C:\strawberry\perl\lib\ExtUtils\MM_OS2.pm
-C:\strawberry\perl\lib\ExtUtils\MM_QNX.pm
-C:\strawberry\perl\lib\ExtUtils\MM_UWIN.pm
-C:\strawberry\perl\lib\ExtUtils\MM_Unix.pm
-C:\strawberry\perl\lib\ExtUtils\MM_VMS.pm
-C:\strawberry\perl\lib\ExtUtils\MM_VOS.pm
-C:\strawberry\perl\lib\ExtUtils\MM_Win32.pm
-C:\strawberry\perl\lib\ExtUtils\MM_Win95.pm
-C:\strawberry\perl\lib\ExtUtils\MY.pm
-C:\strawberry\perl\lib\ExtUtils\MakeMaker.pm
-C:\strawberry\perl\lib\ExtUtils\MakeMaker\Config.pm
-C:\strawberry\perl\lib\ExtUtils\MakeMaker\FAQ.pod
-C:\strawberry\perl\lib\ExtUtils\MakeMaker\Tutorial.pod
-C:\strawberry\perl\lib\ExtUtils\Mkbootstrap.pm
-C:\strawberry\perl\lib\ExtUtils\Mksymlists.pm
-C:\strawberry\perl\lib\ExtUtils\testlib.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/ExtUtils/Manifest/.packlist b/Master/tlpkg/tlperl/lib/auto/ExtUtils/Manifest/.packlist deleted file mode 100755 index a7e4d59a97d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/ExtUtils/Manifest/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\lib\ExtUtils\MANIFEST.SKIP
-C:\strawberry\perl\lib\ExtUtils\Manifest.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/ExtUtils/ParseXS/.packlist b/Master/tlpkg/tlperl/lib/auto/ExtUtils/ParseXS/.packlist deleted file mode 100755 index 2b62f1cd0d3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/ExtUtils/ParseXS/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\ExtUtils\ParseXS.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/FCGI/.packlist b/Master/tlpkg/tlperl/lib/auto/FCGI/.packlist deleted file mode 100755 index 9c4d640c909..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/FCGI/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\FCGI.pm
-C:\strawberry\perl\vendor\lib\auto\FCGI\FCGI.bs
-C:\strawberry\perl\vendor\lib\auto\FCGI\FCGI.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/FCGI/FCGI.bs b/Master/tlpkg/tlperl/lib/auto/FCGI/FCGI.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/FCGI/FCGI.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/FCGI/FCGI.dll b/Master/tlpkg/tlperl/lib/auto/FCGI/FCGI.dll Binary files differdeleted file mode 100755 index ca6e3172486..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/FCGI/FCGI.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Fcntl/Fcntl.dll b/Master/tlpkg/tlperl/lib/auto/Fcntl/Fcntl.dll Binary files differdeleted file mode 100755 index 9d4d9e785b1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Fcntl/Fcntl.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/File/Fetch/.packlist b/Master/tlpkg/tlperl/lib/auto/File/Fetch/.packlist deleted file mode 100755 index 4039d3ff87b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/Fetch/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\File\Fetch.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/File/Find/Rule/.packlist b/Master/tlpkg/tlperl/lib/auto/File/Find/Rule/.packlist deleted file mode 100755 index 1ae447043d0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/Find/Rule/.packlist +++ /dev/null @@ -1,5 +0,0 @@ -C:\strawberry\perl\bin\findrule
-C:\strawberry\perl\bin\findrule.bat
-C:\strawberry\perl\vendor\lib\File\Find\Rule.pm
-C:\strawberry\perl\vendor\lib\File\Find\Rule\Extending.pod
-C:\strawberry\perl\vendor\lib\File\Find\Rule\Procedural.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/File/Glob/Glob.dll b/Master/tlpkg/tlperl/lib/auto/File/Glob/Glob.dll Binary files differdeleted file mode 100755 index 6dd181ca97e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/Glob/Glob.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/File/HomeDir/.packlist b/Master/tlpkg/tlperl/lib/auto/File/HomeDir/.packlist deleted file mode 100755 index a14b901ef7a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/HomeDir/.packlist +++ /dev/null @@ -1,8 +0,0 @@ -C:\strawberry\perl\vendor\lib\File\HomeDir.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\Darwin.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\Darwin\Carbon.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\Darwin\Cocoa.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\Driver.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\MacOS9.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\Unix.pm
-C:\strawberry\perl\vendor\lib\File\HomeDir\Windows.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/File/Path/.packlist b/Master/tlpkg/tlperl/lib/auto/File/Path/.packlist deleted file mode 100755 index edda80ae65b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/Path/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\File\Path.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/File/Remove/.packlist b/Master/tlpkg/tlperl/lib/auto/File/Remove/.packlist deleted file mode 100755 index 12df10cc0fa..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/Remove/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\File\Remove.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/File/Which/.packlist b/Master/tlpkg/tlperl/lib/auto/File/Which/.packlist deleted file mode 100755 index 9fb782b7ad3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/Which/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\pwhich
-C:\strawberry\perl\bin\pwhich.bat
-C:\strawberry\perl\vendor\lib\File\Which.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/File/chmod/.packlist b/Master/tlpkg/tlperl/lib/auto/File/chmod/.packlist deleted file mode 100755 index 3871660f580..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/chmod/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\File\chmod.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/File/pushd/.packlist b/Master/tlpkg/tlperl/lib/auto/File/pushd/.packlist deleted file mode 100755 index 648f4304324..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/File/pushd/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\File\pushd.pm
-C:\strawberry\perl\vendor\lib\File\pushd.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/Filter/Util/Call/Call.dll b/Master/tlpkg/tlperl/lib/auto/Filter/Util/Call/Call.dll Binary files differdeleted file mode 100755 index 7079cd5bb97..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Filter/Util/Call/Call.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/GD/.packlist b/Master/tlpkg/tlperl/lib/auto/GD/.packlist deleted file mode 100755 index 642823ec17e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/GD/.packlist +++ /dev/null @@ -1,12 +0,0 @@ -C:\strawberry\perl\bin\bdf2gdfont.bat
-C:\strawberry\perl\bin\bdf2gdfont.pl
-C:\strawberry\perl\vendor\lib\GD.pm
-C:\strawberry\perl\vendor\lib\GD\Group.pm
-C:\strawberry\perl\vendor\lib\GD\Image.pm
-C:\strawberry\perl\vendor\lib\GD\Polygon.pm
-C:\strawberry\perl\vendor\lib\GD\Polyline.pm
-C:\strawberry\perl\vendor\lib\GD\Simple.pm
-C:\strawberry\perl\vendor\lib\auto\GD\GD.bs
-C:\strawberry\perl\vendor\lib\auto\GD\GD.dll
-C:\strawberry\perl\vendor\lib\auto\GD\autosplit.ix
-C:\strawberry\perl\vendor\lib\qd.pl
diff --git a/Master/tlpkg/tlperl/lib/auto/GD/GD.bs b/Master/tlpkg/tlperl/lib/auto/GD/GD.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/GD/GD.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/GD/GD.dll b/Master/tlpkg/tlperl/lib/auto/GD/GD.dll Binary files differdeleted file mode 100755 index ca97a739e47..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/GD/GD.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/GD/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/GD/autosplit.ix deleted file mode 100755 index 08d99792e77..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/GD/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib/GD.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/GDBM_File/GDBM_File.dll b/Master/tlpkg/tlperl/lib/auto/GDBM_File/GDBM_File.dll Binary files differdeleted file mode 100755 index a9f16e7e42c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/GDBM_File/GDBM_File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/HTML/Parser/.packlist b/Master/tlpkg/tlperl/lib/auto/HTML/Parser/.packlist deleted file mode 100755 index f218529c9dd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/HTML/Parser/.packlist +++ /dev/null @@ -1,9 +0,0 @@ -C:\strawberry\perl\vendor\lib\HTML\Entities.pm
-C:\strawberry\perl\vendor\lib\HTML\Filter.pm
-C:\strawberry\perl\vendor\lib\HTML\HeadParser.pm
-C:\strawberry\perl\vendor\lib\HTML\LinkExtor.pm
-C:\strawberry\perl\vendor\lib\HTML\Parser.pm
-C:\strawberry\perl\vendor\lib\HTML\PullParser.pm
-C:\strawberry\perl\vendor\lib\HTML\TokeParser.pm
-C:\strawberry\perl\vendor\lib\auto\HTML\Parser\Parser.bs
-C:\strawberry\perl\vendor\lib\auto\HTML\Parser\Parser.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/HTML/Parser/Parser.bs b/Master/tlpkg/tlperl/lib/auto/HTML/Parser/Parser.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/HTML/Parser/Parser.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/HTML/Parser/Parser.dll b/Master/tlpkg/tlperl/lib/auto/HTML/Parser/Parser.dll Binary files differdeleted file mode 100755 index 98a83952fba..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/HTML/Parser/Parser.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/HTML/Tagset/.packlist b/Master/tlpkg/tlperl/lib/auto/HTML/Tagset/.packlist deleted file mode 100755 index 04801efd792..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/HTML/Tagset/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\HTML\Tagset.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Hash/Util/FieldHash/FieldHash.dll b/Master/tlpkg/tlperl/lib/auto/Hash/Util/FieldHash/FieldHash.dll Binary files differdeleted file mode 100755 index b83cb307dde..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Hash/Util/FieldHash/FieldHash.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Hash/Util/Util.dll b/Master/tlpkg/tlperl/lib/auto/Hash/Util/Util.dll Binary files differdeleted file mode 100755 index 46beb4cf7a1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Hash/Util/Util.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/IO/IO.dll b/Master/tlpkg/tlperl/lib/auto/IO/IO.dll Binary files differdeleted file mode 100755 index 0b6d35fe014..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IO/IO.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/IO/Socket/SSL/.packlist b/Master/tlpkg/tlperl/lib/auto/IO/Socket/SSL/.packlist deleted file mode 100755 index b0e8826ad86..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IO/Socket/SSL/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\IO\Socket\SSL.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/IO/String/.packlist b/Master/tlpkg/tlperl/lib/auto/IO/String/.packlist deleted file mode 100755 index b80eb617ad4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IO/String/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\IO\String.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/IO/Zlib/.packlist b/Master/tlpkg/tlperl/lib/auto/IO/Zlib/.packlist deleted file mode 100755 index e007f0eca0f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IO/Zlib/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\IO\Zlib.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/IPC/Cmd/.packlist b/Master/tlpkg/tlperl/lib/auto/IPC/Cmd/.packlist deleted file mode 100755 index 2ffd1d07115..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IPC/Cmd/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\IPC\Cmd.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/IPC/Run3/.packlist b/Master/tlpkg/tlperl/lib/auto/IPC/Run3/.packlist deleted file mode 100755 index d290e8fdc65..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IPC/Run3/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\vendor\lib\IPC\Run3.pm
-C:\strawberry\perl\vendor\lib\IPC\Run3\ProfArrayBuffer.pm
-C:\strawberry\perl\vendor\lib\IPC\Run3\ProfLogReader.pm
-C:\strawberry\perl\vendor\lib\IPC\Run3\ProfLogger.pm
-C:\strawberry\perl\vendor\lib\IPC\Run3\ProfPP.pm
-C:\strawberry\perl\vendor\lib\IPC\Run3\ProfReporter.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/IPC/System/Simple/.packlist b/Master/tlpkg/tlperl/lib/auto/IPC/System/Simple/.packlist deleted file mode 100755 index 82cd6c6a7e3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/IPC/System/Simple/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\IPC\System\Simple.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/.packlist b/Master/tlpkg/tlperl/lib/auto/Imager/.packlist deleted file mode 100755 index 29233b3960c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/.packlist +++ /dev/null @@ -1,84 +0,0 @@ -C:\strawberry\perl\vendor\lib\Imager.pm
-C:\strawberry\perl\vendor\lib\Imager\API.pod
-C:\strawberry\perl\vendor\lib\Imager\APIRef.pod
-C:\strawberry\perl\vendor\lib\Imager\Color.pm
-C:\strawberry\perl\vendor\lib\Imager\Color\Float.pm
-C:\strawberry\perl\vendor\lib\Imager\Color\Table.pm
-C:\strawberry\perl\vendor\lib\Imager\Cookbook.pod
-C:\strawberry\perl\vendor\lib\Imager\CountColor.pm
-C:\strawberry\perl\vendor\lib\Imager\Draw.pod
-C:\strawberry\perl\vendor\lib\Imager\Engines.pod
-C:\strawberry\perl\vendor\lib\Imager\Expr.pm
-C:\strawberry\perl\vendor\lib\Imager\Expr\Assem.pm
-C:\strawberry\perl\vendor\lib\Imager\ExtUtils.pm
-C:\strawberry\perl\vendor\lib\Imager\File\CUR.pm
-C:\strawberry\perl\vendor\lib\Imager\File\ICO.pm
-C:\strawberry\perl\vendor\lib\Imager\File\SGI.pm
-C:\strawberry\perl\vendor\lib\Imager\Files.pod
-C:\strawberry\perl\vendor\lib\Imager\Fill.pm
-C:\strawberry\perl\vendor\lib\Imager\Filter\DynTest.pm
-C:\strawberry\perl\vendor\lib\Imager\Filter\Flines.pm
-C:\strawberry\perl\vendor\lib\Imager\Filter\Mandelbrot.pm
-C:\strawberry\perl\vendor\lib\Imager\Filters.pod
-C:\strawberry\perl\vendor\lib\Imager\Font.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\BBox.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\FreeType2.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\Image.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\Truetype.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\Type1.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\Win32.pm
-C:\strawberry\perl\vendor\lib\Imager\Font\Wrap.pm
-C:\strawberry\perl\vendor\lib\Imager\Fountain.pm
-C:\strawberry\perl\vendor\lib\Imager\Handy.pod
-C:\strawberry\perl\vendor\lib\Imager\ImageTypes.pod
-C:\strawberry\perl\vendor\lib\Imager\Inline.pod
-C:\strawberry\perl\vendor\lib\Imager\LargeSamples.pod
-C:\strawberry\perl\vendor\lib\Imager\Matrix2d.pm
-C:\strawberry\perl\vendor\lib\Imager\Preprocess.pm
-C:\strawberry\perl\vendor\lib\Imager\Regops.pm
-C:\strawberry\perl\vendor\lib\Imager\Test.pm
-C:\strawberry\perl\vendor\lib\Imager\Transform.pm
-C:\strawberry\perl\vendor\lib\Imager\Transformations.pod
-C:\strawberry\perl\vendor\lib\Imager\Tutorial.pod
-C:\strawberry\perl\vendor\lib\Imager\include\draw.h
-C:\strawberry\perl\vendor\lib\Imager\include\dynaload.h
-C:\strawberry\perl\vendor\lib\Imager\include\ext.h
-C:\strawberry\perl\vendor\lib\Imager\include\feat.h
-C:\strawberry\perl\vendor\lib\Imager\include\imager.h
-C:\strawberry\perl\vendor\lib\Imager\include\imageri.h
-C:\strawberry\perl\vendor\lib\Imager\include\imconfig.h
-C:\strawberry\perl\vendor\lib\Imager\include\imdatatypes.h
-C:\strawberry\perl\vendor\lib\Imager\include\imerror.h
-C:\strawberry\perl\vendor\lib\Imager\include\imexif.h
-C:\strawberry\perl\vendor\lib\Imager\include\imext.h
-C:\strawberry\perl\vendor\lib\Imager\include\imextdef.h
-C:\strawberry\perl\vendor\lib\Imager\include\imexttypes.h
-C:\strawberry\perl\vendor\lib\Imager\include\imio.h
-C:\strawberry\perl\vendor\lib\Imager\include\immacros.h
-C:\strawberry\perl\vendor\lib\Imager\include\imperl.h
-C:\strawberry\perl\vendor\lib\Imager\include\imrender.h
-C:\strawberry\perl\vendor\lib\Imager\include\iolayer.h
-C:\strawberry\perl\vendor\lib\Imager\include\iolayert.h
-C:\strawberry\perl\vendor\lib\Imager\include\log.h
-C:\strawberry\perl\vendor\lib\Imager\include\plug.h
-C:\strawberry\perl\vendor\lib\Imager\include\ppport.h
-C:\strawberry\perl\vendor\lib\Imager\include\regmach.h
-C:\strawberry\perl\vendor\lib\Imager\include\rendert.h
-C:\strawberry\perl\vendor\lib\Imager\include\stackmach.h
-C:\strawberry\perl\vendor\lib\Imager\interface.pod
-C:\strawberry\perl\vendor\lib\Imager\regmach.pod
-C:\strawberry\perl\vendor\lib\Imager\typemap
-C:\strawberry\perl\vendor\lib\auto\Imager\CountColor\CountColor.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\CountColor\CountColor.dll
-C:\strawberry\perl\vendor\lib\auto\Imager\File\ICO\ICO.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\File\ICO\ICO.dll
-C:\strawberry\perl\vendor\lib\auto\Imager\File\SGI\SGI.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\File\SGI\SGI.dll
-C:\strawberry\perl\vendor\lib\auto\Imager\Filter\DynTest\DynTest.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\Filter\DynTest\DynTest.dll
-C:\strawberry\perl\vendor\lib\auto\Imager\Filter\Flines\Flines.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\Filter\Flines\Flines.dll
-C:\strawberry\perl\vendor\lib\auto\Imager\Filter\Mandelbrot\Mandelbrot.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\Filter\Mandelbrot\Mandelbrot.dll
-C:\strawberry\perl\vendor\lib\auto\Imager\Imager.bs
-C:\strawberry\perl\vendor\lib\auto\Imager\Imager.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/CountColor/CountColor.bs b/Master/tlpkg/tlperl/lib/auto/Imager/CountColor/CountColor.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/CountColor/CountColor.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/CountColor/CountColor.dll b/Master/tlpkg/tlperl/lib/auto/Imager/CountColor/CountColor.dll Binary files differdeleted file mode 100755 index 5129ae4d921..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/CountColor/CountColor.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/File/ICO/ICO.bs b/Master/tlpkg/tlperl/lib/auto/Imager/File/ICO/ICO.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/File/ICO/ICO.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/File/ICO/ICO.dll b/Master/tlpkg/tlperl/lib/auto/Imager/File/ICO/ICO.dll Binary files differdeleted file mode 100755 index 5c577825c8c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/File/ICO/ICO.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/File/SGI/SGI.bs b/Master/tlpkg/tlperl/lib/auto/Imager/File/SGI/SGI.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/File/SGI/SGI.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/File/SGI/SGI.dll b/Master/tlpkg/tlperl/lib/auto/Imager/File/SGI/SGI.dll Binary files differdeleted file mode 100755 index 80139c02021..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/File/SGI/SGI.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/DynTest/DynTest.bs b/Master/tlpkg/tlperl/lib/auto/Imager/Filter/DynTest/DynTest.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/DynTest/DynTest.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/DynTest/DynTest.dll b/Master/tlpkg/tlperl/lib/auto/Imager/Filter/DynTest/DynTest.dll Binary files differdeleted file mode 100755 index a4cbfc2f722..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/DynTest/DynTest.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Flines/Flines.bs b/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Flines/Flines.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Flines/Flines.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Flines/Flines.dll b/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Flines/Flines.dll Binary files differdeleted file mode 100755 index 095ea83fb2f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Flines/Flines.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Mandelbrot/Mandelbrot.bs b/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Mandelbrot/Mandelbrot.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Mandelbrot/Mandelbrot.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Mandelbrot/Mandelbrot.dll b/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Mandelbrot/Mandelbrot.dll Binary files differdeleted file mode 100755 index e7ea0ab0674..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Filter/Mandelbrot/Mandelbrot.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Imager.bs b/Master/tlpkg/tlperl/lib/auto/Imager/Imager.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Imager.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Imager/Imager.dll b/Master/tlpkg/tlperl/lib/auto/Imager/Imager.dll Binary files differdeleted file mode 100755 index 3a310ea85e6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Imager/Imager.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/JSON/.packlist b/Master/tlpkg/tlperl/lib/auto/JSON/.packlist deleted file mode 100755 index ef52c6a14d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/JSON/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\vendor\lib\JSON.pm
-C:\strawberry\perl\vendor\lib\JSON\PP.pm
-C:\strawberry\perl\vendor\lib\JSON\PP5005.pm
-C:\strawberry\perl\vendor\lib\JSON\PP56.pm
-C:\strawberry\perl\vendor\lib\JSON\PP58.pm
-C:\strawberry\perl\vendor\lib\JSON\PP\Boolean.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/JSON/XS/.packlist b/Master/tlpkg/tlperl/lib/auto/JSON/XS/.packlist deleted file mode 100755 index 4ea0033edf5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/JSON/XS/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\bin\json_xs
-C:\strawberry\perl\bin\json_xs.bat
-C:\strawberry\perl\vendor\lib\JSON\XS.pm
-C:\strawberry\perl\vendor\lib\JSON\XS\Boolean.pm
-C:\strawberry\perl\vendor\lib\auto\JSON\XS\XS.bs
-C:\strawberry\perl\vendor\lib\auto\JSON\XS\XS.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/JSON/XS/XS.bs b/Master/tlpkg/tlperl/lib/auto/JSON/XS/XS.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/JSON/XS/XS.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/JSON/XS/XS.dll b/Master/tlpkg/tlperl/lib/auto/JSON/XS/XS.dll Binary files differdeleted file mode 100755 index 02267b611ae..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/JSON/XS/XS.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/LWP/Online/.packlist b/Master/tlpkg/tlperl/lib/auto/LWP/Online/.packlist deleted file mode 100755 index 3ff84267d10..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/LWP/Online/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\LWP\Online.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/List/Util/.packlist b/Master/tlpkg/tlperl/lib/auto/List/Util/.packlist deleted file mode 100755 index 710ca31fa4d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/List/Util/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\lib\List\Util.pm
-C:\strawberry\perl\lib\List\Util\PP.pm
-C:\strawberry\perl\lib\List\Util\XS.pm
-C:\strawberry\perl\lib\Scalar\Util.pm
-C:\strawberry\perl\lib\Scalar\Util\PP.pm
-C:\strawberry\perl\lib\auto\List\Util\Util.bs
-C:\strawberry\perl\lib\auto\List\Util\Util.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/List/Util/Util.bs b/Master/tlpkg/tlperl/lib/auto/List/Util/Util.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/List/Util/Util.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/List/Util/Util.dll b/Master/tlpkg/tlperl/lib/auto/List/Util/Util.dll Binary files differdeleted file mode 100755 index 01df21ded10..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/List/Util/Util.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Locale/Maketext/Simple/.packlist b/Master/tlpkg/tlperl/lib/auto/Locale/Maketext/Simple/.packlist deleted file mode 100755 index 56e8d678d4e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Locale/Maketext/Simple/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Locale\Maketext\Simple.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Log/Message/Simple/.packlist b/Master/tlpkg/tlperl/lib/auto/Log/Message/Simple/.packlist deleted file mode 100755 index 1d69e2603af..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Log/Message/Simple/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Log\Message\Simple.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/.packlist b/Master/tlpkg/tlperl/lib/auto/MIME/Base64/.packlist deleted file mode 100755 index 280ffc09659..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\lib\MIME\Base64.pm
-C:\strawberry\perl\lib\MIME\QuotedPrint.pm
-C:\strawberry\perl\lib\auto\MIME\Base64\Base64.bs
-C:\strawberry\perl\lib\auto\MIME\Base64\Base64.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.bs b/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.dll b/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.dll Binary files differdeleted file mode 100755 index 8393983bf01..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/MIME/Base64/Base64.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/FastCalc/FastCalc.dll b/Master/tlpkg/tlperl/lib/auto/Math/BigInt/FastCalc/FastCalc.dll Binary files differdeleted file mode 100755 index 3063a91466c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/FastCalc/FastCalc.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/.packlist b/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/.packlist deleted file mode 100755 index 75f8164a903..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Math\BigInt\GMP.pm
-C:\strawberry\perl\vendor\lib\auto\Math\BigInt\GMP\GMP.bs
-C:\strawberry\perl\vendor\lib\auto\Math\BigInt\GMP\GMP.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/GMP.bs b/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/GMP.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/GMP.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/GMP.dll b/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/GMP.dll Binary files differdeleted file mode 100755 index 16db58f1356..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/BigInt/GMP/GMP.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/BigRat/.packlist b/Master/tlpkg/tlperl/lib/auto/Math/BigRat/.packlist deleted file mode 100755 index 82747a6b502..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/BigRat/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Math\BigRat.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Math/GMP/.packlist b/Master/tlpkg/tlperl/lib/auto/Math/GMP/.packlist deleted file mode 100755 index f7cd2597c5c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/GMP/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\Math\GMP.pm
-C:\strawberry\perl\vendor\lib\auto\Math\GMP\GMP.bs
-C:\strawberry\perl\vendor\lib\auto\Math\GMP\GMP.dll
-C:\strawberry\perl\vendor\lib\auto\Math\GMP\autosplit.ix
diff --git a/Master/tlpkg/tlperl/lib/auto/Math/GMP/GMP.bs b/Master/tlpkg/tlperl/lib/auto/Math/GMP/GMP.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/GMP/GMP.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/GMP/GMP.dll b/Master/tlpkg/tlperl/lib/auto/Math/GMP/GMP.dll Binary files differdeleted file mode 100755 index da8ef9d1ae2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/GMP/GMP.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/GMP/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Math/GMP/autosplit.ix deleted file mode 100755 index c109cc69d26..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/GMP/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Math\GMP.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Math/Pari/.packlist b/Master/tlpkg/tlperl/lib/auto/Math/Pari/.packlist deleted file mode 100755 index 9f9494114d0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/Pari/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\vendor\lib\Math\Pari.pm
-C:\strawberry\perl\vendor\lib\Math\PariInit.pm
-C:\strawberry\perl\vendor\lib\Math\libPARI.dumb.pod
-C:\strawberry\perl\vendor\lib\Math\libPARI.pod
-C:\strawberry\perl\vendor\lib\auto\Math\Pari\Pari.bs
-C:\strawberry\perl\vendor\lib\auto\Math\Pari\Pari.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Math/Pari/Pari.bs b/Master/tlpkg/tlperl/lib/auto/Math/Pari/Pari.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/Pari/Pari.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Math/Pari/Pari.dll b/Master/tlpkg/tlperl/lib/auto/Math/Pari/Pari.dll Binary files differdeleted file mode 100755 index 604d4d5be93..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Math/Pari/Pari.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Module/Build/.packlist b/Master/tlpkg/tlperl/lib/auto/Module/Build/.packlist deleted file mode 100755 index b28356dc56a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Module/Build/.packlist +++ /dev/null @@ -1,34 +0,0 @@ -C:\strawberry\perl\bin\config_data
-C:\strawberry\perl\bin\config_data.bat
-C:\strawberry\perl\lib\Module\Build.pm
-C:\strawberry\perl\lib\Module\Build\API.pod
-C:\strawberry\perl\lib\Module\Build\Authoring.pod
-C:\strawberry\perl\lib\Module\Build\Base.pm
-C:\strawberry\perl\lib\Module\Build\Bundling.pod
-C:\strawberry\perl\lib\Module\Build\Compat.pm
-C:\strawberry\perl\lib\Module\Build\Config.pm
-C:\strawberry\perl\lib\Module\Build\ConfigData.pm
-C:\strawberry\perl\lib\Module\Build\Cookbook.pm
-C:\strawberry\perl\lib\Module\Build\Dumper.pm
-C:\strawberry\perl\lib\Module\Build\ModuleInfo.pm
-C:\strawberry\perl\lib\Module\Build\Notes.pm
-C:\strawberry\perl\lib\Module\Build\PPMMaker.pm
-C:\strawberry\perl\lib\Module\Build\Platform\Amiga.pm
-C:\strawberry\perl\lib\Module\Build\Platform\Default.pm
-C:\strawberry\perl\lib\Module\Build\Platform\EBCDIC.pm
-C:\strawberry\perl\lib\Module\Build\Platform\MPEiX.pm
-C:\strawberry\perl\lib\Module\Build\Platform\MacOS.pm
-C:\strawberry\perl\lib\Module\Build\Platform\RiscOS.pm
-C:\strawberry\perl\lib\Module\Build\Platform\Unix.pm
-C:\strawberry\perl\lib\Module\Build\Platform\VMS.pm
-C:\strawberry\perl\lib\Module\Build\Platform\VOS.pm
-C:\strawberry\perl\lib\Module\Build\Platform\Windows.pm
-C:\strawberry\perl\lib\Module\Build\Platform\aix.pm
-C:\strawberry\perl\lib\Module\Build\Platform\cygwin.pm
-C:\strawberry\perl\lib\Module\Build\Platform\darwin.pm
-C:\strawberry\perl\lib\Module\Build\Platform\os2.pm
-C:\strawberry\perl\lib\Module\Build\PodParser.pm
-C:\strawberry\perl\lib\Module\Build\Version.pm
-C:\strawberry\perl\lib\Module\Build\YAML.pm
-C:\strawberry\perl\lib\inc\latest.pm
-C:\strawberry\perl\lib\inc\latest\private.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Module/CoreList/.packlist b/Master/tlpkg/tlperl/lib/auto/Module/CoreList/.packlist deleted file mode 100755 index 1b2d6491ee6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Module/CoreList/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\corelist
-C:\strawberry\perl\bin\corelist.bat
-C:\strawberry\perl\lib\Module\CoreList.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Module/Load/Conditional/.packlist b/Master/tlpkg/tlperl/lib/auto/Module/Load/Conditional/.packlist deleted file mode 100755 index f8ff2029b01..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Module/Load/Conditional/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Module\Load\Conditional.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Module/Loaded/.packlist b/Master/tlpkg/tlperl/lib/auto/Module/Loaded/.packlist deleted file mode 100755 index 8d2a6bd5cf4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Module/Loaded/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Module\Loaded.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Module/Signature/.packlist b/Master/tlpkg/tlperl/lib/auto/Module/Signature/.packlist deleted file mode 100755 index 8d29426f2b1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Module/Signature/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\cpansign
-C:\strawberry\perl\bin\cpansign.bat
-C:\strawberry\perl\vendor\lib\Module\Signature.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SMTP/TLS/.packlist b/Master/tlpkg/tlperl/lib/auto/Net/SMTP/TLS/.packlist deleted file mode 100755 index 13dcecdb913..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SMTP/TLS/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Net\SMTP\TLS.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/.packlist b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/.packlist deleted file mode 100755 index 9e3886a79cf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/.packlist +++ /dev/null @@ -1,79 +0,0 @@ -C:\strawberry\perl\vendor\lib\Net\SSLeay.pm
-C:\strawberry\perl\vendor\lib\Net\SSLeay\Handle.pm
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\SSLeay.bs
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\SSLeay.dll
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\autosplit.ix
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\debug_read.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_https.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_https2.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_https3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_https4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_httpx2.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_httpx3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\do_httpx4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\dump_peer_certificate.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_http.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_http3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_http4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_https.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_https3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_https4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_httpx.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_httpx3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\get_httpx4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_http.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_http3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_http4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_https.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_https3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_https4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_httpx.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_httpx3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\head_httpx4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\http_cat.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\https_cat.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\httpx_cat.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\make_form.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\make_headers.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\new_x_ctx.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\open_proxy_tcp_connection.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\open_tcp_connection.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_http.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_http3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_http4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_https.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_https3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_https4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_httpx.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_httpx3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\post_httpx4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_http.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_http3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_http4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_https.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_https3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_https4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_httpx.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_httpx3.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\put_httpx4.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\randomize.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\set_cert_and_key.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\set_proxy.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\set_server_cert_and_key.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\ssl_read_CRLF.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\ssl_read_all.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\ssl_read_until.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\ssl_write_CRLF.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\ssl_write_all.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\sslcat.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcp_read_CRLF.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcp_read_all.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcp_read_until.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcp_write_CRLF.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcp_write_all.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcpcat.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\tcpxcat.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\want_X509_lookup.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\want_nothing.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\want_read.al
-C:\strawberry\perl\vendor\lib\auto\Net\SSLeay\want_write.al
diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/SSLeay.bs b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/SSLeay.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/SSLeay.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/SSLeay.dll b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/SSLeay.dll Binary files differdeleted file mode 100755 index 61c88241073..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/SSLeay.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/autosplit.ix deleted file mode 100755 index 48af6553b06..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/autosplit.ix +++ /dev/null @@ -1,78 +0,0 @@ -# Index created by AutoSplit for blib\lib\Net\SSLeay.pm -# (file acts as timestamp) -package Net::SSLeay; -sub want_nothing ; -sub want_read ; -sub want_write ; -sub want_X509_lookup ; -sub open_tcp_connection ; -sub open_proxy_tcp_connection ; -sub debug_read ; -sub ssl_read_all ; -sub tcp_read_all ; -sub ssl_write_all ; -sub tcp_write_all ; -sub ssl_read_until ($;$$); -sub tcp_read_until ; -sub ssl_read_CRLF ($;$); -sub tcp_read_CRLF ; -sub ssl_write_CRLF ($$); -sub tcp_write_CRLF ; -sub dump_peer_certificate ($); -sub randomize (;$$); -sub new_x_ctx ; -sub sslcat ; -sub tcpcat ; -sub tcpxcat ; -sub https_cat ; -sub http_cat ; -sub httpx_cat ; -sub set_cert_and_key ($$$); -sub set_server_cert_and_key ($$$); -sub set_proxy ($$;**); -sub make_form ; -sub make_headers ; -sub do_httpx3 ; -sub do_https3 ; -sub do_httpx2 ; -sub do_https2 ; -sub do_httpx4 ; -sub do_https4 ; -sub get_https ; -sub post_https ; -sub put_https ; -sub head_https ; -sub get_https3 ; -sub post_https3 ; -sub put_https3 ; -sub head_https3 ; -sub get_https4 ; -sub post_https4 ; -sub put_https4 ; -sub head_https4 ; -sub get_http ; -sub post_http ; -sub put_http ; -sub head_http ; -sub get_http3 ; -sub post_http3 ; -sub put_http3 ; -sub head_http3 ; -sub get_http4 ; -sub post_http4 ; -sub put_http4 ; -sub head_http4 ; -sub get_httpx ; -sub post_httpx ; -sub put_httpx ; -sub head_httpx ; -sub get_httpx3 ; -sub post_httpx3 ; -sub put_httpx3 ; -sub head_httpx3 ; -sub get_httpx4 ; -sub post_httpx4 ; -sub put_httpx4 ; -sub head_httpx4 ; -sub do_https ; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/debug_read.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/debug_read.al deleted file mode 100755 index b9a2a73fa9f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/debug_read.al +++ /dev/null @@ -1,22 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1856 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\debug_read.al)" -### -### read and write helpers that block -### - -sub debug_read { - my ($replyr, $gotr) = @_; - my $vm = $trace>2 && $linux_debug ? - (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; - warn " got " . blength($$gotr) . ':' - . blength($$replyr) . " bytes (VM=$vm).\n" if $trace == 3; - warn " got `$$gotr' (" . blength($$gotr) . ':' - . blength($$replyr) . " bytes, VM=$vm)\n" if $trace>3; -} - -# end of Net::SSLeay::debug_read -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https.al deleted file mode 100755 index 91a207be120..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2601 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_https.al)" -sub do_https { - my ($site, $port, $path, $method, $headers, - $content, $mime_type, $crt_path, $key_path) = @_; - - do_https2($method, $site, $port, $path, $headers, - $content, $mime_type, $crt_path, $key_path); -} - -1; -__END__ -1; -# end of Net::SSLeay::do_https diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https2.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https2.al deleted file mode 100755 index 192e31a2948..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https2.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2529 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_https2.al)" -sub do_https2 { splice(@_,1,0) = 1; do_httpx2; } # Legacy undocumented - -### Returns headers as a hash where multiple instances of same header -### are handled correctly. - -# end of Net::SSLeay::do_https2 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https3.al deleted file mode 100755 index c7dc9690d5a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https3.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2514 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_https3.al)" -sub do_https3 { splice(@_,1,0) = 1; do_httpx3; } # Legacy undocumented - -### do_https2() is a legacy version in the sense that it is unable -### to return all instances of duplicate headers. - -# end of Net::SSLeay::do_https3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https4.al deleted file mode 100755 index 55207adad59..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_https4.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2545 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_https4.al)" -sub do_https4 { splice(@_,1,0) = 1; do_httpx4; } # Legacy undocumented - -# https - -# end of Net::SSLeay::do_https4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx2.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx2.al deleted file mode 100755 index e94566d1db2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx2.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2519 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_httpx2.al)" -sub do_httpx2 { - my ($page, $response, $headers, $server_cert) = &do_httpx3; - X509_free($server_cert) if defined $server_cert; - return ($page, $response, - map( { ($h,$v)=/^(\S+)\:\s*(.*)$/; (uc($h),$v); } - split(/\s?\n/, $headers) - ) - ); -} - -# end of Net::SSLeay::do_httpx2 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx3.al deleted file mode 100755 index af352036cdc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx3.al +++ /dev/null @@ -1,43 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2479 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_httpx3.al)" -sub do_httpx3 { - my ($method, $usessl, $site, $port, $path, $headers, - $content, $mime_type, $crt_path, $key_path) = @_; - my ($response, $page, $h,$v); - - if ($content) { - $mime_type = "application/x-www-form-urlencoded" unless $mime_type; - my $len = blength($content); - $content = "Content-Type: $mime_type$CRLF" - . "Content-Length: $len$CRLF$CRLF$content"; - } else { - $content = "$CRLF$CRLF"; - } - my $req = "$method $path HTTP/1.0$CRLF"; - unless (defined $headers && $headers =~ /^Host:/m) { - $req .= "Host: $site"; - unless (($port == 80 && !$usessl) || ($port == 443 && $usessl)) { - $req .= ":$port"; - } - $req .= $CRLF; - } - $req .= (defined $headers ? $headers : '') . "Accept: */*$CRLF$content"; - - warn "do_httpx3($method,$usessl,$site:$port)" if $trace; - my ($http, $errs, $server_cert) - = httpx_cat($usessl, $site, $port, $req, $crt_path, $key_path); - return (undef, "HTTP/1.0 900 NET OR SSL ERROR$CRLF$CRLF$errs") if $errs; - - $http = '' if !defined $http; - ($headers, $page) = split /\s?\n\s?\n/, $http, 2; - warn "headers >$headers< page >>$page<< http >>>$http<<<" if $trace>1; - ($response, $headers) = split /\s?\n/, $headers, 2; - return ($page, $response, $headers, $server_cert); -} - -# end of Net::SSLeay::do_httpx3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx4.al deleted file mode 100755 index c7666531579..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/do_httpx4.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2534 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_httpx4.al)" -sub do_httpx4 { - my ($page, $response, $headers, $server_cert) = &do_httpx3; - X509_free($server_cert) if defined $server_cert; - my %hr = (); - for my $hh (split /\s?\n/, $headers) { - my ($h,$v)=/^(\S+)\:\s*(.*)$/; - push @{$hr{uc($h)}}, $v; - } - return ($page, $response, \%hr); -} - -# end of Net::SSLeay::do_httpx4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/dump_peer_certificate.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/dump_peer_certificate.al deleted file mode 100755 index b37a1eff84b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/dump_peer_certificate.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2114 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\dump_peer_certificate.al)" -### Quickly print out with whom we're talking - -sub dump_peer_certificate ($) { - my ($ssl) = @_; - my $cert = get_peer_certificate($ssl); - return if print_errs('get_peer_certificate'); - print "no cert defined\n" if !defined($cert); - # Cipher=NONE with empty cert fix - if (!defined($cert) || ($cert == 0)) { - warn "cert = `$cert'\n" if $trace; - return "Subject Name: undefined\nIssuer Name: undefined\n"; - } else { - my $x = 'Subject Name: ' - . X509_NAME_oneline(X509_get_subject_name($cert)) . "\n" - . 'Issuer Name: ' - . X509_NAME_oneline(X509_get_issuer_name($cert)) . "\n"; - Net::SSLeay::X509_free($cert); - return $x; - } -} - -# end of Net::SSLeay::dump_peer_certificate -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http.al deleted file mode 100755 index 91b6882b25a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2566 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_http.al)" -sub get_http { do_httpx2(GET => 0, @_) } -# end of Net::SSLeay::get_http -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http3.al deleted file mode 100755 index 2877134a5c1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2571 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_http3.al)" -sub get_http3 { do_httpx3(GET => 0, @_) } -# end of Net::SSLeay::get_http3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http4.al deleted file mode 100755 index 3b7aeb8bfb3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_http4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2576 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_http4.al)" -sub get_http4 { do_httpx4(GET => 0, @_) } -# end of Net::SSLeay::get_http4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https.al deleted file mode 100755 index d66a0c1f181..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2549 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_https.al)" -sub get_https { do_httpx2(GET => 1, @_) } -# end of Net::SSLeay::get_https -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https3.al deleted file mode 100755 index 013d6591618..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2554 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_https3.al)" -sub get_https3 { do_httpx3(GET => 1, @_) } -# end of Net::SSLeay::get_https3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https4.al deleted file mode 100755 index 36448f196ee..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_https4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2559 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_https4.al)" -sub get_https4 { do_httpx4(GET => 1, @_) } -# end of Net::SSLeay::get_https4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx.al deleted file mode 100755 index 07a74658149..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2583 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_httpx.al)" -sub get_httpx { do_httpx2(GET => @_) } -# end of Net::SSLeay::get_httpx -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx3.al deleted file mode 100755 index 10307f280fd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2588 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_httpx3.al)" -sub get_httpx3 { do_httpx3(GET => @_) } -# end of Net::SSLeay::get_httpx3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx4.al deleted file mode 100755 index 0f400add2a8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/get_httpx4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2593 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\get_httpx4.al)" -sub get_httpx4 { do_httpx4(GET => @_) } -# end of Net::SSLeay::get_httpx4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http.al deleted file mode 100755 index 8f8fc2ea672..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2569 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_http.al)" -sub head_http { do_httpx2(HEAD => 0, @_) } - -# end of Net::SSLeay::head_http -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http3.al deleted file mode 100755 index d1cd62e1831..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http3.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2574 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_http3.al)" -sub head_http3 { do_httpx3(HEAD => 0, @_) } - -# end of Net::SSLeay::head_http3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http4.al deleted file mode 100755 index 9078198a378..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_http4.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2579 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_http4.al)" -sub head_http4 { do_httpx4(HEAD => 0, @_) } - -# Either https or http - -# end of Net::SSLeay::head_http4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https.al deleted file mode 100755 index 98d2739ad6a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2552 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_https.al)" -sub head_https { do_httpx2(HEAD => 1, @_) } - -# end of Net::SSLeay::head_https -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https3.al deleted file mode 100755 index f97eb8f9ff5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https3.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2557 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_https3.al)" -sub head_https3 { do_httpx3(HEAD => 1, @_) } - -# end of Net::SSLeay::head_https3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https4.al deleted file mode 100755 index f5262f16c21..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_https4.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2562 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_https4.al)" -sub head_https4 { do_httpx4(HEAD => 1, @_) } - -# http - -# end of Net::SSLeay::head_https4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx.al deleted file mode 100755 index 7877cae2e60..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2586 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_httpx.al)" -sub head_httpx { do_httpx2(HEAD => @_) } - -# end of Net::SSLeay::head_httpx -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx3.al deleted file mode 100755 index c3759fb0f51..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx3.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2591 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_httpx3.al)" -sub head_httpx3 { do_httpx3(HEAD => @_) } - -# end of Net::SSLeay::head_httpx3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx4.al deleted file mode 100755 index 9170fabaab4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/head_httpx4.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2596 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\head_httpx4.al)" -sub head_httpx4 { do_httpx4(HEAD => @_) } - -### Legacy, don't use -# ($page, $respone_or_err, %headers) = do_https(...); - -# end of Net::SSLeay::head_httpx4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/http_cat.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/http_cat.al deleted file mode 100755 index fc6672e7280..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/http_cat.al +++ /dev/null @@ -1,34 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2384 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\http_cat.al)" -sub http_cat { # address, port, message --> returns reply / (reply,errs,cert) - my ($dest_serv, $port, $out_message) = @_; - my ($got, $errs, $written); - - ($got, $errs) = open_proxy_tcp_connection($dest_serv, $port); - return (wantarray ? (undef, $errs) : undef) unless $got; - - ### Connected. Exchange some data (doing repeated tries if necessary). - - warn "http_cat $$: sending " . blength($out_message) . " bytes...\n" - if $trace==3; - warn "http_cat $$: sending `$out_message' (" . blength($out_message) - . " bytes)...\n" if $trace>3; - ($written, $errs) = tcp_write_all($out_message); - goto cleanup unless $written; - - warn "waiting for reply...\n" if $trace>2; - ($got, $errs) = tcp_read_all(200000); - warn "Got " . blength($got) . " bytes.\n" if $trace==3; - warn "Got `$got' (" . blength($got) . " bytes)\n" if $trace>3; - -cleanup: - close SSLCAT_S; - return wantarray ? ($got, $errs) : $got; -} - -# end of Net::SSLeay::http_cat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/https_cat.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/https_cat.al deleted file mode 100755 index 33bf8053702..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/https_cat.al +++ /dev/null @@ -1,97 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2295 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\https_cat.al)" -### -### Basic request - response primitive, this is different from sslcat -### because this does not shutdown the connection. -### - -sub https_cat { # address, port, message --> returns reply / (reply,errs,cert) - my ($dest_serv, $port, $out_message, $crt_path, $key_path) = @_; - my ($ctx, $ssl, $got, $errs, $written); - - ($got, $errs) = open_proxy_tcp_connection($dest_serv, $port); - return (wantarray ? (undef, $errs) : undef) unless $got; - - ### Do SSL negotiation stuff - - warn "Creating SSL $ssl_version context...\n" if $trace>2; - load_error_strings(); # Some bloat, but I'm after ease of use - SSLeay_add_ssl_algorithms(); # and debuggability. - randomize(); - - $ctx = new_x_ctx(); - goto cleanup2 if $errs = print_errs('CTX_new') or !$ctx; - - CTX_set_options($ctx, &OP_ALL); - goto cleanup2 if $errs = print_errs('CTX_set_options'); - - warn "Cert `$crt_path' given without key" if $crt_path && !$key_path; - set_cert_and_key($ctx, $crt_path, $key_path) if $crt_path; - - warn "Creating SSL connection (context was '$ctx')...\n" if $trace>2; - $ssl = new($ctx); - goto cleanup if $errs = print_errs('SSL_new') or !$ssl; - - warn "Setting fd (ctx $ctx, con $ssl)...\n" if $trace>2; - set_fd($ssl, fileno(SSLCAT_S)); - goto cleanup if $errs = print_errs('set_fd'); - - warn "Entering SSL negotiation phase...\n" if $trace>2; - - if ($trace>2) { - my $i = 0; - my $p = ''; - my $cipher_list = 'Cipher list: '; - $p=Net::SSLeay::get_cipher_list($ssl,$i); - $cipher_list .= $p if $p; - do { - $i++; - $cipher_list .= ', ' . $p if $p; - $p=Net::SSLeay::get_cipher_list($ssl,$i); - } while $p; - $cipher_list .= '\n'; - warn $cipher_list; - } - - $got = Net::SSLeay::connect($ssl); - warn "SSLeay connect failed" if $trace>2 && $got==0; - goto cleanup if $errs = print_errs('SSL_connect'); - - my $server_cert = get_peer_certificate($ssl); - print_errs('get_peer_certificate'); - if ($trace>1) { - warn "Cipher `" . get_cipher($ssl) . "'\n"; - print_errs('get_ciper'); - warn dump_peer_certificate($ssl); - } - - ### Connected. Exchange some data (doing repeated tries if necessary). - - warn "https_cat $$: sending " . blength($out_message) . " bytes...\n" - if $trace==3; - warn "https_cat $$: sending `$out_message' (" . blength($out_message) - . " bytes)...\n" if $trace>3; - ($written, $errs) = ssl_write_all($ssl, $out_message); - goto cleanup unless $written; - - warn "waiting for reply...\n" if $trace>2; - ($got, $errs) = ssl_read_all($ssl); - warn "Got " . blength($got) . " bytes.\n" if $trace==3; - warn "Got `$got' (" . blength($got) . " bytes)\n" if $trace>3; - -cleanup: - free ($ssl); - $errs .= print_errs('SSL_free'); -cleanup2: - CTX_free ($ctx); - $errs .= print_errs('CTX_free'); - close SSLCAT_S; - return wantarray ? ($got, $errs, $server_cert) : $got; -} - -# end of Net::SSLeay::https_cat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/httpx_cat.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/httpx_cat.al deleted file mode 100755 index aaa98aeb732..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/httpx_cat.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2410 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\httpx_cat.al)" -sub httpx_cat { - my ($usessl, $site, $port, $req, $crt_path, $key_path) = @_; - warn "httpx_cat: usessl=$usessl ($site:$port)" if $trace; - if ($usessl) { - return https_cat($site, $port, $req, $crt_path, $key_path); - } else { - return http_cat($site, $port, $req); - } -} - -# end of Net::SSLeay::httpx_cat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_form.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_form.al deleted file mode 100755 index cdc20a2d49d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_form.al +++ /dev/null @@ -1,25 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2449 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\make_form.al)" -### -### Easy https manipulation routines -### - -sub make_form { - my (@fields) = @_; - my $form; - while (@fields) { - my ($name, $data) = (shift(@fields), shift(@fields)); - $data =~ s/([^\w\-.\@\$ ])/sprintf("%%%2.2x",ord($1))/gse; - $data =~ tr[ ][+]; - $form .= "$name=$data&"; - } - chop $form; - return $form; -} - -# end of Net::SSLeay::make_form -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al deleted file mode 100755 index 171483bc4ae..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2466 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\make_headers.al)" -sub make_headers { - my (@headers) = @_; - my $headers; - while (@headers) { - my $header = shift(@headers); - my $value = shift(@headers); - $header =~ s/:$//; - $value =~ s/\x0d?\x0a$//; # because we add it soon, see below - $headers .= "$header: $value$CRLF"; - } - return $headers; -} - -# end of Net::SSLeay::make_headers -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/new_x_ctx.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/new_x_ctx.al deleted file mode 100755 index 97fa45556ca..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/new_x_ctx.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2158 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\new_x_ctx.al)" -sub new_x_ctx { - if ($ssl_version == 2) { $ctx = CTX_v2_new(); } - elsif ($ssl_version == 3) { $ctx = CTX_v3_new(); } - elsif ($ssl_version == 10) { $ctx = CTX_tlsv1_new(); } - else { $ctx = CTX_new(); } - return $ctx; -} - -# end of Net::SSLeay::new_x_ctx -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/open_proxy_tcp_connection.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/open_proxy_tcp_connection.al deleted file mode 100755 index 19ce508c465..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/open_proxy_tcp_connection.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1833 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\open_proxy_tcp_connection.al)" -### Open connection via standard web proxy, if one was defined -### using set_proxy(). - -sub open_proxy_tcp_connection { - my ($dest_serv, $port) = @_; - return open_tcp_connection($dest_serv, $port) if !$proxyhost; - - warn "Connect via proxy: $proxyhost:$proxyport" if $trace>2; - my ($ret, $errs) = open_tcp_connection($proxyhost, $proxyport); - return wantarray ? (0, $errs) : 0 if !$ret; # Connection fail - - warn "Asking proxy to connect to $dest_serv:$port" if $trace>2; - #print SSLCAT_S "CONNECT $dest_serv:$port HTTP/1.0$proxyauth$CRLF$CRLF"; - #my $line = <SSLCAT_S>; # *** bug? Mixing stdio with syscall read? - ($ret, $errs) = - tcp_write_all("CONNECT $dest_serv:$port HTTP/1.0$proxyauth$CRLF$CRLF"); - return wantarray ? (0,$errs) : 0 if $errs; - ($line, $errs) = tcp_read_until($CRLF . $CRLF, 1024); - warn "Proxy response: $line" if $trace>2; - return wantarray ? (0,$errs) : 0 if $errs; - return wantarray ? (1,'') : 1; # Success -} - -# end of Net::SSLeay::open_proxy_tcp_connection -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/open_tcp_connection.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/open_tcp_connection.al deleted file mode 100755 index ddad138f36c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/open_tcp_connection.al +++ /dev/null @@ -1,40 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1801 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\open_tcp_connection.al)" -sub open_tcp_connection { - my ($dest_serv, $port) = @_; - my ($errs); - - $port = getservbyname($port, 'tcp') unless $port =~ /^\d+$/; - my $dest_serv_ip = gethostbyname($dest_serv); - unless (defined($dest_serv_ip)) { - $errs = "$0 $$: open_tcp_connection: destination host not found:" - . " `$dest_serv' (port $port) ($!)\n"; - warn $errs if $trace; - return wantarray ? (0, $errs) : 0; - } - my $sin = sockaddr_in($port, $dest_serv_ip); - - warn "Opening connection to $dest_serv:$port (" . - inet_ntoa($dest_serv_ip) . ")" if $trace>2; - - my $proto = getprotobyname('tcp'); - if (socket (SSLCAT_S, &PF_INET(), &SOCK_STREAM(), $proto)) { - warn "next connect" if $trace>3; - if (CORE::connect (SSLCAT_S, $sin)) { - my $old_out = select (SSLCAT_S); $| = 1; select ($old_out); - warn "connected to $dest_serv, $port" if $trace>3; - return wantarray ? (1, undef) : 1; # Success - } - } - $errs = "$0 $$: open_tcp_connection: failed `$dest_serv', $port ($!)\n"; - warn $errs if $trace; - close SSLCAT_S; - return wantarray ? (0, $errs) : 0; # Fail -} - -# end of Net::SSLeay::open_tcp_connection -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http.al deleted file mode 100755 index 23dd45dcb95..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2567 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_http.al)" -sub post_http { do_httpx2(POST => 0, @_) } -# end of Net::SSLeay::post_http -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http3.al deleted file mode 100755 index 2b1d62628bb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2572 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_http3.al)" -sub post_http3 { do_httpx3(POST => 0, @_) } -# end of Net::SSLeay::post_http3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http4.al deleted file mode 100755 index 3139b18e5ea..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_http4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2577 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_http4.al)" -sub post_http4 { do_httpx4(POST => 0, @_) } -# end of Net::SSLeay::post_http4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https.al deleted file mode 100755 index e1506be2ced..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2550 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_https.al)" -sub post_https { do_httpx2(POST => 1, @_) } -# end of Net::SSLeay::post_https -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https3.al deleted file mode 100755 index a81201b57d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2555 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_https3.al)" -sub post_https3 { do_httpx3(POST => 1, @_) } -# end of Net::SSLeay::post_https3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https4.al deleted file mode 100755 index f3ad2d7dc72..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_https4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2560 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_https4.al)" -sub post_https4 { do_httpx4(POST => 1, @_) } -# end of Net::SSLeay::post_https4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx.al deleted file mode 100755 index 28a8e56ae9d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2584 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_httpx.al)" -sub post_httpx { do_httpx2(POST => @_) } -# end of Net::SSLeay::post_httpx -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx3.al deleted file mode 100755 index 263f4feb0f9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2589 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_httpx3.al)" -sub post_httpx3 { do_httpx3(POST => @_) } -# end of Net::SSLeay::post_httpx3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx4.al deleted file mode 100755 index dd022e2d23d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/post_httpx4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2594 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\post_httpx4.al)" -sub post_httpx4 { do_httpx4(POST => @_) } -# end of Net::SSLeay::post_httpx4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http.al deleted file mode 100755 index ac7bbd648cf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2568 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_http.al)" -sub put_http { do_httpx2(PUT => 0, @_) } -# end of Net::SSLeay::put_http -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http3.al deleted file mode 100755 index 42e1a6d35b6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2573 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_http3.al)" -sub put_http3 { do_httpx3(PUT => 0, @_) } -# end of Net::SSLeay::put_http3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http4.al deleted file mode 100755 index c27a2135152..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_http4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2578 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_http4.al)" -sub put_http4 { do_httpx4(PUT => 0, @_) } -# end of Net::SSLeay::put_http4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https.al deleted file mode 100755 index c2bda1f4e8d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2551 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_https.al)" -sub put_https { do_httpx2(PUT => 1, @_) } -# end of Net::SSLeay::put_https -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https3.al deleted file mode 100755 index 5471ed36331..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2556 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_https3.al)" -sub put_https3 { do_httpx3(PUT => 1, @_) } -# end of Net::SSLeay::put_https3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https4.al deleted file mode 100755 index 0e3ee8addfe..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_https4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2561 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_https4.al)" -sub put_https4 { do_httpx4(PUT => 1, @_) } -# end of Net::SSLeay::put_https4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx.al deleted file mode 100755 index f203c211743..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2585 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_httpx.al)" -sub put_httpx { do_httpx2(PUT => @_) } -# end of Net::SSLeay::put_httpx -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx3.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx3.al deleted file mode 100755 index 1bb34e1cb9f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx3.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2590 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_httpx3.al)" -sub put_httpx3 { do_httpx3(PUT => @_) } -# end of Net::SSLeay::put_httpx3 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx4.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx4.al deleted file mode 100755 index d85cf654363..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/put_httpx4.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2595 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\put_httpx4.al)" -sub put_httpx4 { do_httpx4(PUT => @_) } -# end of Net::SSLeay::put_httpx4 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/randomize.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/randomize.al deleted file mode 100755 index 7aee1949055..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/randomize.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2135 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\randomize.al)" -### Arrange some randomness for eay PRNG - -sub randomize (;$$) { - my ($rn_seed_file, $seed, $egd_path) = @_; - my $rnsf = defined($rn_seed_file) && -r $rn_seed_file; - - $egd_path = ''; - $egd_path = $ENV{'EGD_PATH'} if $ENV{'EGD_PATH'}; - - RAND_seed(rand() + $$); # Stir it with time and pid - - unless ($rnsf || -r $Net::SSLeay::random_device || $seed || -S $egd_path) { - warn "Random number generator not seeded!!!" if $trace; - } - - RAND_load_file($rn_seed_file, -s _) if $rnsf; - RAND_seed($seed) if $seed; - RAND_seed($ENV{RND_SEED}) if $ENV{RND_SEED}; - RAND_egd($egd_path) if -e $egd_path && -S _; - RAND_load_file($Net::SSLeay::random_device, $Net::SSLeay::how_random/8) - if -r $Net::SSLeay::random_device; -} - -# end of Net::SSLeay::randomize -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_cert_and_key.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_cert_and_key.al deleted file mode 100755 index c01d81b05ca..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_cert_and_key.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2420 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\set_cert_and_key.al)" -### -### Easy set up of private key and certificate -### - -sub set_cert_and_key ($$$) { - my ($ctx, $cert_path, $key_path) = @_; - my $errs = ''; - # Following will ask password unless private key is not encrypted - CTX_use_RSAPrivateKey_file ($ctx, $key_path, &FILETYPE_PEM); - $errs .= print_errs("private key `$key_path' ($!)"); - CTX_use_certificate_file ($ctx, $cert_path, &FILETYPE_PEM); - $errs .= print_errs("certificate `$cert_path' ($!)"); - return wantarray ? (undef, $errs) : ($errs eq ''); -} - -# end of Net::SSLeay::set_cert_and_key -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_proxy.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_proxy.al deleted file mode 100755 index 3488e566e8f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_proxy.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2441 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\set_proxy.al)" -sub set_proxy ($$;**) { - ($proxyhost, $proxyport, $proxyuser, $proxypass) = @_; - require MIME::Base64 if $proxyuser; - $proxyauth = $CRLF . 'Proxy-authorization: Basic ' - . MIME::Base64::encode("$proxyuser:$proxypass", '') - if $proxyuser; -} - -# end of Net::SSLeay::set_proxy -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_server_cert_and_key.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_server_cert_and_key.al deleted file mode 100755 index d0677fee0e4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/set_server_cert_and_key.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2435 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\set_server_cert_and_key.al)" -### Old deprecated API - -sub set_server_cert_and_key ($$$) { &set_cert_and_key } - -### Set up to use web proxy - -# end of Net::SSLeay::set_server_cert_and_key -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_CRLF.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_CRLF.al deleted file mode 100755 index a2e3dcffc47..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_CRLF.al +++ /dev/null @@ -1,10 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2079 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\ssl_read_CRLF.al)" -# ssl_read_CRLF($ssl [, $max_length]) -sub ssl_read_CRLF ($;$) { ssl_read_until($_[0], $CRLF, $_[1]) } -# end of Net::SSLeay::ssl_read_CRLF -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_all.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_all.al deleted file mode 100755 index 73154b37a6d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_all.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1870 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\ssl_read_all.al)" -sub ssl_read_all { - my ($ssl,$how_much) = @_; - $how_much = 2000000000 unless $how_much; - my ($got, $errs); - my $reply = ''; - - while ($how_much > 0) { - $got = Net::SSLeay::read($ssl, - ($how_much > 32768) ? 32768 : $how_much - ); - last if $errs = print_errs('SSL_read'); - $how_much -= blength($got); - debug_read(\$reply, \$got) if $trace>1; - last if $got eq ''; # EOF - $reply .= $got; - } - - return wantarray ? ($reply, $errs) : $reply; -} - -# end of Net::SSLeay::ssl_read_all -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_until.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_until.al deleted file mode 100755 index 252b4400516..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_read_until.al +++ /dev/null @@ -1,95 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1966 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\ssl_read_until.al)" -### from patch by Clinton Wong <clintdw@netcom.com> - -# ssl_read_until($ssl [, $delimit [, $max_length]]) -# if $delimit missing, use $/ if it exists, otherwise use \n -# read until delimiter reached, up to $max_length chars if defined - -sub ssl_read_until ($;$$) { - my ($ssl,$delim, $max_length) = @_; - local $[; - - # guess the delim string if missing - if ( ! defined $delim ) { - if ( defined $/ && length $/ ) { $delim = $/ } - else { $delim = "\n" } # Note: \n,$/ value depends on the platform - } - my $len_delim = length $delim; - - my ($got); - my $reply = ''; - - # If we have OpenSSL 0.9.6a or later, we can use SSL_peek to - # speed things up. - # N.B. 0.9.6a has security problems, so the support for - # anything earlier than 0.9.6e will be dropped soon. - if (&Net::SSLeay::OPENSSL_VERSION_NUMBER >= 0x0090601f) { - $max_length = 2000000000 unless (defined $max_length); - my ($pending, $peek_length, $found, $done); - while (blength($reply) < $max_length and !$done) { - #Block if necessary until we get some data - $got = Net::SSLeay::peek($ssl,1); - last if print_errs('SSL_peek'); - - $pending = Net::SSLeay::pending($ssl) + blength($reply); - $peek_length = ($pending > $max_length) ? $max_length : $pending; - $peek_length -= blength($reply); - $got = Net::SSLeay::peek($ssl, $peek_length); - last if print_errs('SSL_peek'); - $peek_length = blength($got); - - #$found = index($got, $delim); # Old and broken - - # the delimiter may be split across two gets, so we prepend - # a little from the last get onto this one before we check - # for a match - my $match; - if(blength($reply) >= blength($delim) - 1) { - #if what we've read so far is greater or equal - #in length of what we need to prepatch - $match = substr $reply, blength($reply) - blength($delim) + 1; - } else { - $match = $reply; - } - - $match .= $got; - $found = index($match, $delim); - - if ($found > -1) { - #$got = Net::SSLeay::read($ssl, $found+$len_delim); - #read up to the end of the delimiter - $got = Net::SSLeay::read($ssl, - $found + $len_delim - - ((blength $match) - (blength $got))); - $done = 1; - } else { - $got = Net::SSLeay::read($ssl, $peek_length); - $done = 1 if ($peek_length == $max_length - blength($reply)); - } - - last if print_errs('SSL_read'); - debug_read(\$reply, \$got) if $trace>1; - last if $got eq ''; - $reply .= $got; - } - } else { - while (!defined $max_length || length $reply < $max_length) { - $got = Net::SSLeay::read($ssl,1); # one by one - last if print_errs('SSL_read'); - debug_read(\$reply, \$got) if $trace>1; - last if $got eq ''; - $reply .= $got; - last if $len_delim - && substr($reply, blength($reply)-$len_delim) eq $delim; - } - } - return $reply; -} - -# end of Net::SSLeay::ssl_read_until -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_write_CRLF.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_write_CRLF.al deleted file mode 100755 index 586198b4132..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_write_CRLF.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2084 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\ssl_write_CRLF.al)" -sub ssl_write_CRLF ($$) { - # the next line uses less memory but might use more network packets - return ssl_write_all($_[0], $_[1]) + ssl_write_all($_[0], $CRLF); - - # the next few lines do the same thing at the expense of memory, with - # the chance that it will use less packets, since CRLF is in the original - # message and won't be sent separately. - - #my $data_ref; - #if (ref $_[1]) { $data_ref = $_[1] } - # else { $data_ref = \$_[1] } - #my $message = $$data_ref . $CRLF; - #return ssl_write_all($_[0], \$message); -} - -# end of Net::SSLeay::ssl_write_CRLF -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_write_all.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_write_all.al deleted file mode 100755 index cf18ffd4eb1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/ssl_write_all.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1908 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\ssl_write_all.al)" -sub ssl_write_all { - my $ssl = $_[0]; - my ($data_ref, $errs); - if (ref $_[1]) { - $data_ref = $_[1]; - } else { - $data_ref = \$_[1]; - } - my ($wrote, $written, $to_write) = (0,0, blength($$data_ref)); - my $vm = $trace>2 && $linux_debug ? - (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; - warn " write_all VM at entry=$vm\n" if $trace>2; - while ($to_write) { - #sleep 1; # *** DEBUG - warn "partial `$$data_ref'\n" if $trace>3; - $wrote = write_partial($ssl, $written, $to_write, $$data_ref); - if (defined $wrote && ($wrote > 0)) { # write_partial can return -1 - $written += $wrote; - $to_write -= $wrote; - } - $vm = $trace>2 && $linux_debug ? - (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; - warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2; - - $errs .= print_errs('SSL_write'); - return (wantarray ? (undef, $errs) : undef) if $errs; - } - return wantarray ? ($written, $errs) : $written; -} - -# end of Net::SSLeay::ssl_write_all -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/sslcat.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/sslcat.al deleted file mode 100755 index 9cb18a3a842..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/sslcat.al +++ /dev/null @@ -1,99 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2166 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\sslcat.al)" -### -### Basic request - response primitive (don't use for https) -### - -sub sslcat { # address, port, message, $crt, $key --> reply / (reply,errs,cert) - my ($dest_serv, $port, $out_message, $crt_path, $key_path) = @_; - my ($ctx, $ssl, $got, $errs, $written); - - ($got, $errs) = open_proxy_tcp_connection($dest_serv, $port); - return (wantarray ? (undef, $errs) : undef) unless $got; - - ### Do SSL negotiation stuff - - warn "Creating SSL $ssl_version context...\n" if $trace>2; - load_error_strings(); # Some bloat, but I'm after ease of use - SSLeay_add_ssl_algorithms(); # and debuggability. - randomize(); - - $ctx = new_x_ctx(); - goto cleanup2 if $errs = print_errs('CTX_new') or !$ctx; - - CTX_set_options($ctx, &OP_ALL); - goto cleanup2 if $errs = print_errs('CTX_set_options'); - - warn "Cert `$crt_path' given without key" if $crt_path && !$key_path; - set_cert_and_key($ctx, $crt_path, $key_path) if $crt_path; - - warn "Creating SSL connection (context was '$ctx')...\n" if $trace>2; - $ssl = new($ctx); - goto cleanup if $errs = print_errs('SSL_new') or !$ssl; - - warn "Setting fd (ctx $ctx, con $ssl)...\n" if $trace>2; - set_fd($ssl, fileno(SSLCAT_S)); - goto cleanup if $errs = print_errs('set_fd'); - - warn "Entering SSL negotiation phase...\n" if $trace>2; - - if ($trace>2) { - my $i = 0; - my $p = ''; - my $cipher_list = 'Cipher list: '; - $p=Net::SSLeay::get_cipher_list($ssl,$i); - $cipher_list .= $p if $p; - do { - $i++; - $cipher_list .= ', ' . $p if $p; - $p=Net::SSLeay::get_cipher_list($ssl,$i); - } while $p; - $cipher_list .= '\n'; - warn $cipher_list; - } - - $got = Net::SSLeay::connect($ssl); - warn "SSLeay connect returned $got\n" if $trace>2; - goto cleanup if $errs = print_errs('SSL_connect'); - - my $server_cert = get_peer_certificate($ssl); - print_errs('get_peer_certificate'); - if ($trace>1) { - warn "Cipher `" . get_cipher($ssl) . "'\n"; - print_errs('get_ciper'); - warn dump_peer_certificate($ssl); - } - - ### Connected. Exchange some data (doing repeated tries if necessary). - - warn "sslcat $$: sending " . blength($out_message) . " bytes...\n" - if $trace==3; - warn "sslcat $$: sending `$out_message' (" . blength($out_message) - . " bytes)...\n" if $trace>3; - ($written, $errs) = ssl_write_all($ssl, $out_message); - goto cleanup unless $written; - - sleep $slowly if $slowly; # Closing too soon can abort broken servers - CORE::shutdown SSLCAT_S, 1; # Half close --> No more output, send EOF to server - - warn "waiting for reply...\n" if $trace>2; - ($got, $errs) = ssl_read_all($ssl); - warn "Got " . blength($got) . " bytes.\n" if $trace==3; - warn "Got `$got' (" . blength($got) . " bytes)\n" if $trace>3; - -cleanup: - free ($ssl); - $errs .= print_errs('SSL_free'); -cleanup2: - CTX_free ($ctx); - $errs .= print_errs('CTX_free'); - close SSLCAT_S; - return wantarray ? ($got, $errs, $server_cert) : $got; -} - -# end of Net::SSLeay::sslcat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_CRLF.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_CRLF.al deleted file mode 100755 index 1cbec66b70f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_CRLF.al +++ /dev/null @@ -1,11 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2081 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcp_read_CRLF.al)" -sub tcp_read_CRLF { tcp_read_until($CRLF, $_[0]) } - -# ssl_write_CRLF($ssl, $message) writes $message and appends CRLF -# end of Net::SSLeay::tcp_read_CRLF -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_all.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_all.al deleted file mode 100755 index 4b583610227..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_all.al +++ /dev/null @@ -1,26 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1890 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcp_read_all.al)" -sub tcp_read_all { - my ($how_much) = @_; - $how_much = 2000000000 unless $how_much; - my ($n, $got, $errs); - my $reply = ''; - - my $bsize = 0x10000; - while ($how_much > 0) { - $n = sysread(SSLCAT_S,$got, (($bsize < $how_much) ? $bsize : $how_much)); - warn "Read error: $! ($n,$how_much)" unless defined $n; - last if !$n; # EOF - $how_much -= $n; - debug_read(\$reply, \$got) if $trace>1; - $reply .= $got; - } - return wantarray ? ($reply, $errs) : $reply; -} - -# end of Net::SSLeay::tcp_read_all -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_until.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_until.al deleted file mode 100755 index c6be56ed626..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_read_until.al +++ /dev/null @@ -1,34 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2053 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcp_read_until.al)" -sub tcp_read_until { - my ($delim, $max_length) = @_; - local $[; - - # guess the delim string if missing - if ( ! defined $delim ) { - if ( defined $/ && length $/ ) { $delim = $/ } - else { $delim = "\n" } # Note: \n,$/ value depends on the platform - } - my $len_delim = length $delim; - - my ($n,$got); - my $reply = ''; - - while (!defined $max_length || length $reply < $max_length) { - $n = sysread(SSLCAT_S, $got, 1); # one by one - warn "tcp_read_until: $!" if !defined $n; - debug_read(\$reply, \$got) if $trace>1; - last if !$n; # EOF - $reply .= $got; - last if $len_delim - && substr($reply, blength($reply)-$len_delim) eq $delim; - } - return $reply; -} - -# end of Net::SSLeay::tcp_read_until -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_write_CRLF.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_write_CRLF.al deleted file mode 100755 index fc3f04af922..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_write_CRLF.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2099 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcp_write_CRLF.al)" -sub tcp_write_CRLF { - # the next line uses less memory but might use more network packets - return tcp_write_all($_[0]) + tcp_write_all($CRLF); - - # the next few lines do the same thing at the expense of memory, with - # the chance that it will use less packets, since CRLF is in the original - # message and won't be sent separately. - - #my $data_ref; - #if (ref $_[1]) { $data_ref = $_[1] } - # else { $data_ref = \$_[1] } - #my $message = $$data_ref . $CRLF; - #return tcp_write_all($_[0], \$message); -} - -# end of Net::SSLeay::tcp_write_CRLF -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_write_all.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_write_all.al deleted file mode 100755 index 0c701728a86..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcp_write_all.al +++ /dev/null @@ -1,36 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1938 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcp_write_all.al)" -sub tcp_write_all { - my ($data_ref, $errs); - if (ref $_[0]) { - $data_ref = $_[0]; - } else { - $data_ref = \$_[0]; - } - my ($wrote, $written, $to_write) = (0,0, blength($$data_ref)); - my $vm = $trace>2 && $linux_debug ? - (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; - warn " write_all VM at entry=$vm to_write=$to_write\n" if $trace>2; - while ($to_write) { - warn "partial `$$data_ref'\n" if $trace>3; - $wrote = syswrite(SSLCAT_S, $$data_ref, $to_write, $written); - if (defined $wrote && ($wrote > 0)) { # write_partial can return -1 - $written += $wrote; - $to_write -= $wrote; - } elsif (!defined($wrote)) { - warn "tcp_write_all: $!"; - return (wantarray ? (undef, "$!") : undef); - } - $vm = $trace>2 && $linux_debug ? - (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown'; - warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2; - } - return wantarray ? ($written, '') : $written; -} - -# end of Net::SSLeay::tcp_write_all -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcpcat.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcpcat.al deleted file mode 100755 index b36faeae7a2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcpcat.al +++ /dev/null @@ -1,37 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2257 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcpcat.al)" -sub tcpcat { # address, port, message, $crt, $key --> reply / (reply,errs,cert) - my ($dest_serv, $port, $out_message) = @_; - my ($got, $errs, $written); - - ($got, $errs) = open_proxy_tcp_connection($dest_serv, $port); - return (wantarray ? (undef, $errs) : undef) unless $got; - - ### Connected. Exchange some data (doing repeated tries if necessary). - - warn "tcpcat $$: sending " . blength($out_message) . " bytes...\n" - if $trace==3; - warn "tcpcat $$: sending `$out_message' (" . blength($out_message) - . " bytes)...\n" if $trace>3; - ($written, $errs) = tcp_write_all($out_message); - goto cleanup unless $written; - - sleep $slowly if $slowly; # Closing too soon can abort broken servers - CORE::shutdown SSLCAT_S, 1; # Half close --> No more output, send EOF to server - - warn "waiting for reply...\n" if $trace>2; - ($got, $errs) = tcp_read_all($ssl); - warn "Got " . blength($got) . " bytes.\n" if $trace==3; - warn "Got `$got' (" . blength($got) . " bytes)\n" if $trace>3; - -cleanup: - close SSLCAT_S; - return wantarray ? ($got, $errs) : $got; -} - -# end of Net::SSLeay::tcpcat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcpxcat.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcpxcat.al deleted file mode 100755 index 4e79ce00087..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/tcpxcat.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 2286 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\tcpxcat.al)" -sub tcpxcat { - my ($usessl, $site, $port, $req, $crt_path, $key_path) = @_; - if ($usessl) { - return sslcat($site, $port, $req, $crt_path, $key_path); - } else { - return tcpcat($site, $port, $req); - } -} - -# end of Net::SSLeay::tcpxcat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_X509_lookup.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_X509_lookup.al deleted file mode 100755 index e17c706f565..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_X509_lookup.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1794 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\want_X509_lookup.al)" -sub want_X509_lookup { want(shift) == 4 } - -### -### Open TCP stream to given host and port, looking up the details -### from system databases or DNS. -### - -# end of Net::SSLeay::want_X509_lookup -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_nothing.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_nothing.al deleted file mode 100755 index df3d1005d24..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_nothing.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1784 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\want_nothing.al)" -# Documentation. Use `perl-root/pod/pod2html SSLeay.pm` to output html - - -# '; - -### Some methods that are macros in C - -sub want_nothing { want(shift) == 1 } -# end of Net::SSLeay::want_nothing -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_read.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_read.al deleted file mode 100755 index e3a41612772..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_read.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1792 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\want_read.al)" -sub want_read { want(shift) == 2 } -# end of Net::SSLeay::want_read -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_write.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_write.al deleted file mode 100755 index 941e1853bbe..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/want_write.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from blib\lib\Net\SSLeay.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Net::SSLeay; - -#line 1793 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\want_write.al)" -sub want_write { want(shift) == 3 } -# end of Net::SSLeay::want_write -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Number/Compare/.packlist b/Master/tlpkg/tlperl/lib/auto/Number/Compare/.packlist deleted file mode 100755 index 81c9a811e0c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Number/Compare/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Number\Compare.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Object/Accessor/.packlist b/Master/tlpkg/tlperl/lib/auto/Object/Accessor/.packlist deleted file mode 100755 index 2602ae2199e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Object/Accessor/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Object\Accessor.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Opcode/Opcode.dll b/Master/tlpkg/tlperl/lib/auto/Opcode/Opcode.dll Binary files differdeleted file mode 100755 index 89a416de5c3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Opcode/Opcode.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/PAR/.packlist b/Master/tlpkg/tlperl/lib/auto/PAR/.packlist deleted file mode 100755 index 6a263a75cad..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PAR/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\vendor\lib\PAR.pm
-C:\strawberry\perl\vendor\lib\PAR\Environment.pod
-C:\strawberry\perl\vendor\lib\PAR\FAQ.pod
-C:\strawberry\perl\vendor\lib\PAR\Heavy.pm
-C:\strawberry\perl\vendor\lib\PAR\SetupProgname.pm
-C:\strawberry\perl\vendor\lib\PAR\SetupTemp.pm
-C:\strawberry\perl\vendor\lib\PAR\Tutorial.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/PAR/Dist/.packlist b/Master/tlpkg/tlperl/lib/auto/PAR/Dist/.packlist deleted file mode 100755 index f58e59ac6a9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PAR/Dist/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\PAR\Dist.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/PAR/Dist/FromPPD/.packlist b/Master/tlpkg/tlperl/lib/auto/PAR/Dist/FromPPD/.packlist deleted file mode 100755 index 82db882d4b6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PAR/Dist/FromPPD/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\ppd2par
-C:\strawberry\perl\bin\ppd2par.bat
-C:\strawberry\perl\vendor\lib\PAR\Dist\FromPPD.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/PAR/Dist/InstallPPD/.packlist b/Master/tlpkg/tlperl/lib/auto/PAR/Dist/InstallPPD/.packlist deleted file mode 100755 index e1481a92eca..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PAR/Dist/InstallPPD/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\parinstallppd
-C:\strawberry\perl\bin\parinstallppd.bat
-C:\strawberry\perl\vendor\lib\PAR\Dist\InstallPPD.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/PAR/Repository/Client/.packlist b/Master/tlpkg/tlperl/lib/auto/PAR/Repository/Client/.packlist deleted file mode 100755 index 404e521bacb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PAR/Repository/Client/.packlist +++ /dev/null @@ -1,5 +0,0 @@ -C:\strawberry\perl\vendor\lib\PAR\Repository\Client.pm
-C:\strawberry\perl\vendor\lib\PAR\Repository\Client\DBM.pm
-C:\strawberry\perl\vendor\lib\PAR\Repository\Client\HTTP.pm
-C:\strawberry\perl\vendor\lib\PAR\Repository\Client\Local.pm
-C:\strawberry\perl\vendor\lib\PAR\Repository\Client\Util.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/PAR/Repository/Query/.packlist b/Master/tlpkg/tlperl/lib/auto/PAR/Repository/Query/.packlist deleted file mode 100755 index 8410ab340d7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PAR/Repository/Query/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\PAR\Repository\Query.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll b/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll Binary files differdeleted file mode 100755 index 1af4b64989b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al deleted file mode 100755 index 7cbdb7bb920..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 986 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\flags.al)" -sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} }; -# end of POSIX::SigAction::flags -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al deleted file mode 100755 index 3d03d1c9a99..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 984 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\handler.al)" -sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; -# end of POSIX::SigAction::handler -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al deleted file mode 100755 index bc8bd31e8c0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 985 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\mask.al)" -sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} }; -# end of POSIX::SigAction::mask -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al deleted file mode 100755 index b74b2d4a4de..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al +++ /dev/null @@ -1,11 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 981 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\new.al)" -package POSIX::SigAction; - -sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] } -# end of POSIX::SigAction::new -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al deleted file mode 100755 index a9f21cc5f18..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigAction; - -#line 987 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\safe.al)" -sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; - -package POSIX::SigRt; - - -# end of POSIX::SigRt::safe -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al deleted file mode 100755 index 78d3d5bb622..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1041 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\CLEAR.al)" -sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } } -# end of POSIX::SigRt::CLEAR -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al deleted file mode 100755 index 6bac474d05b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1040 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\DELETE.al)" -sub DELETE { delete $SIG{ &_check } } -# end of POSIX::SigRt::DELETE -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al deleted file mode 100755 index 2f2c73d94a8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1034 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\EXISTS.al)" -sub EXISTS { &_exist } -# end of POSIX::SigRt::EXISTS -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al deleted file mode 100755 index ed18ab0d9b6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1035 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\FETCH.al)" -sub FETCH { my $rtsig = &_check; - my $oa = POSIX::SigAction->new(); - POSIX::sigaction($rtsig, undef, $oa); - return $oa->{HANDLER} } -# end of POSIX::SigRt::FETCH -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al deleted file mode 100755 index feec293431c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1042 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\SCALAR.al)" -sub SCALAR { &_croak; $_sigrtn + 1 } -1; -# end of POSIX::SigRt::SCALAR diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al deleted file mode 100755 index f4c6466a06b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al +++ /dev/null @@ -1,9 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1039 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\STORE.al)" -sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) } -# end of POSIX::SigRt::STORE -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al deleted file mode 100755 index c1a46c3e6c3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1018 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_check.al)" -sub _check { - my ($rtsig, $ok) = &_exist; - die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)" - unless $ok; - return $rtsig; -} - -# end of POSIX::SigRt::_check -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al deleted file mode 100755 index 742d4e9cd46..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 998 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_croak.al)" -sub _croak { - &_init unless defined $_sigrtn; - die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0; -} - -# end of POSIX::SigRt::_croak -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al deleted file mode 100755 index 075bbed6ab8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1012 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_exist.al)" -sub _exist { - my $rtsig = _getsig($_[1]); - my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX; - ($rtsig, $ok); -} - -# end of POSIX::SigRt::_exist -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al deleted file mode 100755 index 1cdbfaaf197..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1003 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_getsig.al)" -sub _getsig { - &_croak; - my $rtsig = $_[0]; - # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C. - $rtsig = $_SIGRTMIN + ($1 || 0) - if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/; - return $rtsig; -} - -# end of POSIX::SigRt::_getsig -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al deleted file mode 100755 index 8ac96299ec6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 992 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_init.al)" -sub _init { - $_SIGRTMIN = &POSIX::SIGRTMIN; - $_SIGRTMAX = &POSIX::SIGRTMAX; - $_sigrtn = $_SIGRTMAX - $_SIGRTMIN; -} - -# end of POSIX::SigRt::_init -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al deleted file mode 100755 index 30b6100a634..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX::SigRt; - -#line 1025 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\new.al)" -sub new { - my ($rtsig, $handler, $flags) = @_; - my $sigset = POSIX::SigSet->new($rtsig); - my $sigact = POSIX::SigAction->new($handler, - $sigset, - $flags); - POSIX::sigaction($rtsig, $sigact); -} - -# end of POSIX::SigRt::new -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al deleted file mode 100755 index a882e5a0309..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 414 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\abs.al)" -sub abs { - usage "abs(x)" if @_ != 1; - CORE::abs($_[0]); -} - -# end of POSIX::abs -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al b/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al deleted file mode 100755 index 2bf97977aeb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 631 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\alarm.al)" -sub alarm { - usage "alarm(seconds)" if @_ != 1; - CORE::alarm($_[0]); -} - -# end of POSIX::alarm -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al b/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al deleted file mode 100755 index fbeefa8583c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 96 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\assert.al)" -sub assert { - usage "assert(expr)" if @_ != 1; - if (!$_[0]) { - croak "Assertion failed"; - } -} - -# end of POSIX::assert -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al deleted file mode 100755 index 41b71fab8e4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 161 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atan2.al)" -sub atan2 { - usage "atan2(x,y)" if @_ != 2; - CORE::atan2($_[0], $_[1]); -} - -# end of POSIX::atan2 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al deleted file mode 100755 index 7df942dfda6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 419 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atexit.al)" -sub atexit { - unimpl "atexit() is C-specific: use END {} instead"; -} - -# end of POSIX::atexit -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al deleted file mode 100755 index 5f4d2c51bbb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 423 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atof.al)" -sub atof { - unimpl "atof() is C-specific, stopped"; -} - -# end of POSIX::atof -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al deleted file mode 100755 index 57b26c01896..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 427 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atoi.al)" -sub atoi { - unimpl "atoi() is C-specific, stopped"; -} - -# end of POSIX::atoi -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al deleted file mode 100755 index f5784993845..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 431 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atol.al)" -sub atol { - unimpl "atol() is C-specific, stopped"; -} - -# end of POSIX::atol -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/POSIX/autosplit.ix deleted file mode 100755 index cc56f9ada79..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/autosplit.ix +++ /dev/null @@ -1,173 +0,0 @@ -# Index created by AutoSplit for ..\..\lib\POSIX.pm -# (file acts as timestamp) -package POSIX; -sub usage ; -sub redef ; -sub unimpl ; -sub assert ; -sub tolower ; -sub toupper ; -sub closedir ; -sub opendir ; -sub readdir ; -sub rewinddir ; -sub errno ; -sub creat ; -sub fcntl ; -sub getgrgid ; -sub getgrnam ; -sub atan2 ; -sub cos ; -sub exp ; -sub fabs ; -sub log ; -sub pow ; -sub sin ; -sub sqrt ; -sub getpwnam ; -sub getpwuid ; -sub longjmp ; -sub setjmp ; -sub siglongjmp ; -sub sigsetjmp ; -sub kill ; -sub raise ; -sub offsetof ; -sub clearerr ; -sub fclose ; -sub fdopen ; -sub feof ; -sub fgetc ; -sub fgets ; -sub fileno ; -sub fopen ; -sub fprintf ; -sub fputc ; -sub fputs ; -sub fread ; -sub freopen ; -sub fscanf ; -sub fseek ; -sub fsync ; -sub ferror ; -sub fflush ; -sub fgetpos ; -sub fsetpos ; -sub ftell ; -sub fwrite ; -sub getc ; -sub getchar ; -sub gets ; -sub perror ; -sub printf ; -sub putc ; -sub putchar ; -sub puts ; -sub remove ; -sub rename ; -sub rewind ; -sub scanf ; -sub sprintf ; -sub sscanf ; -sub tmpfile ; -sub ungetc ; -sub vfprintf ; -sub vprintf ; -sub vsprintf ; -sub abs ; -sub atexit ; -sub atof ; -sub atoi ; -sub atol ; -sub bsearch ; -sub calloc ; -sub div ; -sub exit ; -sub free ; -sub getenv ; -sub labs ; -sub ldiv ; -sub malloc ; -sub qsort ; -sub rand ; -sub realloc ; -sub srand ; -sub system ; -sub memchr ; -sub memcmp ; -sub memcpy ; -sub memmove ; -sub memset ; -sub strcat ; -sub strchr ; -sub strcmp ; -sub strcpy ; -sub strcspn ; -sub strerror ; -sub strlen ; -sub strncat ; -sub strncmp ; -sub strncpy ; -sub strpbrk ; -sub strrchr ; -sub strspn ; -sub strstr ; -sub strtok ; -sub chmod ; -sub fstat ; -sub mkdir ; -sub stat ; -sub umask ; -sub wait ; -sub waitpid ; -sub gmtime ; -sub localtime ; -sub time ; -sub alarm ; -sub chdir ; -sub chown ; -sub execl ; -sub execle ; -sub execlp ; -sub execv ; -sub execve ; -sub execvp ; -sub fork ; -sub getegid ; -sub geteuid ; -sub getgid ; -sub getgroups ; -sub getlogin ; -sub getpgrp ; -sub getpid ; -sub getppid ; -sub getuid ; -sub isatty ; -sub link ; -sub rmdir ; -sub setbuf ; -sub setvbuf ; -sub sleep ; -sub unlink ; -sub utime ; -sub load_imports ; -package POSIX::SigAction; -sub new ; -sub handler ; -sub mask ; -sub flags ; -sub safe ; -package POSIX::SigRt; -sub _init ; -sub _croak ; -sub _getsig ; -sub _exist ; -sub _check ; -sub new ; -sub EXISTS ; -sub FETCH ; -sub STORE ; -sub DELETE ; -sub CLEAR ; -sub SCALAR ; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al b/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al deleted file mode 100755 index 617c37ee740..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 435 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\bsearch.al)" -sub bsearch { - unimpl "bsearch() not supplied"; -} - -# end of POSIX::bsearch -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al deleted file mode 100755 index 01b6db33ae8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 439 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\calloc.al)" -sub calloc { - unimpl "calloc() is C-specific, stopped"; -} - -# end of POSIX::calloc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al deleted file mode 100755 index 9b6b663387d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 636 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chdir.al)" -sub chdir { - usage "chdir(directory)" if @_ != 1; - CORE::chdir($_[0]); -} - -# end of POSIX::chdir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al deleted file mode 100755 index 86721b2ae61..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 577 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chmod.al)" -sub chmod { - usage "chmod(mode, filename)" if @_ != 2; - CORE::chmod($_[0], $_[1]); -} - -# end of POSIX::chmod -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al deleted file mode 100755 index 9c12a41fa04..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 641 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chown.al)" -sub chown { - usage "chown(uid, gid, filename)" if @_ != 3; - CORE::chown($_[0], $_[1], $_[2]); -} - -# end of POSIX::chown -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al deleted file mode 100755 index bae5e4f2f1d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 241 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\clearerr.al)" -sub clearerr { - redef "IO::Handle::clearerr()"; -} - -# end of POSIX::clearerr -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al deleted file mode 100755 index 425cbd44126..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 113 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\closedir.al)" -sub closedir { - usage "closedir(dirhandle)" if @_ != 1; - CORE::closedir($_[0]); -} - -# end of POSIX::closedir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al deleted file mode 100755 index 890ef0c2354..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 166 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\cos.al)" -sub cos { - usage "cos(x)" if @_ != 1; - CORE::cos($_[0]); -} - -# end of POSIX::cos -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al deleted file mode 100755 index 5ed2f6eee46..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 141 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)" -sub creat { - usage "creat(filename, mode)" if @_ != 2; - &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]); -} - -# end of POSIX::creat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/div.al b/Master/tlpkg/tlperl/lib/auto/POSIX/div.al deleted file mode 100755 index 5871ee1b0de..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/div.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 443 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\div.al)" -sub div { - unimpl "div() is C-specific, use /, % and int instead"; -} - -# end of POSIX::div -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al b/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al deleted file mode 100755 index e7362909f46..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 136 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\errno.al)" -sub errno { - usage "errno()" if @_ != 0; - $! + 0; -} - -# end of POSIX::errno -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al deleted file mode 100755 index 33e650902bc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 646 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execl.al)" -sub execl { - unimpl "execl() is C-specific, stopped"; -} - -# end of POSIX::execl -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al deleted file mode 100755 index 43d56a3bda1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 650 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execle.al)" -sub execle { - unimpl "execle() is C-specific, stopped"; -} - -# end of POSIX::execle -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al deleted file mode 100755 index 093719d84bf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 654 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execlp.al)" -sub execlp { - unimpl "execlp() is C-specific, stopped"; -} - -# end of POSIX::execlp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al deleted file mode 100755 index 76273074eb4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 658 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execv.al)" -sub execv { - unimpl "execv() is C-specific, stopped"; -} - -# end of POSIX::execv -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al deleted file mode 100755 index 33105ccd6fb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 662 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execve.al)" -sub execve { - unimpl "execve() is C-specific, stopped"; -} - -# end of POSIX::execve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al deleted file mode 100755 index 4a17521841e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 666 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execvp.al)" -sub execvp { - unimpl "execvp() is C-specific, stopped"; -} - -# end of POSIX::execvp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al b/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al deleted file mode 100755 index 559dd68b1e2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 447 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exit.al)" -sub exit { - usage "exit(status)" if @_ != 1; - CORE::exit($_[0]); -} - -# end of POSIX::exit -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al deleted file mode 100755 index 6c278f38250..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 171 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exp.al)" -sub exp { - usage "exp(x)" if @_ != 1; - CORE::exp($_[0]); -} - -# end of POSIX::exp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al deleted file mode 100755 index 7813dc843b5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 176 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fabs.al)" -sub fabs { - usage "fabs(x)" if @_ != 1; - CORE::abs($_[0]); -} - -# end of POSIX::fabs -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al deleted file mode 100755 index 1312109c813..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 245 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fclose.al)" -sub fclose { - redef "IO::Handle::close()"; -} - -# end of POSIX::fclose -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al deleted file mode 100755 index 4ee8654751c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 146 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fcntl.al)" -sub fcntl { - usage "fcntl(filehandle, cmd, arg)" if @_ != 3; - CORE::fcntl($_[0], $_[1], $_[2]); -} - -# end of POSIX::fcntl -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al deleted file mode 100755 index d700c0d834a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 249 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fdopen.al)" -sub fdopen { - redef "IO::Handle::new_from_fd()"; -} - -# end of POSIX::fdopen -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al deleted file mode 100755 index 917afb91354..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 253 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\feof.al)" -sub feof { - redef "IO::Handle::eof()"; -} - -# end of POSIX::feof -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al deleted file mode 100755 index f253b1b7741..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 305 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ferror.al)" -sub ferror { - redef "IO::Handle::error()"; -} - -# end of POSIX::ferror -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al deleted file mode 100755 index 1f874ceaf89..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 309 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fflush.al)" -sub fflush { - redef "IO::Handle::flush()"; -} - -# end of POSIX::fflush -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al deleted file mode 100755 index 6832ce432af..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 257 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetc.al)" -sub fgetc { - redef "IO::Handle::getc()"; -} - -# end of POSIX::fgetc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al deleted file mode 100755 index 02294ca2b39..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 313 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetpos.al)" -sub fgetpos { - redef "IO::Seekable::getpos()"; -} - -# end of POSIX::fgetpos -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al deleted file mode 100755 index c845912c726..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 261 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgets.al)" -sub fgets { - redef "IO::Handle::gets()"; -} - -# end of POSIX::fgets -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al deleted file mode 100755 index 31dc7db13ab..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 265 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fileno.al)" -sub fileno { - redef "IO::Handle::fileno()"; -} - -# end of POSIX::fileno -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al deleted file mode 100755 index da5d546422c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 269 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fopen.al)" -sub fopen { - redef "IO::File::open()"; -} - -# end of POSIX::fopen -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al deleted file mode 100755 index 5596e03901d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 670 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fork.al)" -sub fork { - usage "fork()" if @_ != 0; - CORE::fork; -} - -# end of POSIX::fork -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al deleted file mode 100755 index 8a10db84339..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 273 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fprintf.al)" -sub fprintf { - unimpl "fprintf() is C-specific--use printf instead"; -} - -# end of POSIX::fprintf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al deleted file mode 100755 index 37e5c79fe9d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 277 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputc.al)" -sub fputc { - unimpl "fputc() is C-specific--use print instead"; -} - -# end of POSIX::fputc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al deleted file mode 100755 index 6aeb04ee678..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 281 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputs.al)" -sub fputs { - unimpl "fputs() is C-specific--use print instead"; -} - -# end of POSIX::fputs -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al deleted file mode 100755 index f2f56c48f5e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 285 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fread.al)" -sub fread { - unimpl "fread() is C-specific--use read instead"; -} - -# end of POSIX::fread -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/free.al b/Master/tlpkg/tlperl/lib/auto/POSIX/free.al deleted file mode 100755 index 1fc25d909e2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/free.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 452 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\free.al)" -sub free { - unimpl "free() is C-specific, stopped"; -} - -# end of POSIX::free -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al deleted file mode 100755 index 867307d33f3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 289 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\freopen.al)" -sub freopen { - unimpl "freopen() is C-specific--use open instead"; -} - -# end of POSIX::freopen -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al deleted file mode 100755 index 4b07b50d257..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 293 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fscanf.al)" -sub fscanf { - unimpl "fscanf() is C-specific--use <> and regular expressions instead"; -} - -# end of POSIX::fscanf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al deleted file mode 100755 index 5f65bd0e29a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 297 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fseek.al)" -sub fseek { - redef "IO::Seekable::seek()"; -} - -# end of POSIX::fseek -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al deleted file mode 100755 index e865a66d01c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 317 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsetpos.al)" -sub fsetpos { - redef "IO::Seekable::setpos()"; -} - -# end of POSIX::fsetpos -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al deleted file mode 100755 index c02f89a3f2f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 582 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" -sub fstat { - usage "fstat(fd)" if @_ != 1; - local *TMP; - CORE::open(TMP, "<&$_[0]"); # Gross. - my @l = CORE::stat(TMP); - CORE::close(TMP); - @l; -} - -# end of POSIX::fstat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al deleted file mode 100755 index 357f178623d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 301 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsync.al)" -sub fsync { - redef "IO::Handle::sync()"; -} - -# end of POSIX::fsync -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al deleted file mode 100755 index f1f1754637c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 321 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ftell.al)" -sub ftell { - redef "IO::Seekable::tell()"; -} - -# end of POSIX::ftell -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al deleted file mode 100755 index 825f8d7e154..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 325 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fwrite.al)" -sub fwrite { - unimpl "fwrite() is C-specific--use print instead"; -} - -# end of POSIX::fwrite -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al deleted file mode 100755 index 6dc4bbe38e7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 329 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getc.al)" -sub getc { - usage "getc(handle)" if @_ != 1; - CORE::getc($_[0]); -} - -# end of POSIX::getc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al deleted file mode 100755 index b03a3a30708..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 334 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getchar.al)" -sub getchar { - usage "getchar()" if @_ != 0; - CORE::getc(STDIN); -} - -# end of POSIX::getchar -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al deleted file mode 100755 index 9d9a7404bcc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 675 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getegid.al)" -sub getegid { - usage "getegid()" if @_ != 0; - $) + 0; -} - -# end of POSIX::getegid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al deleted file mode 100755 index db932eacaff..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 456 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getenv.al)" -sub getenv { - usage "getenv(name)" if @_ != 1; - $ENV{$_[0]}; -} - -# end of POSIX::getenv -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al deleted file mode 100755 index ab000a972c9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 680 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\geteuid.al)" -sub geteuid { - usage "geteuid()" if @_ != 0; - $> + 0; -} - -# end of POSIX::geteuid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al deleted file mode 100755 index 484d13bffb3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 685 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgid.al)" -sub getgid { - usage "getgid()" if @_ != 0; - $( + 0; -} - -# end of POSIX::getgid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al deleted file mode 100755 index 3afd5b121a8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 151 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrgid.al)" -sub getgrgid { - usage "getgrgid(gid)" if @_ != 1; - CORE::getgrgid($_[0]); -} - -# end of POSIX::getgrgid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al deleted file mode 100755 index 8dcc0fb9eb5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 156 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrnam.al)" -sub getgrnam { - usage "getgrnam(name)" if @_ != 1; - CORE::getgrnam($_[0]); -} - -# end of POSIX::getgrnam -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al deleted file mode 100755 index 95dca454d01..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 690 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgroups.al)" -sub getgroups { - usage "getgroups()" if @_ != 0; - my %seen; - grep(!$seen{$_}++, split(' ', $) )); -} - -# end of POSIX::getgroups -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al deleted file mode 100755 index 3fd23d795d0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 696 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getlogin.al)" -sub getlogin { - usage "getlogin()" if @_ != 0; - CORE::getlogin(); -} - -# end of POSIX::getlogin -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al deleted file mode 100755 index 4f204a60e60..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 701 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpgrp.al)" -sub getpgrp { - usage "getpgrp()" if @_ != 0; - CORE::getpgrp; -} - -# end of POSIX::getpgrp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al deleted file mode 100755 index fe5c3c351cf..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 706 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpid.al)" -sub getpid { - usage "getpid()" if @_ != 0; - $$; -} - -# end of POSIX::getpid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al deleted file mode 100755 index 583ada5edba..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 711 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getppid.al)" -sub getppid { - usage "getppid()" if @_ != 0; - CORE::getppid; -} - -# end of POSIX::getppid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al deleted file mode 100755 index 00c3c6a7fda..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 201 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwnam.al)" -sub getpwnam { - usage "getpwnam(name)" if @_ != 1; - CORE::getpwnam($_[0]); -} - -# end of POSIX::getpwnam -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al deleted file mode 100755 index 488bc594a04..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 206 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwuid.al)" -sub getpwuid { - usage "getpwuid(uid)" if @_ != 1; - CORE::getpwuid($_[0]); -} - -# end of POSIX::getpwuid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al b/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al deleted file mode 100755 index e703a86f8fb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 339 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gets.al)" -sub gets { - usage "gets()" if @_ != 0; - scalar <STDIN>; -} - -# end of POSIX::gets -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al deleted file mode 100755 index 8702cbf6bc5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 716 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getuid.al)" -sub getuid { - usage "getuid()" if @_ != 0; - $<; -} - -# end of POSIX::getuid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al deleted file mode 100755 index b976b322410..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 616 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gmtime.al)" -sub gmtime { - usage "gmtime(time)" if @_ != 1; - CORE::gmtime($_[0]); -} - -# end of POSIX::gmtime -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al b/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al deleted file mode 100755 index a5511b672a0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 721 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\isatty.al)" -sub isatty { - usage "isatty(filehandle)" if @_ != 1; - -t $_[0]; -} - -# end of POSIX::isatty -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al b/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al deleted file mode 100755 index 193d93e845e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 227 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\kill.al)" -sub kill { - usage "kill(pid, sig)" if @_ != 2; - CORE::kill $_[1], $_[0]; -} - -# end of POSIX::kill -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al deleted file mode 100755 index 04133e79244..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 461 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\labs.al)" -sub labs { - unimpl "labs() is C-specific, use abs instead"; -} - -# end of POSIX::labs -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al deleted file mode 100755 index c6679286485..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 465 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ldiv.al)" -sub ldiv { - unimpl "ldiv() is C-specific, use /, % and int instead"; -} - -# end of POSIX::ldiv -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/link.al b/Master/tlpkg/tlperl/lib/auto/POSIX/link.al deleted file mode 100755 index d68d80dcff6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/link.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 726 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\link.al)" -sub link { - usage "link(oldfilename, newfilename)" if @_ != 2; - CORE::link($_[0], $_[1]); -} - -# end of POSIX::link -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al b/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al deleted file mode 100755 index cf692f646ae..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al +++ /dev/null @@ -1,230 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 759 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\load_imports.al)" -sub load_imports { -%EXPORT_TAGS = ( - - assert_h => [qw(assert NDEBUG)], - - ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower - isprint ispunct isspace isupper isxdigit tolower toupper)], - - dirent_h => [], - - errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT - EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED - ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT - EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS - EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK - EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH - ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM - ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR - ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM - EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE - ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT - ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY - EUSERS EWOULDBLOCK EXDEV errno)], - - fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK - F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK - O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK - O_RDONLY O_RDWR O_TRUNC O_WRONLY - creat - SEEK_CUR SEEK_END SEEK_SET - S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU - S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID - S_IWGRP S_IWOTH S_IWUSR)], - - float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG - DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP - DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP - FLT_DIG FLT_EPSILON FLT_MANT_DIG - FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP - FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP - FLT_RADIX FLT_ROUNDS - LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG - LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP - LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], - - grp_h => [], - - limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX - INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON - MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX - PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN - SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX - ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX - _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT - _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX - _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX - _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], - - locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES - LC_MONETARY LC_NUMERIC LC_TIME NULL - localeconv setlocale)], - - math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod - frexp ldexp log10 modf pow sinh tan tanh)], - - pwd_h => [], - - setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], - - signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK - SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM - SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL - SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP - SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 - SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK - raise sigaction signal sigpending sigprocmask sigsuspend)], - - stdarg_h => [], - - stddef_h => [qw(NULL offsetof)], - - stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid - L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET - STREAM_MAX TMP_MAX stderr stdin stdout - clearerr fclose fdopen feof ferror fflush fgetc fgetpos - fgets fopen fprintf fputc fputs fread freopen - fscanf fseek fsetpos ftell fwrite getchar gets - perror putc putchar puts remove rewind - scanf setbuf setvbuf sscanf tmpfile tmpnam - ungetc vfprintf vprintf vsprintf)], - - stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX - abort atexit atof atoi atol bsearch calloc div - free getenv labs ldiv malloc mblen mbstowcs mbtowc - qsort realloc strtod strtol strtoul wcstombs wctomb)], - - string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat - strchr strcmp strcoll strcpy strcspn strerror strlen - strncat strncmp strncpy strpbrk strrchr strspn strstr - strtok strxfrm)], - - sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU - S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG - S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR - fstat mkfifo)], - - sys_times_h => [], - - sys_types_h => [], - - sys_utsname_h => [qw(uname)], - - sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED - WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], - - termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 - B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL - CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK - ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR - INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST - PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION - TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW - TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART - VSTOP VSUSP VTIME - cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain - tcflow tcflush tcgetattr tcsendbreak tcsetattr )], - - time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime - difftime mktime strftime tzset tzname)], - - unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET - STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK - _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON - _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX - _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED - _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS - _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX - _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL - _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS - _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION - _exit access ctermid cuserid - dup2 dup execl execle execlp execv execve execvp - fpathconf fsync getcwd getegid geteuid getgid getgroups - getpid getuid isatty lseek pathconf pause setgid setpgid - setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], - - utime_h => [], - -); - -# Exporter::export_tags(); -{ - # De-duplicate the export list: - my %export; - @export{map {@$_} values %EXPORT_TAGS} = (); - # Doing the de-dup with a temporary hash has the advantage that the SVs in - # @EXPORT are actually shared hash key sacalars, which will save some memory. - push @EXPORT, keys %export; -} - -@EXPORT_OK = qw( - abs - alarm - atan2 - chdir - chmod - chown - close - closedir - cos - exit - exp - fcntl - fileno - fork - getc - getgrgid - getgrnam - getlogin - getpgrp - getppid - getpwnam - getpwuid - gmtime - isatty - kill - lchown - link - localtime - log - mkdir - nice - open - opendir - pipe - printf - rand - read - readdir - rename - rewinddir - rmdir - sin - sleep - sprintf - sqrt - srand - stat - system - time - times - umask - unlink - utime - wait - waitpid - write -); - -require Exporter; -} - -# end of POSIX::SigAction::load_imports -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al deleted file mode 100755 index c2d15ad16ae..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 621 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\localtime.al)" -sub localtime { - usage "localtime(time)" if @_ != 1; - CORE::localtime($_[0]); -} - -# end of POSIX::localtime -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/log.al b/Master/tlpkg/tlperl/lib/auto/POSIX/log.al deleted file mode 100755 index 682dea9598f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/log.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 181 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\log.al)" -sub log { - usage "log(x)" if @_ != 1; - CORE::log($_[0]); -} - -# end of POSIX::log -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al deleted file mode 100755 index b62bd3c94c2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 211 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\longjmp.al)" -sub longjmp { - unimpl "longjmp() is C-specific: use die instead"; -} - -# end of POSIX::longjmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al deleted file mode 100755 index 0922d0174b5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 469 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\malloc.al)" -sub malloc { - unimpl "malloc() is C-specific, stopped"; -} - -# end of POSIX::malloc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al deleted file mode 100755 index 7344db15757..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 494 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memchr.al)" -sub memchr { - unimpl "memchr() is C-specific, use index() instead"; -} - -# end of POSIX::memchr -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al deleted file mode 100755 index a5c9844ea0d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 498 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcmp.al)" -sub memcmp { - unimpl "memcmp() is C-specific, use eq instead"; -} - -# end of POSIX::memcmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al deleted file mode 100755 index 53c62d6bb4e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 502 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcpy.al)" -sub memcpy { - unimpl "memcpy() is C-specific, use = instead"; -} - -# end of POSIX::memcpy -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al deleted file mode 100755 index a3cb8905083..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 506 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memmove.al)" -sub memmove { - unimpl "memmove() is C-specific, use = instead"; -} - -# end of POSIX::memmove -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al deleted file mode 100755 index b71c7b65ed3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 510 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memset.al)" -sub memset { - unimpl "memset() is C-specific, use x instead"; -} - -# end of POSIX::memset -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al deleted file mode 100755 index 290a5df0c80..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 591 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\mkdir.al)" -sub mkdir { - usage "mkdir(directoryname, mode)" if @_ != 2; - CORE::mkdir($_[0], $_[1]); -} - -# end of POSIX::mkdir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al deleted file mode 100755 index 94fb579e749..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 237 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\offsetof.al)" -sub offsetof { - unimpl "offsetof() is C-specific, stopped"; -} - -# end of POSIX::offsetof -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al deleted file mode 100755 index 1112e2eaeb5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 118 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\opendir.al)" -sub opendir { - usage "opendir(directory)" if @_ != 1; - my $dirhandle; - CORE::opendir($dirhandle, $_[0]) - ? $dirhandle - : undef; -} - -# end of POSIX::opendir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al deleted file mode 100755 index c35baf5a47b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 344 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\perror.al)" -sub perror { - print STDERR "@_: " if @_; - print STDERR $!,"\n"; -} - -# end of POSIX::perror -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al b/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al deleted file mode 100755 index 5cc8fb73a39..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 186 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\pow.al)" -sub pow { - usage "pow(x,exponent)" if @_ != 2; - $_[0] ** $_[1]; -} - -# end of POSIX::pow -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al deleted file mode 100755 index 3c0e704371e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 349 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\printf.al)" -sub printf { - usage "printf(pattern, args...)" if @_ < 1; - CORE::printf STDOUT @_; -} - -# end of POSIX::printf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al deleted file mode 100755 index 561218c6e7c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 354 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putc.al)" -sub putc { - unimpl "putc() is C-specific--use print instead"; -} - -# end of POSIX::putc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al b/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al deleted file mode 100755 index 90edc4f1dde..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 358 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putchar.al)" -sub putchar { - unimpl "putchar() is C-specific--use print instead"; -} - -# end of POSIX::putchar -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al b/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al deleted file mode 100755 index b35380c91b2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 362 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\puts.al)" -sub puts { - unimpl "puts() is C-specific--use print instead"; -} - -# end of POSIX::puts -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al b/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al deleted file mode 100755 index e0e8438d51e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 473 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\qsort.al)" -sub qsort { - unimpl "qsort() is C-specific, use sort instead"; -} - -# end of POSIX::qsort -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al b/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al deleted file mode 100755 index 25998d61b6c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 232 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\raise.al)" -sub raise { - usage "raise(sig)" if @_ != 1; - CORE::kill $_[0], $$; # Is this good enough? -} - -# end of POSIX::raise -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al deleted file mode 100755 index ea6457f00d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 477 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rand.al)" -sub rand { - unimpl "rand() is non-portable, use Perl's rand instead"; -} - -# end of POSIX::rand -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al deleted file mode 100755 index 458c7cda637..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 126 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\readdir.al)" -sub readdir { - usage "readdir(dirhandle)" if @_ != 1; - CORE::readdir($_[0]); -} - -# end of POSIX::readdir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al deleted file mode 100755 index a7332965b92..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 481 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\realloc.al)" -sub realloc { - unimpl "realloc() is C-specific, stopped"; -} - -# end of POSIX::realloc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al b/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al deleted file mode 100755 index 1d6197f7dc3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 85 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\redef.al)" -sub redef { - my ($mess) = @_; - croak "Use method $mess instead"; -} - -# end of POSIX::redef -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al b/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al deleted file mode 100755 index 32665fa8ea8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 366 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" -sub remove { - usage "remove(filename)" if @_ != 1; - (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]); -} - -# end of POSIX::remove -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al deleted file mode 100755 index 6d04ef039a8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 371 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rename.al)" -sub rename { - usage "rename(oldfilename, newfilename)" if @_ != 2; - CORE::rename($_[0], $_[1]); -} - -# end of POSIX::rename -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al deleted file mode 100755 index 0f97af8f961..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 376 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewind.al)" -sub rewind { - usage "rewind(filehandle)" if @_ != 1; - CORE::seek($_[0],0,0); -} - -# end of POSIX::rewind -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al deleted file mode 100755 index 1c960662ea9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 131 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewinddir.al)" -sub rewinddir { - usage "rewinddir(dirhandle)" if @_ != 1; - CORE::rewinddir($_[0]); -} - -# end of POSIX::rewinddir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al deleted file mode 100755 index 54af051f17e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 731 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rmdir.al)" -sub rmdir { - usage "rmdir(directoryname)" if @_ != 1; - CORE::rmdir($_[0]); -} - -# end of POSIX::rmdir -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al deleted file mode 100755 index 7b0784b3831..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 381 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\scanf.al)" -sub scanf { - unimpl "scanf() is C-specific--use <> and regular expressions instead"; -} - -# end of POSIX::scanf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al deleted file mode 100755 index 4b56a02e221..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 736 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setbuf.al)" -sub setbuf { - redef "IO::Handle::setbuf()"; -} - -# end of POSIX::setbuf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al deleted file mode 100755 index 6154bbf8a44..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 215 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setjmp.al)" -sub setjmp { - unimpl "setjmp() is C-specific: use eval {} instead"; -} - -# end of POSIX::setjmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al deleted file mode 100755 index bc45457297a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 740 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setvbuf.al)" -sub setvbuf { - redef "IO::Handle::setvbuf()"; -} - -# end of POSIX::setvbuf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al deleted file mode 100755 index 46abe2bdb96..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 219 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\siglongjmp.al)" -sub siglongjmp { - unimpl "siglongjmp() is C-specific: use die instead"; -} - -# end of POSIX::siglongjmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al deleted file mode 100755 index 3ba63224a31..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 223 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sigsetjmp.al)" -sub sigsetjmp { - unimpl "sigsetjmp() is C-specific: use eval {} instead"; -} - -# end of POSIX::sigsetjmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al deleted file mode 100755 index d9079ba09c4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 191 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sin.al)" -sub sin { - usage "sin(x)" if @_ != 1; - CORE::sin($_[0]); -} - -# end of POSIX::sin -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al deleted file mode 100755 index 05cba00f359..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 744 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sleep.al)" -sub sleep { - usage "sleep(seconds)" if @_ != 1; - $_[0] - CORE::sleep($_[0]); -} - -# end of POSIX::sleep -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al deleted file mode 100755 index e32b6749d0f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 385 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sprintf.al)" -sub sprintf { - usage "sprintf(pattern,args)" if @_ == 0; - CORE::sprintf(shift,@_); -} - -# end of POSIX::sprintf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al deleted file mode 100755 index ea41719f675..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 196 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sqrt.al)" -sub sqrt { - usage "sqrt(x)" if @_ != 1; - CORE::sqrt($_[0]); -} - -# end of POSIX::sqrt -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al b/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al deleted file mode 100755 index 9c8cd65ad95..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 485 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\srand.al)" -sub srand { - unimpl "srand()"; -} - -# end of POSIX::srand -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al deleted file mode 100755 index a9f418536fd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 390 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sscanf.al)" -sub sscanf { - unimpl "sscanf() is C-specific--use regular expressions instead"; -} - -# end of POSIX::sscanf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al deleted file mode 100755 index 23373a26950..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 596 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\stat.al)" -sub stat { - usage "stat(filename)" if @_ != 1; - CORE::stat($_[0]); -} - -# end of POSIX::stat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al deleted file mode 100755 index 112037d7bb9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 514 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcat.al)" -sub strcat { - unimpl "strcat() is C-specific, use .= instead"; -} - -# end of POSIX::strcat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al deleted file mode 100755 index 0e4d59d4d22..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 518 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strchr.al)" -sub strchr { - unimpl "strchr() is C-specific, use index() instead"; -} - -# end of POSIX::strchr -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al deleted file mode 100755 index 026444d1aa0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 522 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcmp.al)" -sub strcmp { - unimpl "strcmp() is C-specific, use eq instead"; -} - -# end of POSIX::strcmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al deleted file mode 100755 index 41895d60428..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 526 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcpy.al)" -sub strcpy { - unimpl "strcpy() is C-specific, use = instead"; -} - -# end of POSIX::strcpy -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al deleted file mode 100755 index e3979bf3673..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 530 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcspn.al)" -sub strcspn { - unimpl "strcspn() is C-specific, use regular expressions instead"; -} - -# end of POSIX::strcspn -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al deleted file mode 100755 index 4364eb48fec..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 534 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strerror.al)" -sub strerror { - usage "strerror(errno)" if @_ != 1; - local $! = $_[0]; - $! . ""; -} - -# end of POSIX::strerror -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al deleted file mode 100755 index 2f9ee7bf0a2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 540 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strlen.al)" -sub strlen { - unimpl "strlen() is C-specific, use length instead"; -} - -# end of POSIX::strlen -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al deleted file mode 100755 index b909bd27c25..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 544 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncat.al)" -sub strncat { - unimpl "strncat() is C-specific, use .= instead"; -} - -# end of POSIX::strncat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al deleted file mode 100755 index dde452e3628..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 548 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncmp.al)" -sub strncmp { - unimpl "strncmp() is C-specific, use eq instead"; -} - -# end of POSIX::strncmp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al deleted file mode 100755 index 6b2d97f8202..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 552 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncpy.al)" -sub strncpy { - unimpl "strncpy() is C-specific, use = instead"; -} - -# end of POSIX::strncpy -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al deleted file mode 100755 index b3a1f91897b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 556 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strpbrk.al)" -sub strpbrk { - unimpl "strpbrk() is C-specific, stopped"; -} - -# end of POSIX::strpbrk -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al deleted file mode 100755 index 8b11901a304..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 560 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strrchr.al)" -sub strrchr { - unimpl "strrchr() is C-specific, use rindex() instead"; -} - -# end of POSIX::strrchr -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al deleted file mode 100755 index 098bf697de1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 564 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strspn.al)" -sub strspn { - unimpl "strspn() is C-specific, stopped"; -} - -# end of POSIX::strspn -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al deleted file mode 100755 index ecc94a24f2c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 568 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strstr.al)" -sub strstr { - usage "strstr(big, little)" if @_ != 2; - CORE::index($_[0], $_[1]); -} - -# end of POSIX::strstr -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al deleted file mode 100755 index f065d58b27c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 573 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strtok.al)" -sub strtok { - unimpl "strtok() is C-specific, stopped"; -} - -# end of POSIX::strtok -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/system.al b/Master/tlpkg/tlperl/lib/auto/POSIX/system.al deleted file mode 100755 index 17d9b552290..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/system.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 489 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\system.al)" -sub system { - usage "system(command)" if @_ != 1; - CORE::system($_[0]); -} - -# end of POSIX::system -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/time.al b/Master/tlpkg/tlperl/lib/auto/POSIX/time.al deleted file mode 100755 index f588c89117f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/time.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 626 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\time.al)" -sub time { - usage "time()" if @_ != 0; - CORE::time; -} - -# end of POSIX::time -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al b/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al deleted file mode 100755 index ebc5850baf8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 394 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tmpfile.al)" -sub tmpfile { - redef "IO::File::new_tmpfile()"; -} - -# end of POSIX::tmpfile -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al b/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al deleted file mode 100755 index 35a40ad5026..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 103 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tolower.al)" -sub tolower { - usage "tolower(string)" if @_ != 1; - lc($_[0]); -} - -# end of POSIX::tolower -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al b/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al deleted file mode 100755 index 47f12bd4932..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 108 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\toupper.al)" -sub toupper { - usage "toupper(string)" if @_ != 1; - uc($_[0]); -} - -# end of POSIX::toupper -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al b/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al deleted file mode 100755 index e1c107c8f44..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 601 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\umask.al)" -sub umask { - usage "umask(mask)" if @_ != 1; - CORE::umask($_[0]); -} - -# end of POSIX::umask -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al deleted file mode 100755 index ea27e327c46..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 398 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ungetc.al)" -sub ungetc { - redef "IO::Handle::ungetc()"; -} - -# end of POSIX::ungetc -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al deleted file mode 100755 index bc48d9b3023..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 90 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unimpl.al)" -sub unimpl { - my ($mess) = @_; - $mess =~ s/xxx//; - croak "Unimplemented: POSIX::$mess"; -} - -# end of POSIX::unimpl -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al b/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al deleted file mode 100755 index 9a9a0b668b6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 749 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unlink.al)" -sub unlink { - usage "unlink(filename)" if @_ != 1; - CORE::unlink($_[0]); -} - -# end of POSIX::unlink -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al b/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al deleted file mode 100755 index 83c0cdf9e8a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 80 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\usage.al)" -sub usage { - my ($mess) = @_; - croak "Usage: POSIX::$mess"; -} - -# end of POSIX::usage -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al deleted file mode 100755 index 07d84838ab3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 754 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\utime.al)" -sub utime { - usage "utime(filename, atime, mtime)" if @_ != 3; - CORE::utime($_[1], $_[2], $_[0]); -} - -# end of POSIX::utime -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al deleted file mode 100755 index 461a48fd006..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 402 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vfprintf.al)" -sub vfprintf { - unimpl "vfprintf() is C-specific"; -} - -# end of POSIX::vfprintf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al deleted file mode 100755 index a0d2bd202fd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 406 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vprintf.al)" -sub vprintf { - unimpl "vprintf() is C-specific"; -} - -# end of POSIX::vprintf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al deleted file mode 100755 index 835cf3de11c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 410 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vsprintf.al)" -sub vsprintf { - unimpl "vsprintf() is C-specific"; -} - -# end of POSIX::vsprintf -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al b/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al deleted file mode 100755 index fb68d776372..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 606 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\wait.al)" -sub wait { - usage "wait()" if @_ != 0; - CORE::wait(); -} - -# end of POSIX::wait -1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al deleted file mode 100755 index a211a453aa0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\..\lib\POSIX.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package POSIX; - -#line 611 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\waitpid.al)" -sub waitpid { - usage "waitpid(pid, options)" if @_ != 2; - CORE::waitpid($_[0], $_[1]); -} - -# end of POSIX::waitpid -1; diff --git a/Master/tlpkg/tlperl/lib/auto/PPM/.packlist b/Master/tlpkg/tlperl/lib/auto/PPM/.packlist deleted file mode 100755 index 9d6668fa195..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PPM/.packlist +++ /dev/null @@ -1,10 +0,0 @@ -C:\strawberry\perl\bin\ppm.bat
-C:\strawberry\perl\bin\ppm.pl
-C:\strawberry\perl\vendor\lib\PPM.pm
-C:\strawberry\perl\vendor\lib\PPM\RelocPerl.pm
-C:\strawberry\perl\vendor\lib\PPM\XML\Element.pm
-C:\strawberry\perl\vendor\lib\PPM\XML\PPD.pm
-C:\strawberry\perl\vendor\lib\PPM\XML\PPMConfig.pm
-C:\strawberry\perl\vendor\lib\PPM\XML\RepositorySummary.pm
-C:\strawberry\perl\vendor\lib\PPM\XML\ValidatingElement.pm
-C:\strawberry\perl\vendor\lib\ppm.xml
diff --git a/Master/tlpkg/tlperl/lib/auto/Params/Util/.packlist b/Master/tlpkg/tlperl/lib/auto/Params/Util/.packlist deleted file mode 100755 index 95f503fbe12..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Params/Util/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Params\Util.pm
-C:\strawberry\perl\vendor\lib\auto\Params\Util\Util.bs
-C:\strawberry\perl\vendor\lib\auto\Params\Util\Util.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Params/Util/Util.bs b/Master/tlpkg/tlperl/lib/auto/Params/Util/Util.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Params/Util/Util.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Params/Util/Util.dll b/Master/tlpkg/tlperl/lib/auto/Params/Util/Util.dll Binary files differdeleted file mode 100755 index f9e1dfefaae..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Params/Util/Util.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Parse/Binary/.packlist b/Master/tlpkg/tlperl/lib/auto/Parse/Binary/.packlist deleted file mode 100755 index 31b6e608c22..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Parse/Binary/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Parse\Binary.pm
-C:\strawberry\perl\vendor\lib\Parse\Binary\FixedFormat.pm
-C:\strawberry\perl\vendor\lib\Parse\Binary\FixedFormat\Variants.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Parse/CPAN/Meta/.packlist b/Master/tlpkg/tlperl/lib/auto/Parse/CPAN/Meta/.packlist deleted file mode 100755 index 7163740efd6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Parse/CPAN/Meta/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Parse\CPAN\Meta.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/PerlIO/encoding/encoding.dll b/Master/tlpkg/tlperl/lib/auto/PerlIO/encoding/encoding.dll Binary files differdeleted file mode 100755 index 5ad744a28ff..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PerlIO/encoding/encoding.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/PerlIO/scalar/scalar.dll b/Master/tlpkg/tlperl/lib/auto/PerlIO/scalar/scalar.dll Binary files differdeleted file mode 100755 index 3281cdcbd7f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PerlIO/scalar/scalar.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/PerlIO/via/via.dll b/Master/tlpkg/tlperl/lib/auto/PerlIO/via/via.dll Binary files differdeleted file mode 100755 index e45fd37929b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/PerlIO/via/via.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Pod/Perldoc/.packlist b/Master/tlpkg/tlperl/lib/auto/Pod/Perldoc/.packlist deleted file mode 100755 index 78a1948d04a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Pod/Perldoc/.packlist +++ /dev/null @@ -1,14 +0,0 @@ -C:\strawberry\perl\bin\perldoc
-C:\strawberry\perl\bin\perldoc.bat
-C:\strawberry\perl\lib\Pod\Perldoc.pm
-C:\strawberry\perl\lib\Pod\Perldoc\BaseTo.pm
-C:\strawberry\perl\lib\Pod\Perldoc\GetOptsOO.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToChecker.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToMan.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToNroff.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToPod.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToRtf.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToText.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToTk.pm
-C:\strawberry\perl\lib\Pod\Perldoc\ToXml.pm
-C:\strawberry\perl\lib\perldoc.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/Pod/Plainer/.packlist b/Master/tlpkg/tlperl/lib/auto/Pod/Plainer/.packlist deleted file mode 100755 index ec34ed7d99f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Pod/Plainer/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Pod\Plainer.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Pod/Simple/.packlist b/Master/tlpkg/tlperl/lib/auto/Pod/Simple/.packlist deleted file mode 100755 index 88e62dfd9fc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Pod/Simple/.packlist +++ /dev/null @@ -1,32 +0,0 @@ -C:\strawberry\perl\lib\Pod\Simple.pm
-C:\strawberry\perl\lib\Pod\Simple.pod
-C:\strawberry\perl\lib\Pod\Simple\BlackBox.pm
-C:\strawberry\perl\lib\Pod\Simple\Checker.pm
-C:\strawberry\perl\lib\Pod\Simple\Debug.pm
-C:\strawberry\perl\lib\Pod\Simple\DumpAsText.pm
-C:\strawberry\perl\lib\Pod\Simple\DumpAsXML.pm
-C:\strawberry\perl\lib\Pod\Simple\HTML.pm
-C:\strawberry\perl\lib\Pod\Simple\HTMLBatch.pm
-C:\strawberry\perl\lib\Pod\Simple\HTMLLegacy.pm
-C:\strawberry\perl\lib\Pod\Simple\LinkSection.pm
-C:\strawberry\perl\lib\Pod\Simple\Methody.pm
-C:\strawberry\perl\lib\Pod\Simple\Progress.pm
-C:\strawberry\perl\lib\Pod\Simple\PullParser.pm
-C:\strawberry\perl\lib\Pod\Simple\PullParserEndToken.pm
-C:\strawberry\perl\lib\Pod\Simple\PullParserStartToken.pm
-C:\strawberry\perl\lib\Pod\Simple\PullParserTextToken.pm
-C:\strawberry\perl\lib\Pod\Simple\PullParserToken.pm
-C:\strawberry\perl\lib\Pod\Simple\RTF.pm
-C:\strawberry\perl\lib\Pod\Simple\Search.pm
-C:\strawberry\perl\lib\Pod\Simple\SimpleTree.pm
-C:\strawberry\perl\lib\Pod\Simple\Subclassing.pod
-C:\strawberry\perl\lib\Pod\Simple\Text.pm
-C:\strawberry\perl\lib\Pod\Simple\TextContent.pm
-C:\strawberry\perl\lib\Pod\Simple\TiedOutFH.pm
-C:\strawberry\perl\lib\Pod\Simple\Transcode.pm
-C:\strawberry\perl\lib\Pod\Simple\TranscodeDumb.pm
-C:\strawberry\perl\lib\Pod\Simple\TranscodeSmart.pm
-C:\strawberry\perl\lib\Pod\Simple\XHTML.pm
-C:\strawberry\perl\lib\Pod\Simple\XMLOutStream.pm
-C:\strawberry\perl\lib\perlpod.pod
-C:\strawberry\perl\lib\perlpodspec.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/Probe/Perl/.packlist b/Master/tlpkg/tlperl/lib/auto/Probe/Perl/.packlist deleted file mode 100755 index 461b0f88164..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Probe/Perl/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Probe\Perl.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/SDBM_File/SDBM_File.dll b/Master/tlpkg/tlperl/lib/auto/SDBM_File/SDBM_File.dll Binary files differdeleted file mode 100755 index 083a5362c89..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/SDBM_File/SDBM_File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Safe/.packlist b/Master/tlpkg/tlperl/lib/auto/Safe/.packlist deleted file mode 100755 index 60280ad5fe1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Safe/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Safe.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Socket/Socket.dll b/Master/tlpkg/tlperl/lib/auto/Socket/Socket.dll Binary files differdeleted file mode 100755 index 359f3dc7f7c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Socket/Socket.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Sort/Versions/.packlist b/Master/tlpkg/tlperl/lib/auto/Sort/Versions/.packlist deleted file mode 100755 index 6adc0f48d25..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Sort/Versions/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Sort\Versions.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/.packlist b/Master/tlpkg/tlperl/lib/auto/Storable/.packlist deleted file mode 100755 index 71cadc6ec1c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/.packlist +++ /dev/null @@ -1,28 +0,0 @@ -C:\strawberry\perl\lib\Storable.pm
-C:\strawberry\perl\lib\auto\Storable\BIN_VERSION_NV.al
-C:\strawberry\perl\lib\auto\Storable\BIN_WRITE_VERSION_NV.al
-C:\strawberry\perl\lib\auto\Storable\CAN_FLOCK.al
-C:\strawberry\perl\lib\auto\Storable\Storable.bs
-C:\strawberry\perl\lib\auto\Storable\Storable.dll
-C:\strawberry\perl\lib\auto\Storable\_freeze.al
-C:\strawberry\perl\lib\auto\Storable\_retrieve.al
-C:\strawberry\perl\lib\auto\Storable\_store.al
-C:\strawberry\perl\lib\auto\Storable\_store_fd.al
-C:\strawberry\perl\lib\auto\Storable\autosplit.ix
-C:\strawberry\perl\lib\auto\Storable\fd_retrieve.al
-C:\strawberry\perl\lib\auto\Storable\file_magic.al
-C:\strawberry\perl\lib\auto\Storable\freeze.al
-C:\strawberry\perl\lib\auto\Storable\lock_nstore.al
-C:\strawberry\perl\lib\auto\Storable\lock_retrieve.al
-C:\strawberry\perl\lib\auto\Storable\lock_store.al
-C:\strawberry\perl\lib\auto\Storable\logcarp.al
-C:\strawberry\perl\lib\auto\Storable\logcroak.al
-C:\strawberry\perl\lib\auto\Storable\nfreeze.al
-C:\strawberry\perl\lib\auto\Storable\nstore.al
-C:\strawberry\perl\lib\auto\Storable\nstore_fd.al
-C:\strawberry\perl\lib\auto\Storable\read_magic.al
-C:\strawberry\perl\lib\auto\Storable\retrieve.al
-C:\strawberry\perl\lib\auto\Storable\show_file_magic.al
-C:\strawberry\perl\lib\auto\Storable\store.al
-C:\strawberry\perl\lib\auto\Storable\store_fd.al
-C:\strawberry\perl\lib\auto\Storable\thaw.al
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al deleted file mode 100755 index bd620b054d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 192 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\BIN_VERSION_NV.al)" -sub BIN_VERSION_NV { - sprintf "%d.%03d", BIN_MAJOR(), BIN_MINOR(); -} - -# end of Storable::BIN_VERSION_NV -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al deleted file mode 100755 index 8a20f970983..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 196 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\BIN_WRITE_VERSION_NV.al)" -sub BIN_WRITE_VERSION_NV { - sprintf "%d.%03d", BIN_MAJOR(), BIN_WRITE_MINOR(); -} - -# end of Storable::BIN_WRITE_VERSION_NV -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al b/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al deleted file mode 100755 index de43b1a3c89..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 83 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\CAN_FLOCK.al)" -# -# Determine whether locking is possible, but only when needed. -# - -sub CAN_FLOCK; my $CAN_FLOCK; sub CAN_FLOCK { - return $CAN_FLOCK if defined $CAN_FLOCK; - require Config; import Config; - return $CAN_FLOCK = - $Config{'d_flock'} || - $Config{'d_fcntl_can_lock'} || - $Config{'d_lockf'}; -} - -# end of Storable::CAN_FLOCK -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.bs b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll Binary files differdeleted file mode 100755 index 75306d3f82f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al deleted file mode 100755 index 87918bd5b11..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 330 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\_freeze.al)" -# Internal freeze routine -sub _freeze { - my $xsptr = shift; - my $self = shift; - logcroak "not a reference" unless ref($self); - logcroak "too many arguments" unless @_ == 0; # No @foo in arglist - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine mstore or net_mstore, depending on network order - eval { $ret = &$xsptr($self) }; - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_freeze -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al deleted file mode 100755 index 5a798322ea8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 364 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\_retrieve.al)" -# Internal retrieve routine -sub _retrieve { - my ($file, $use_locking) = @_; - local *FILE; - open(FILE, $file) || logcroak "can't open $file: $!"; - binmode FILE; # Archaic systems... - my $self; - my $da = $@; # Could be from exception handler - if ($use_locking) { - unless (&CAN_FLOCK) { - logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; - return undef; - } - flock(FILE, LOCK_SH) || logcroak "can't get shared lock on $file: $!"; - # Unlocking will happen when FILE is closed - } - eval { $self = pretrieve(*FILE) }; # Call C routine - close(FILE); - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $self; -} - -# end of Storable::_retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/_store.al deleted file mode 100755 index 9eade5dfe86..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_store.al +++ /dev/null @@ -1,41 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 239 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\_store.al)" -# Internal store to file routine -sub _store { - my $xsptr = shift; - my $self = shift; - my ($file, $use_locking) = @_; - logcroak "not a reference" unless ref($self); - logcroak "wrong argument number" unless @_ == 2; # No @foo in arglist - local *FILE; - if ($use_locking) { - open(FILE, ">>$file") || logcroak "can't write into $file: $!"; - unless (&CAN_FLOCK) { - logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; - return undef; - } - flock(FILE, LOCK_EX) || - logcroak "can't get exclusive lock on $file: $!"; - truncate FILE, 0; - # Unlocking will happen when FILE is closed - } else { - open(FILE, ">$file") || logcroak "can't create $file: $!"; - } - binmode FILE; # Archaic systems... - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine nstore or pstore, depending on network order - eval { $ret = &$xsptr(*FILE, $self) }; - close(FILE) or $ret = undef; - unlink($file) or warn "Can't unlink $file: $!\n" if $@ || !defined $ret; - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_store -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al deleted file mode 100755 index ce3def2cfc8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 292 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\_store_fd.al)" -# Internal store routine on opened file descriptor -sub _store_fd { - my $xsptr = shift; - my $self = shift; - my ($file) = @_; - logcroak "not a reference" unless ref($self); - logcroak "too many arguments" unless @_ == 1; # No @foo in arglist - my $fd = fileno($file); - logcroak "not a valid file descriptor" unless defined $fd; - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine nstore or pstore, depending on network order - eval { $ret = &$xsptr($file, $self) }; - logcroak $@ if $@ =~ s/\.?\n$/,/; - local $\; print $file ''; # Autoflush the file if wanted - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_store_fd -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix deleted file mode 100755 index 04fcedf21c0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix +++ /dev/null @@ -1,28 +0,0 @@ -# Index created by AutoSplit for blib\lib\Storable.pm -# (file acts as timestamp) -package Storable; -sub logcroak ; -sub logcarp ; -sub CAN_FLOCK ; -sub show_file_magic ; -sub file_magic ; -sub read_magic ; -sub BIN_VERSION_NV ; -sub BIN_WRITE_VERSION_NV ; -sub store ; -sub nstore ; -sub lock_store ; -sub lock_nstore ; -sub _store ; -sub store_fd ; -sub nstore_fd ; -sub _store_fd ; -sub freeze ; -sub nfreeze ; -sub _freeze ; -sub retrieve ; -sub lock_retrieve ; -sub _retrieve ; -sub fd_retrieve ; -sub thaw ; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al deleted file mode 100755 index 93f9f18a835..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al +++ /dev/null @@ -1,25 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 387 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\fd_retrieve.al)" -# -# fd_retrieve -# -# Same as retrieve, but perform from an already opened file descriptor instead. -# -sub fd_retrieve { - my ($file) = @_; - my $fd = fileno($file); - logcroak "not a valid file descriptor" unless defined $fd; - my $self; - my $da = $@; # Could be from exception handler - eval { $self = pretrieve($file) }; # Call C routine - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $self; -} - -# end of Storable::fd_retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al deleted file mode 100755 index 532ab40ba60..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 118 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\file_magic.al)" -sub file_magic { - my $file = shift; - my $fh = new FileHandle; - open($fh, "<". $file) || die "Can't open '$file': $!"; - binmode($fh); - defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!"; - close($fh); - - $file = "./$file" unless $file; # ensure TRUE value - - return read_magic($buf, $file); -} - -# end of Storable::file_magic -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al deleted file mode 100755 index cb95bf29970..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 311 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\freeze.al)" -# -# freeze -# -# Store oject and its hierarchy in memory and return a scalar -# containing the result. -# -sub freeze { - _freeze(\&mstore, @_); -} - -# end of Storable::freeze -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al deleted file mode 100755 index acd4cde5650..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 230 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\lock_nstore.al)" -# -# lock_nstore -# -# Same as nstore, but flock the file first (advisory locking). -# -sub lock_nstore { - return _store(\&net_pstore, @_, 1); -} - -# end of Storable::lock_nstore -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al deleted file mode 100755 index 41290bcd00d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 355 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\lock_retrieve.al)" -# -# lock_retrieve -# -# Same as retrieve, but with advisory locking. -# -sub lock_retrieve { - _retrieve($_[0], 1); -} - -# end of Storable::lock_retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al deleted file mode 100755 index 1c94e960fab..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 221 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\lock_store.al)" -# -# lock_store -# -# Same as store, but flock the file first (advisory locking). -# -sub lock_store { - return _store(\&pstore, @_, 1); -} - -# end of Storable::lock_store -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al b/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al deleted file mode 100755 index 58642b8ba1f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 79 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\logcarp.al)" -sub logcarp { - Carp::carp(@_); -} - -# end of Storable::logcarp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al b/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al deleted file mode 100755 index fd37cfe86e0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 70 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\logcroak.al)" -# -# Use of Log::Agent is optional. If it hasn't imported these subs then -# Autoloader will kindly supply our fallback implementation. -# - -sub logcroak { - Carp::croak(@_); -} - -# end of Storable::logcroak -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al deleted file mode 100755 index c79d3cf3c3d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 321 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\nfreeze.al)" -# -# nfreeze -# -# Same as freeze but in network order. -# -sub nfreeze { - _freeze(\&net_mstore, @_); -} - -# end of Storable::nfreeze -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al b/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al deleted file mode 100755 index 395635f5e2b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 212 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\nstore.al)" -# -# nstore -# -# Same as store, but in network order. -# -sub nstore { - return _store(\&net_pstore, @_, 0); -} - -# end of Storable::nstore -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al deleted file mode 100755 index bf359c31991..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 282 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\nstore_fd.al)" -# -# nstore_fd -# -# Same as store_fd, but in network order. -# -sub nstore_fd { - my ($self, $file) = @_; - return _store_fd(\&net_pstore, @_); -} - -# end of Storable::nstore_fd -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al deleted file mode 100755 index f98dbb156c7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al +++ /dev/null @@ -1,69 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 131 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\read_magic.al)" -sub read_magic { - my($buf, $file) = @_; - my %info; - - my $buflen = length($buf); - my $magic; - if ($buf =~ s/^(pst0|perl-store)//) { - $magic = $1; - $info{file} = $file || 1; - } - else { - return undef if $file; - $magic = ""; - } - - return undef unless length($buf); - - my $net_order; - if ($magic eq "perl-store" && ord(substr($buf, 0, 1)) > 1) { - $info{version} = -1; - $net_order = 0; - } - else { - $net_order = ord(substr($buf, 0, 1, "")); - my $major = $net_order >> 1; - return undef if $major > 4; # sanity (assuming we never go that high) - $info{major} = $major; - $net_order &= 0x01; - if ($major > 1) { - return undef unless length($buf); - my $minor = ord(substr($buf, 0, 1, "")); - $info{minor} = $minor; - $info{version} = "$major.$minor"; - $info{version_nv} = sprintf "%d.%03d", $major, $minor; - } - else { - $info{version} = $major; - } - } - $info{version_nv} ||= $info{version}; - $info{netorder} = $net_order; - - unless ($net_order) { - return undef unless length($buf); - my $len = ord(substr($buf, 0, 1, "")); - return undef unless length($buf) >= $len; - return undef unless $len == 4 || $len == 8; # sanity - $info{byteorder} = substr($buf, 0, $len, ""); - $info{intsize} = ord(substr($buf, 0, 1, "")); - $info{longsize} = ord(substr($buf, 0, 1, "")); - $info{ptrsize} = ord(substr($buf, 0, 1, "")); - if ($info{version_nv} >= 2.002) { - return undef unless length($buf); - $info{nvsize} = ord(substr($buf, 0, 1, "")); - } - } - $info{hdrsize} = $buflen - length($buf); - - return \%info; -} - -# end of Storable::read_magic -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al deleted file mode 100755 index 284565257d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 345 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\retrieve.al)" -# -# retrieve -# -# Retrieve object hierarchy from disk, returning a reference to the root -# object of that tree. -# -sub retrieve { - _retrieve($_[0], 0); -} - -# end of Storable::retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al deleted file mode 100755 index 2f7abe325c0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al +++ /dev/null @@ -1,30 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 96 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\show_file_magic.al)" -sub show_file_magic { - print <<EOM; -# -# To recognize the data files of the Perl module Storable, -# the following lines need to be added to the local magic(5) file, -# usually either /usr/share/misc/magic or /etc/magic. -# -0 string perl-store perl Storable(v0.6) data ->4 byte >0 (net-order %d) ->>4 byte &01 (network-ordered) ->>4 byte =3 (major 1) ->>4 byte =2 (major 1) - -0 string pst0 perl Storable(v0.7) data ->4 byte >0 ->>4 byte &01 (network-ordered) ->>4 byte =5 (major 2) ->>4 byte =4 (major 2) ->>5 byte >0 (minor %d) -EOM -} - -# end of Storable::show_file_magic -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store.al b/Master/tlpkg/tlperl/lib/auto/Storable/store.al deleted file mode 100755 index 48ed4b12ac3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/store.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 200 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\store.al)" -# -# store -# -# Store target object hierarchy, identified by a reference to its root. -# The stored object tree may later be retrieved to memory via retrieve. -# Returns undef if an I/O error occurred, in which case the file is -# removed. -# -sub store { - return _store(\&pstore, @_, 0); -} - -# end of Storable::store -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al deleted file mode 100755 index 01a5ba2aaeb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 272 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\store_fd.al)" -# -# store_fd -# -# Same as store, but perform on an already opened file descriptor instead. -# Returns undef if an I/O error occurred. -# -sub store_fd { - return _store_fd(\&pstore, @_); -} - -# end of Storable::store_fd -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al b/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al deleted file mode 100755 index 5349dfcc054..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 404 "blib\lib\Storable.pm (autosplit into blib\lib\auto\Storable\thaw.al)" -# -# thaw -# -# Recreate objects in memory from an existing frozen image created -# by freeze. If the frozen image passed is undef, return undef. -# -sub thaw { - my ($frozen) = @_; - return undef unless defined $frozen; - my $self; - my $da = $@; # Could be from exception handler - eval { $self = mretrieve($frozen) }; # Call C routine - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $self; -} - -1; -__END__ - -1; -# end of Storable::thaw diff --git a/Master/tlpkg/tlperl/lib/auto/String/CRC32/.packlist b/Master/tlpkg/tlperl/lib/auto/String/CRC32/.packlist deleted file mode 100755 index ef8c86498b0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/String/CRC32/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\String\CRC32.pm
-C:\strawberry\perl\vendor\lib\String\CRC32.pod
-C:\strawberry\perl\vendor\lib\auto\String\CRC32\CRC32.bs
-C:\strawberry\perl\vendor\lib\auto\String\CRC32\CRC32.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/String/CRC32/CRC32.bs b/Master/tlpkg/tlperl/lib/auto/String/CRC32/CRC32.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/String/CRC32/CRC32.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/String/CRC32/CRC32.dll b/Master/tlpkg/tlperl/lib/auto/String/CRC32/CRC32.dll Binary files differdeleted file mode 100755 index 1848288d9e3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/String/CRC32/CRC32.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Sub/Uplevel/.packlist b/Master/tlpkg/tlperl/lib/auto/Sub/Uplevel/.packlist deleted file mode 100755 index f3d2f75ec82..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Sub/Uplevel/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Sub\Uplevel.pm
-C:\strawberry\perl\vendor\lib\Sub\Uplevel.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/Switch/.packlist b/Master/tlpkg/tlperl/lib/auto/Switch/.packlist deleted file mode 100755 index 069e96659eb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Switch/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Switch.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/Hostname.dll b/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/Hostname.dll Binary files differdeleted file mode 100755 index 948ff2f4302..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/Hostname.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/autosplit.ix deleted file mode 100755 index f7014ea8d84..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Sys/Hostname/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\..\lib\Sys\Hostname.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Term/ANSIColor/.packlist b/Master/tlpkg/tlperl/lib/auto/Term/ANSIColor/.packlist deleted file mode 100755 index 47117b5ad4e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Term/ANSIColor/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Term\ANSIColor.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/ReadKey.bs b/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/ReadKey.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/ReadKey.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/ReadKey.dll b/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/ReadKey.dll Binary files differdeleted file mode 100755 index 64edbb46e18..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/ReadKey.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/autosplit.ix deleted file mode 100755 index 0d578a2f538..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Term/ReadKey/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Term/ReadKey.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Deep/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Deep/.packlist deleted file mode 100755 index 3771ae41e2a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Deep/.packlist +++ /dev/null @@ -1,42 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\Deep.pm
-C:\strawberry\perl\vendor\lib\Test\Deep.pod
-C:\strawberry\perl\vendor\lib\Test\Deep\All.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Any.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Array.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ArrayEach.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ArrayElementsOnly.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ArrayLength.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ArrayLengthOnly.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Blessed.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Boolean.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Cache.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Cache\Simple.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Class.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Cmp.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Code.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Hash.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\HashEach.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\HashElements.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\HashKeys.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\HashKeysOnly.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Ignore.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Isa.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ListMethods.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\MM.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Methods.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\NoTest.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Number.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Ref.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\RefType.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Regexp.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\RegexpMatches.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\RegexpOnly.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\RegexpRef.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\RegexpRefOnly.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\RegexpVersion.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ScalarRef.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\ScalarRefOnly.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Set.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Shallow.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\Stack.pm
-C:\strawberry\perl\vendor\lib\Test\Deep\String.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Exception/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Exception/.packlist deleted file mode 100755 index a0e803a6fac..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Exception/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\Exception.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Harness/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Harness/.packlist deleted file mode 100755 index b51d6118dd9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Harness/.packlist +++ /dev/null @@ -1,52 +0,0 @@ -C:\strawberry\perl\bin\prove
-C:\strawberry\perl\bin\prove.bat
-C:\strawberry\perl\lib\App\Prove.pm
-C:\strawberry\perl\lib\App\Prove\State.pm
-C:\strawberry\perl\lib\App\Prove\State\Result.pm
-C:\strawberry\perl\lib\App\Prove\State\Result\Test.pm
-C:\strawberry\perl\lib\TAP\Base.pm
-C:\strawberry\perl\lib\TAP\Formatter\Base.pm
-C:\strawberry\perl\lib\TAP\Formatter\Color.pm
-C:\strawberry\perl\lib\TAP\Formatter\Console.pm
-C:\strawberry\perl\lib\TAP\Formatter\Console\ParallelSession.pm
-C:\strawberry\perl\lib\TAP\Formatter\Console\Session.pm
-C:\strawberry\perl\lib\TAP\Formatter\File.pm
-C:\strawberry\perl\lib\TAP\Formatter\File\Session.pm
-C:\strawberry\perl\lib\TAP\Formatter\Session.pm
-C:\strawberry\perl\lib\TAP\Harness.pm
-C:\strawberry\perl\lib\TAP\Harness\Beyond.pod
-C:\strawberry\perl\lib\TAP\Object.pm
-C:\strawberry\perl\lib\TAP\Parser.pm
-C:\strawberry\perl\lib\TAP\Parser\Aggregator.pm
-C:\strawberry\perl\lib\TAP\Parser\Grammar.pm
-C:\strawberry\perl\lib\TAP\Parser\Iterator.pm
-C:\strawberry\perl\lib\TAP\Parser\IteratorFactory.pm
-C:\strawberry\perl\lib\TAP\Parser\Iterator\Array.pm
-C:\strawberry\perl\lib\TAP\Parser\Iterator\Process.pm
-C:\strawberry\perl\lib\TAP\Parser\Iterator\Stream.pm
-C:\strawberry\perl\lib\TAP\Parser\Multiplexer.pm
-C:\strawberry\perl\lib\TAP\Parser\Result.pm
-C:\strawberry\perl\lib\TAP\Parser\ResultFactory.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Bailout.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Comment.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Plan.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Pragma.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Test.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Unknown.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\Version.pm
-C:\strawberry\perl\lib\TAP\Parser\Result\YAML.pm
-C:\strawberry\perl\lib\TAP\Parser\Scheduler.pm
-C:\strawberry\perl\lib\TAP\Parser\Scheduler\Job.pm
-C:\strawberry\perl\lib\TAP\Parser\Scheduler\Spinner.pm
-C:\strawberry\perl\lib\TAP\Parser\Source.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler\Executable.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler\File.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler\Handle.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler\Perl.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler\RawTAP.pm
-C:\strawberry\perl\lib\TAP\Parser\SourceHandler\pgTAP.pm
-C:\strawberry\perl\lib\TAP\Parser\Utils.pm
-C:\strawberry\perl\lib\TAP\Parser\YAMLish\Reader.pm
-C:\strawberry\perl\lib\TAP\Parser\YAMLish\Writer.pm
-C:\strawberry\perl\lib\Test\Harness.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Manifest/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Manifest/.packlist deleted file mode 100755 index 7812656ee1a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Manifest/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\Manifest.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/NoWarnings/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/NoWarnings/.packlist deleted file mode 100755 index 6235fd4f35a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/NoWarnings/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\NoWarnings.pm
-C:\strawberry\perl\vendor\lib\Test\NoWarnings\Warning.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Script/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Script/.packlist deleted file mode 100755 index 140e977675e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Script/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\Script.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Simple/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Simple/.packlist deleted file mode 100755 index b0c56b22f03..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Simple/.packlist +++ /dev/null @@ -1,8 +0,0 @@ -C:\strawberry\perl\lib\Test\Builder.pm
-C:\strawberry\perl\lib\Test\Builder\IO\Scalar.pm
-C:\strawberry\perl\lib\Test\Builder\Module.pm
-C:\strawberry\perl\lib\Test\Builder\Tester.pm
-C:\strawberry\perl\lib\Test\Builder\Tester\Color.pm
-C:\strawberry\perl\lib\Test\More.pm
-C:\strawberry\perl\lib\Test\Simple.pm
-C:\strawberry\perl\lib\Test\Tutorial.pod
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Tester/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Tester/.packlist deleted file mode 100755 index 6e0646f2efb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Tester/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\Tester.pm
-C:\strawberry\perl\vendor\lib\Test\Tester\Capture.pm
-C:\strawberry\perl\vendor\lib\Test\Tester\CaptureRunner.pm
-C:\strawberry\perl\vendor\lib\Test\Tester\Delegate.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Test/Warn/.packlist b/Master/tlpkg/tlperl/lib/auto/Test/Warn/.packlist deleted file mode 100755 index 6377aa01db4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Test/Warn/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\Warn.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Text/Balanced/.packlist b/Master/tlpkg/tlperl/lib/auto/Text/Balanced/.packlist deleted file mode 100755 index 1ca3f88d769..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Text/Balanced/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\Text\Balanced.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Text/Diff/.packlist b/Master/tlpkg/tlperl/lib/auto/Text/Diff/.packlist deleted file mode 100755 index abb4b3a7fdc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Text/Diff/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Text\Diff.pm
-C:\strawberry\perl\vendor\lib\Text\Diff\Table.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Text/Glob/.packlist b/Master/tlpkg/tlperl/lib/auto/Text/Glob/.packlist deleted file mode 100755 index a6ffb2200de..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Text/Glob/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Text\Glob.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Text/Soundex/Soundex.dll b/Master/tlpkg/tlperl/lib/auto/Text/Soundex/Soundex.dll Binary files differdeleted file mode 100755 index b2f84236216..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Text/Soundex/Soundex.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tie/EncryptedHash/.packlist b/Master/tlpkg/tlperl/lib/auto/Tie/EncryptedHash/.packlist deleted file mode 100755 index f706ebf120c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tie/EncryptedHash/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Tie\EncryptedHash.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Time/HiRes/HiRes.dll b/Master/tlpkg/tlperl/lib/auto/Time/HiRes/HiRes.dll Binary files differdeleted file mode 100755 index c83b3eb2fd9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Time/HiRes/HiRes.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Time/Piece/.packlist b/Master/tlpkg/tlperl/lib/auto/Time/Piece/.packlist deleted file mode 100755 index ab048cc2a2a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Time/Piece/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\lib\Time\Piece.pm
-C:\strawberry\perl\lib\Time\Seconds.pm
-C:\strawberry\perl\lib\auto\Time\Piece\Piece.bs
-C:\strawberry\perl\lib\auto\Time\Piece\Piece.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.bs b/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.dll b/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.dll Binary files differdeleted file mode 100755 index ea2b2c1dfb6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Time/Piece/Piece.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/.packlist b/Master/tlpkg/tlperl/lib/auto/Tk/.packlist deleted file mode 100755 index 135d7140fde..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/.packlist +++ /dev/null @@ -1,664 +0,0 @@ -C:\strawberry\perl\bin\gedi
-C:\strawberry\perl\bin\gedi.bat
-C:\strawberry\perl\bin\ptked
-C:\strawberry\perl\bin\ptked.bat
-C:\strawberry\perl\bin\ptksh
-C:\strawberry\perl\bin\ptksh.bat
-C:\strawberry\perl\bin\tkjpeg
-C:\strawberry\perl\bin\tkjpeg.bat
-C:\strawberry\perl\bin\widget
-C:\strawberry\perl\bin\widget.bat
-C:\strawberry\perl\site\lib\Tie\Watch.pm
-C:\strawberry\perl\site\lib\Tk.pm
-C:\strawberry\perl\site\lib\Tk.pod
-C:\strawberry\perl\site\lib\Tk\804delta.pod
-C:\strawberry\perl\site\lib\Tk\Adjuster.pm
-C:\strawberry\perl\site\lib\Tk\Adjuster.pod
-C:\strawberry\perl\site\lib\Tk\After.pm
-C:\strawberry\perl\site\lib\Tk\Animation.pm
-C:\strawberry\perl\site\lib\Tk\Animation.pod
-C:\strawberry\perl\site\lib\Tk\Balloon.pm
-C:\strawberry\perl\site\lib\Tk\Balloon.pod
-C:\strawberry\perl\site\lib\Tk\Bitmap.pm
-C:\strawberry\perl\site\lib\Tk\Bitmap.pod
-C:\strawberry\perl\site\lib\Tk\BrowseEntry.pm
-C:\strawberry\perl\site\lib\Tk\BrowseEntry.pod
-C:\strawberry\perl\site\lib\Tk\Button.pm
-C:\strawberry\perl\site\lib\Tk\Button.pod
-C:\strawberry\perl\site\lib\Tk\Camel.xpm
-C:\strawberry\perl\site\lib\Tk\Canvas.pm
-C:\strawberry\perl\site\lib\Tk\Canvas.pod
-C:\strawberry\perl\site\lib\Tk\Checkbutton.pm
-C:\strawberry\perl\site\lib\Tk\Checkbutton.pod
-C:\strawberry\perl\site\lib\Tk\Clipboard.pm
-C:\strawberry\perl\site\lib\Tk\Clipboard.pod
-C:\strawberry\perl\site\lib\Tk\CmdLine.pm
-C:\strawberry\perl\site\lib\Tk\CmdLine.pod
-C:\strawberry\perl\site\lib\Tk\ColorEdit.xpm
-C:\strawberry\perl\site\lib\Tk\ColorEditor.pm
-C:\strawberry\perl\site\lib\Tk\ColorEditor.pod
-C:\strawberry\perl\site\lib\Tk\Common.pod
-C:\strawberry\perl\site\lib\Tk\Compound.pm
-C:\strawberry\perl\site\lib\Tk\Compound.pod
-C:\strawberry\perl\site\lib\Tk\Config.pm
-C:\strawberry\perl\site\lib\Tk\ConfigSpecs.pod
-C:\strawberry\perl\site\lib\Tk\Configure.pm
-C:\strawberry\perl\site\lib\Tk\Credits
-C:\strawberry\perl\site\lib\Tk\DItem.pod
-C:\strawberry\perl\site\lib\Tk\Derived.pm
-C:\strawberry\perl\site\lib\Tk\Derived.pod
-C:\strawberry\perl\site\lib\Tk\Dialog.pm
-C:\strawberry\perl\site\lib\Tk\Dialog.pod
-C:\strawberry\perl\site\lib\Tk\DialogBox.pm
-C:\strawberry\perl\site\lib\Tk\DialogBox.pod
-C:\strawberry\perl\site\lib\Tk\DirTree.pm
-C:\strawberry\perl\site\lib\Tk\DirTree.pod
-C:\strawberry\perl\site\lib\Tk\Dirlist.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\Common.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\LocalDrop.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\Rect.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\SunConst.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\SunDrop.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\SunSite.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\Win32Drop.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\Win32Site.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\XDNDDrop.pm
-C:\strawberry\perl\site\lib\Tk\DragDrop\XDNDSite.pm
-C:\strawberry\perl\site\lib\Tk\DropSite.pm
-C:\strawberry\perl\site\lib\Tk\DropSite.pod
-C:\strawberry\perl\site\lib\Tk\DummyEncode.pm
-C:\strawberry\perl\site\lib\Tk\English.pm
-C:\strawberry\perl\site\lib\Tk\Entry.pm
-C:\strawberry\perl\site\lib\Tk\Entry.pod
-C:\strawberry\perl\site\lib\Tk\Error.pod
-C:\strawberry\perl\site\lib\Tk\ErrorDialog.pm
-C:\strawberry\perl\site\lib\Tk\Event.pm
-C:\strawberry\perl\site\lib\Tk\Event\IO.pm
-C:\strawberry\perl\site\lib\Tk\Eventloop.pod
-C:\strawberry\perl\site\lib\Tk\FBox.pm
-C:\strawberry\perl\site\lib\Tk\FBox.pod
-C:\strawberry\perl\site\lib\Tk\FileSelect.pm
-C:\strawberry\perl\site\lib\Tk\FileSelect.pod
-C:\strawberry\perl\site\lib\Tk\FloatEntry.pm
-C:\strawberry\perl\site\lib\Tk\Font.pm
-C:\strawberry\perl\site\lib\Tk\Font.pod
-C:\strawberry\perl\site\lib\Tk\Frame.pm
-C:\strawberry\perl\site\lib\Tk\Frame.pod
-C:\strawberry\perl\site\lib\Tk\HList.pm
-C:\strawberry\perl\site\lib\Tk\HList.pod
-C:\strawberry\perl\site\lib\Tk\IO.pm
-C:\strawberry\perl\site\lib\Tk\IO.pod
-C:\strawberry\perl\site\lib\Tk\IconList.pm
-C:\strawberry\perl\site\lib\Tk\IconList.pod
-C:\strawberry\perl\site\lib\Tk\Image.pm
-C:\strawberry\perl\site\lib\Tk\Image.pod
-C:\strawberry\perl\site\lib\Tk\InputO.pod
-C:\strawberry\perl\site\lib\Tk\Internals.pod
-C:\strawberry\perl\site\lib\Tk\ItemStyle.pm
-C:\strawberry\perl\site\lib\Tk\JPEG.pm
-C:\strawberry\perl\site\lib\Tk\LabEntry.pm
-C:\strawberry\perl\site\lib\Tk\LabFrame.pm
-C:\strawberry\perl\site\lib\Tk\LabFrame.pod
-C:\strawberry\perl\site\lib\Tk\LabRadio.pm
-C:\strawberry\perl\site\lib\Tk\Label.pm
-C:\strawberry\perl\site\lib\Tk\Label.pod
-C:\strawberry\perl\site\lib\Tk\Labelframe.pm
-C:\strawberry\perl\site\lib\Tk\Labelframe.pod
-C:\strawberry\perl\site\lib\Tk\Listbox.pm
-C:\strawberry\perl\site\lib\Tk\Listbox.pod
-C:\strawberry\perl\site\lib\Tk\MMtry.pm
-C:\strawberry\perl\site\lib\Tk\MMutil.pm
-C:\strawberry\perl\site\lib\Tk\MainWindow.pm
-C:\strawberry\perl\site\lib\Tk\MainWindow.pod
-C:\strawberry\perl\site\lib\Tk\MakeDepend.pm
-C:\strawberry\perl\site\lib\Tk\Menu.pm
-C:\strawberry\perl\site\lib\Tk\Menu.pod
-C:\strawberry\perl\site\lib\Tk\Menu\Item.pm
-C:\strawberry\perl\site\lib\Tk\Menu\Item.pod
-C:\strawberry\perl\site\lib\Tk\Menubar.pm
-C:\strawberry\perl\site\lib\Tk\Menubutton.pm
-C:\strawberry\perl\site\lib\Tk\Menubutton.pod
-C:\strawberry\perl\site\lib\Tk\Message.pm
-C:\strawberry\perl\site\lib\Tk\Message.pod
-C:\strawberry\perl\site\lib\Tk\MsgBox.pm
-C:\strawberry\perl\site\lib\Tk\MsgBox.pod
-C:\strawberry\perl\site\lib\Tk\Mwm.pod
-C:\strawberry\perl\site\lib\Tk\NBFrame.pm
-C:\strawberry\perl\site\lib\Tk\NoteBook.pm
-C:\strawberry\perl\site\lib\Tk\NoteBook.pod
-C:\strawberry\perl\site\lib\Tk\Optionmenu.pm
-C:\strawberry\perl\site\lib\Tk\Optionmenu.pod
-C:\strawberry\perl\site\lib\Tk\PNG.pm
-C:\strawberry\perl\site\lib\Tk\Pane.pm
-C:\strawberry\perl\site\lib\Tk\Panedwindow.pm
-C:\strawberry\perl\site\lib\Tk\Panedwindow.pod
-C:\strawberry\perl\site\lib\Tk\Photo.pm
-C:\strawberry\perl\site\lib\Tk\Photo.pod
-C:\strawberry\perl\site\lib\Tk\Pixmap.pm
-C:\strawberry\perl\site\lib\Tk\Pixmap.pod
-C:\strawberry\perl\site\lib\Tk\Popup.pod
-C:\strawberry\perl\site\lib\Tk\Pretty.pm
-C:\strawberry\perl\site\lib\Tk\ProgressBar.pm
-C:\strawberry\perl\site\lib\Tk\README.Adjust
-C:\strawberry\perl\site\lib\Tk\ROText.pm
-C:\strawberry\perl\site\lib\Tk\ROText.pod
-C:\strawberry\perl\site\lib\Tk\Radiobutton.pm
-C:\strawberry\perl\site\lib\Tk\Radiobutton.pod
-C:\strawberry\perl\site\lib\Tk\Region.pm
-C:\strawberry\perl\site\lib\Tk\Reindex.pm
-C:\strawberry\perl\site\lib\Tk\ReindexedROText.pm
-C:\strawberry\perl\site\lib\Tk\ReindexedText.pm
-C:\strawberry\perl\site\lib\Tk\Scale.pm
-C:\strawberry\perl\site\lib\Tk\Scale.pod
-C:\strawberry\perl\site\lib\Tk\Scrollbar.pm
-C:\strawberry\perl\site\lib\Tk\Scrollbar.pod
-C:\strawberry\perl\site\lib\Tk\Scrolled.pod
-C:\strawberry\perl\site\lib\Tk\Spinbox.pm
-C:\strawberry\perl\site\lib\Tk\Spinbox.pod
-C:\strawberry\perl\site\lib\Tk\Stats.pm
-C:\strawberry\perl\site\lib\Tk\Submethods.pm
-C:\strawberry\perl\site\lib\Tk\Submethods.pod
-C:\strawberry\perl\site\lib\Tk\SunConst.pod
-C:\strawberry\perl\site\lib\Tk\TList.pm
-C:\strawberry\perl\site\lib\Tk\TList.pod
-C:\strawberry\perl\site\lib\Tk\Table.pm
-C:\strawberry\perl\site\lib\Tk\Table.pod
-C:\strawberry\perl\site\lib\Tk\Tcl-perl.pod
-C:\strawberry\perl\site\lib\Tk\Text.pm
-C:\strawberry\perl\site\lib\Tk\Text.pod
-C:\strawberry\perl\site\lib\Tk\TextEdit.pm
-C:\strawberry\perl\site\lib\Tk\TextList.pm
-C:\strawberry\perl\site\lib\Tk\TextUndo.pm
-C:\strawberry\perl\site\lib\Tk\TextUndo.pod
-C:\strawberry\perl\site\lib\Tk\Text\Tag.pm
-C:\strawberry\perl\site\lib\Tk\Tiler.pm
-C:\strawberry\perl\site\lib\Tk\Tiler.pod
-C:\strawberry\perl\site\lib\Tk\TixGrid.pm
-C:\strawberry\perl\site\lib\Tk\TixGrid.pod
-C:\strawberry\perl\site\lib\Tk\Tk.xbm
-C:\strawberry\perl\site\lib\Tk\Tk.xpm
-C:\strawberry\perl\site\lib\Tk\TkXSUB.def
-C:\strawberry\perl\site\lib\Tk\Toplevel.pm
-C:\strawberry\perl\site\lib\Tk\Toplevel.pod
-C:\strawberry\perl\site\lib\Tk\Trace.pm
-C:\strawberry\perl\site\lib\Tk\Tree.pm
-C:\strawberry\perl\site\lib\Tk\Tree.pod
-C:\strawberry\perl\site\lib\Tk\UserGuide.pod
-C:\strawberry\perl\site\lib\Tk\Widget.pm
-C:\strawberry\perl\site\lib\Tk\Widget.pod
-C:\strawberry\perl\site\lib\Tk\WidgetDemo.pod
-C:\strawberry\perl\site\lib\Tk\Wm.pm
-C:\strawberry\perl\site\lib\Tk\Wm.pod
-C:\strawberry\perl\site\lib\Tk\X.pm
-C:\strawberry\perl\site\lib\Tk\X.pod
-C:\strawberry\perl\site\lib\Tk\X11Font.pm
-C:\strawberry\perl\site\lib\Tk\X11Font.pod
-C:\strawberry\perl\site\lib\Tk\X11\X.h
-C:\strawberry\perl\site\lib\Tk\X11\Xatom.h
-C:\strawberry\perl\site\lib\Tk\X11\Xfuncproto.h
-C:\strawberry\perl\site\lib\Tk\X11\Xlib.h
-C:\strawberry\perl\site\lib\Tk\X11\Xutil.h
-C:\strawberry\perl\site\lib\Tk\X11\cursorfont.h
-C:\strawberry\perl\site\lib\Tk\X11\keysym.h
-C:\strawberry\perl\site\lib\Tk\X11\keysymdef.h
-C:\strawberry\perl\site\lib\Tk\X11\license.terms
-C:\strawberry\perl\site\lib\Tk\Xcamel.gif
-C:\strawberry\perl\site\lib\Tk\Xlib.pm
-C:\strawberry\perl\site\lib\Tk\Xrm.pm
-C:\strawberry\perl\site\lib\Tk\Xrm.pod
-C:\strawberry\perl\site\lib\Tk\act_folder.xbm
-C:\strawberry\perl\site\lib\Tk\act_folder.xpm
-C:\strawberry\perl\site\lib\Tk\after.pod
-C:\strawberry\perl\site\lib\Tk\anim.gif
-C:\strawberry\perl\site\lib\Tk\arrowdownwin.xbm
-C:\strawberry\perl\site\lib\Tk\balArrow.xbm
-C:\strawberry\perl\site\lib\Tk\bind.pod
-C:\strawberry\perl\site\lib\Tk\bindtags.pod
-C:\strawberry\perl\site\lib\Tk\callbacks.pod
-C:\strawberry\perl\site\lib\Tk\cbxarrow.xbm
-C:\strawberry\perl\site\lib\Tk\chooseColor.pod
-C:\strawberry\perl\site\lib\Tk\chooseDirectory.pod
-C:\strawberry\perl\site\lib\Tk\composite.pod
-C:\strawberry\perl\site\lib\Tk\demos\LabEnLabRad.pm
-C:\strawberry\perl\site\lib\Tk\demos\images\QuitPB.xpm
-C:\strawberry\perl\site\lib\Tk\demos\images\QuitPBa.xpm
-C:\strawberry\perl\site\lib\Tk\demos\images\c.icon
-C:\strawberry\perl\site\lib\Tk\demos\images\cursor.cur
-C:\strawberry\perl\site\lib\Tk\demos\images\cursor.mask
-C:\strawberry\perl\site\lib\Tk\demos\images\cursor.xbm
-C:\strawberry\perl\site\lib\Tk\demos\images\dir.icon
-C:\strawberry\perl\site\lib\Tk\demos\images\dir.mask
-C:\strawberry\perl\site\lib\Tk\demos\images\earth.gif
-C:\strawberry\perl\site\lib\Tk\demos\images\earthris.gif
-C:\strawberry\perl\site\lib\Tk\demos\images\face
-C:\strawberry\perl\site\lib\Tk\demos\images\flagdown
-C:\strawberry\perl\site\lib\Tk\demos\images\flagup
-C:\strawberry\perl\site\lib\Tk\demos\images\grey.25
-C:\strawberry\perl\site\lib\Tk\demos\images\grey.5
-C:\strawberry\perl\site\lib\Tk\demos\images\letters
-C:\strawberry\perl\site\lib\Tk\demos\images\mickey.gif
-C:\strawberry\perl\site\lib\Tk\demos\images\ned.xpm
-C:\strawberry\perl\site\lib\Tk\demos\images\noletters
-C:\strawberry\perl\site\lib\Tk\demos\images\page.icon
-C:\strawberry\perl\site\lib\Tk\demos\images\page.mask
-C:\strawberry\perl\site\lib\Tk\demos\images\pattern
-C:\strawberry\perl\site\lib\Tk\demos\images\teapot.ppm
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\Ball.pm
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\HList.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\HList2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\Plot.pm
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\WidgetDemo.pm
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\arrows.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\balloon.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\bind.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\bitmaps.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\bounce.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\browseentry.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\browseentry2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\button.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\check.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\choosedir.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\clrpick.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\colors.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\cscroll.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\ctext.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\dialog1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\dialog2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\dirtree.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\entry1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\entry2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\entry3.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\filebox.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\floor.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\form.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\form_mgr.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\hello.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\hscale.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\icon.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\image1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\image2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\items.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\keysyms.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\labelframe.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\labels.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\labframe.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\mega.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\menbut.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\menus.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\menus2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\msgBox.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\notebook.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\paned1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\paned2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\photo1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\photo2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\plot.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\progress.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\puzzle.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\radio.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\ruler.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\sayings.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\search.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\showVars.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\slide.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\spin.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\states.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\style.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\texts.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\trace1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\trace2.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\transtile.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\twind.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\unicodeout.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\virtevents1.pl
-C:\strawberry\perl\site\lib\Tk\demos\widget_lib\vscale.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\Gedi.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\TEMPLATE.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\Tiler.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\all.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\cursor.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\lib\npuz\Xcamel.npuz
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\npuz.pl
-C:\strawberry\perl\site\lib\Tk\demos\widtrib\plop.pl
-C:\strawberry\perl\site\lib\Tk\event.pod
-C:\strawberry\perl\site\lib\Tk\exit.pod
-C:\strawberry\perl\site\lib\Tk\file.xbm
-C:\strawberry\perl\site\lib\Tk\file.xpm
-C:\strawberry\perl\site\lib\Tk\fileevent.pod
-C:\strawberry\perl\site\lib\Tk\focus.pod
-C:\strawberry\perl\site\lib\Tk\folder.xbm
-C:\strawberry\perl\site\lib\Tk\folder.xpm
-C:\strawberry\perl\site\lib\Tk\form.pod
-C:\strawberry\perl\site\lib\Tk\getOpenFile.pod
-C:\strawberry\perl\site\lib\Tk\grab.pod
-C:\strawberry\perl\site\lib\Tk\grid.pod
-C:\strawberry\perl\site\lib\Tk\icon.gif
-C:\strawberry\perl\site\lib\Tk\install.pm
-C:\strawberry\perl\site\lib\Tk\license.terms
-C:\strawberry\perl\site\lib\Tk\mega.pod
-C:\strawberry\perl\site\lib\Tk\messageBox.pod
-C:\strawberry\perl\site\lib\Tk\openfile.xbm
-C:\strawberry\perl\site\lib\Tk\openfolder.xbm
-C:\strawberry\perl\site\lib\Tk\openfolder.xpm
-C:\strawberry\perl\site\lib\Tk\option.pod
-C:\strawberry\perl\site\lib\Tk\options.pod
-C:\strawberry\perl\site\lib\Tk\overview.pod
-C:\strawberry\perl\site\lib\Tk\pTk.pod
-C:\strawberry\perl\site\lib\Tk\pTk\Lang.h
-C:\strawberry\perl\site\lib\Tk\pTk\Lang.m
-C:\strawberry\perl\site\lib\Tk\pTk\Lang.t
-C:\strawberry\perl\site\lib\Tk\pTk\Lang_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\Tcl-pTk
-C:\strawberry\perl\site\lib\Tk\pTk\Xlib.h
-C:\strawberry\perl\site\lib\Tk\pTk\Xlib.m
-C:\strawberry\perl\site\lib\Tk\pTk\Xlib.t
-C:\strawberry\perl\site\lib\Tk\pTk\Xlib_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\compat\limits.h
-C:\strawberry\perl\site\lib\Tk\pTk\compat\stdlib.h
-C:\strawberry\perl\site\lib\Tk\pTk\compat\unistd.h
-C:\strawberry\perl\site\lib\Tk\pTk\default.h
-C:\strawberry\perl\site\lib\Tk\pTk\img.h
-C:\strawberry\perl\site\lib\Tk\pTk\imgInt.h
-C:\strawberry\perl\site\lib\Tk\pTk\imgInt.m
-C:\strawberry\perl\site\lib\Tk\pTk\imgInt.t
-C:\strawberry\perl\site\lib\Tk\pTk\imgInt_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\ks_names.h
-C:\strawberry\perl\site\lib\Tk\pTk\mkVFunc
-C:\strawberry\perl\site\lib\Tk\pTk\moredefs.h
-C:\strawberry\perl\site\lib\Tk\pTk\port.h
-C:\strawberry\perl\site\lib\Tk\pTk\tcl.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclDecls.m
-C:\strawberry\perl\site\lib\Tk\pTk\tclDecls.t
-C:\strawberry\perl\site\lib\Tk\pTk\tclDecls_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclIntDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclIntPlatDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclMath.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclPlatDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tclWinInt.h
-C:\strawberry\perl\site\lib\Tk\pTk\tix.h
-C:\strawberry\perl\site\lib\Tk\pTk\tix.m
-C:\strawberry\perl\site\lib\Tk\pTk\tix.t
-C:\strawberry\perl\site\lib\Tk\pTk\tixBitmaps.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixDef.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixForm.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixGrData.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixGrid.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixHList.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixImgXpm.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixImgXpm.m
-C:\strawberry\perl\site\lib\Tk\pTk\tixImgXpm.t
-C:\strawberry\perl\site\lib\Tk\pTk\tixImgXpm_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixInt.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixInt.m
-C:\strawberry\perl\site\lib\Tk\pTk\tixInt.t
-C:\strawberry\perl\site\lib\Tk\pTk\tixInt_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixPort.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixTList.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixWinInt.h
-C:\strawberry\perl\site\lib\Tk\pTk\tixWinPort.h
-C:\strawberry\perl\site\lib\Tk\pTk\tix_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tk.h
-C:\strawberry\perl\site\lib\Tk\pTk\tk.m
-C:\strawberry\perl\site\lib\Tk\pTk\tk.t
-C:\strawberry\perl\site\lib\Tk\pTk\tk3d.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkButton.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkCanvas.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkCanvases.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkColor.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkConfig.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkDecls.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkDecls.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkDecls_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkEvent.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkEvent.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkEvent.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkEvent_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkFileFilter.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkFont.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkImgPhoto.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkImgPhoto.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkImgPhoto.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkImgPhoto_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkInitScript.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkInt.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkInt.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkInt.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntDecls.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntDecls.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntDecls_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntPlatDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntPlatDecls.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntPlatDecls.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntPlatDecls_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntXlibDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntXlibDecls.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntXlibDecls.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkIntXlibDecls_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkInt_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkMenu.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkMenubutton.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkOption.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkOption.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkOption.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkOption_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkPlatDecls.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkPlatDecls.m
-C:\strawberry\perl\site\lib\Tk\pTk\tkPlatDecls.t
-C:\strawberry\perl\site\lib\Tk\pTk\tkPlatDecls_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkPort.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkScale.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkScrollbar.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkSelect.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkText.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkUndo.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkVMacro.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkWin.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkWinDefault.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkWinInt.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkWinPort.h
-C:\strawberry\perl\site\lib\Tk\pTk\tkXrm.h
-C:\strawberry\perl\site\lib\Tk\pTk\tk_f.h
-C:\strawberry\perl\site\lib\Tk\pTk\xbytes.h
-C:\strawberry\perl\site\lib\Tk\pack.pod
-C:\strawberry\perl\site\lib\Tk\palette.pod
-C:\strawberry\perl\site\lib\Tk\place.pod
-C:\strawberry\perl\site\lib\Tk\prolog.ps
-C:\strawberry\perl\site\lib\Tk\reindex.pl
-C:\strawberry\perl\site\lib\Tk\selection.pod
-C:\strawberry\perl\site\lib\Tk\send.pod
-C:\strawberry\perl\site\lib\Tk\srcfile.xpm
-C:\strawberry\perl\site\lib\Tk\textfile.xpm
-C:\strawberry\perl\site\lib\Tk\tixWm.pod
-C:\strawberry\perl\site\lib\Tk\tkGlue.def
-C:\strawberry\perl\site\lib\Tk\tkGlue.h
-C:\strawberry\perl\site\lib\Tk\tkGlue.m
-C:\strawberry\perl\site\lib\Tk\tkGlue.t
-C:\strawberry\perl\site\lib\Tk\tkGlue_f.h
-C:\strawberry\perl\site\lib\Tk\tkvars.pod
-C:\strawberry\perl\site\lib\Tk\tranicon.gif
-C:\strawberry\perl\site\lib\Tk\typemap
-C:\strawberry\perl\site\lib\Tk\vtab.def
-C:\strawberry\perl\site\lib\Tk\widgets.pm
-C:\strawberry\perl\site\lib\Tk\widgets.pod
-C:\strawberry\perl\site\lib\Tk\win.xbm
-C:\strawberry\perl\site\lib\Tk\winfolder.xpm
-C:\strawberry\perl\site\lib\Tk\wintext.xpm
-C:\strawberry\perl\site\lib\auto\Tk\CancelRepeat.al
-C:\strawberry\perl\site\lib\auto\Tk\Canvas\Canvas.bs
-C:\strawberry\perl\site\lib\auto\Tk\Canvas\Canvas.dll
-C:\strawberry\perl\site\lib\auto\Tk\Clipboard\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Clipboard\getSelected.al
-C:\strawberry\perl\site\lib\auto\Tk\Compound\Compound.bs
-C:\strawberry\perl\site\lib\auto\Tk\Compound\Compound.dll
-C:\strawberry\perl\site\lib\auto\Tk\DragDrop\Win32Site\Win32Site.bs
-C:\strawberry\perl\site\lib\auto\Tk\DragDrop\Win32Site\Win32Site.dll
-C:\strawberry\perl\site\lib\auto\Tk\EnterFocus.al
-C:\strawberry\perl\site\lib\auto\Tk\Entry\Entry.bs
-C:\strawberry\perl\site\lib\auto\Tk\Entry\Entry.dll
-C:\strawberry\perl\site\lib\auto\Tk\Error.al
-C:\strawberry\perl\site\lib\auto\Tk\Event\Event.bs
-C:\strawberry\perl\site\lib\auto\Tk\Event\Event.dll
-C:\strawberry\perl\site\lib\auto\Tk\FirstMenu.al
-C:\strawberry\perl\site\lib\auto\Tk\FocusChildren.al
-C:\strawberry\perl\site\lib\auto\Tk\FocusOK.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\AddScrollbars.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\FindMenu.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Frame\freeze_on_map.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\label.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\labelPack.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\labelVariable.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\packscrollbars.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\queuePack.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\sbset.al
-C:\strawberry\perl\site\lib\auto\Tk\Frame\scrollbars.al
-C:\strawberry\perl\site\lib\auto\Tk\HList\HList.bs
-C:\strawberry\perl\site\lib\auto\Tk\HList\HList.dll
-C:\strawberry\perl\site\lib\auto\Tk\IO\IO.bs
-C:\strawberry\perl\site\lib\auto\Tk\IO\IO.dll
-C:\strawberry\perl\site\lib\auto\Tk\ImageNames.al
-C:\strawberry\perl\site\lib\auto\Tk\ImageTypes.al
-C:\strawberry\perl\site\lib\auto\Tk\JPEG\JPEG.bs
-C:\strawberry\perl\site\lib\auto\Tk\JPEG\JPEG.dll
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\AutoScan.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\BeginExtend.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\BeginSelect.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\BeginToggle.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\ButtonRelease_1.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\CLEAR.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Cancel.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Cntrl_End.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Cntrl_Home.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Cntrl_backslash.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\DELETE.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\DataExtend.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\EXISTS.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\EXTEND.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\ExtendUpDown.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\FETCH.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\FETCHSIZE.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Listbox.bs
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Listbox.dll
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\Motion.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\POP.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\PUSH.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\SHIFT.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\SPLICE.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\STORE.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\SelectAll.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\SetList.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\TIEARRAY.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\TIESCALAR.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\UNSHIFT.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\UpDown.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\clipboardPaste.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\deleteSelected.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\getSelected.al
-C:\strawberry\perl\site\lib\auto\Tk\Listbox\xyIndex.al
-C:\strawberry\perl\site\lib\auto\Tk\Menubutton\Menubutton.bs
-C:\strawberry\perl\site\lib\auto\Tk\Menubutton\Menubutton.dll
-C:\strawberry\perl\site\lib\auto\Tk\NBFrame\NBFrame.bs
-C:\strawberry\perl\site\lib\auto\Tk\NBFrame\NBFrame.dll
-C:\strawberry\perl\site\lib\auto\Tk\PNG\PNG.bs
-C:\strawberry\perl\site\lib\auto\Tk\PNG\PNG.dll
-C:\strawberry\perl\site\lib\auto\Tk\Pixmap\Pixmap.bs
-C:\strawberry\perl\site\lib\auto\Tk\Pixmap\Pixmap.dll
-C:\strawberry\perl\site\lib\auto\Tk\Receive.al
-C:\strawberry\perl\site\lib\auto\Tk\RepeatId.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Activate.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\ButtonDown.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\ButtonUp.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\ControlPress.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Drag.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\EndDrag.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Enter.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Increment.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Leave.al
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Scale.bs
-C:\strawberry\perl\site\lib\auto\Tk\Scale\Scale.dll
-C:\strawberry\perl\site\lib\auto\Tk\Scale\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\ButtonDown.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\ButtonUp.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Drag.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\EndDrag.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Enter.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Leave.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Motion.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\ScrlByPages.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\ScrlByUnits.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\ScrlToPos.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\ScrlTopBottom.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Scrollbar.bs
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Scrollbar.dll
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\Select.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\StartDrag.al
-C:\strawberry\perl\site\lib\auto\Tk\Scrollbar\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Selection.al
-C:\strawberry\perl\site\lib\auto\Tk\TList\TList.bs
-C:\strawberry\perl\site\lib\auto\Tk\TList\TList.dll
-C:\strawberry\perl\site\lib\auto\Tk\Table\Create.al
-C:\strawberry\perl\site\lib\auto\Tk\Table\Posn.al
-C:\strawberry\perl\site\lib\auto\Tk\Table\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Table\see.al
-C:\strawberry\perl\site\lib\auto\Tk\Table\totalColumns.al
-C:\strawberry\perl\site\lib\auto\Tk\Table\totalRows.al
-C:\strawberry\perl\site\lib\auto\Tk\TextEdit\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\TextUndo\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Text\Text.bs
-C:\strawberry\perl\site\lib\auto\Tk\Text\Text.dll
-C:\strawberry\perl\site\lib\auto\Tk\Text\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\TixGrid\TixGrid.bs
-C:\strawberry\perl\site\lib\auto\Tk\TixGrid\TixGrid.dll
-C:\strawberry\perl\site\lib\auto\Tk\Tk.bs
-C:\strawberry\perl\site\lib\auto\Tk\Tk.dll
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\FG_BindIn.al
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\FG_BindOut.al
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\FG_Create.al
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\FG_Destroy.al
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\FG_In.al
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\FG_Out.al
-C:\strawberry\perl\site\lib\auto\Tk\Toplevel\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\TraverseToMenu.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\ASkludge.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\AltKeyInDialog.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\AmpWidget.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\FindAltKeyTarget.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\MasterMenu.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\RestoreFocusGrab.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\SetAmpText.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\SetFocusGrab.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\UnderlineAmpersand.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Widget\bindDump.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\clipboardKeysyms.al
-C:\strawberry\perl\site\lib\auto\Tk\Widget\pathname.al
-C:\strawberry\perl\site\lib\auto\Tk\Wm\AnchorAdjust.al
-C:\strawberry\perl\site\lib\auto\Tk\Wm\FullScreen.al
-C:\strawberry\perl\site\lib\auto\Tk\Wm\Popup.al
-C:\strawberry\perl\site\lib\auto\Tk\Wm\Post.al
-C:\strawberry\perl\site\lib\auto\Tk\Wm\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Wm\iconposition.al
-C:\strawberry\perl\site\lib\auto\Tk\X\X.bs
-C:\strawberry\perl\site\lib\auto\Tk\X\X.dll
-C:\strawberry\perl\site\lib\auto\Tk\X\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\Xlib\Xlib.bs
-C:\strawberry\perl\site\lib\auto\Tk\Xlib\Xlib.dll
-C:\strawberry\perl\site\lib\auto\Tk\autosplit.ix
-C:\strawberry\perl\site\lib\auto\Tk\break.al
-C:\strawberry\perl\site\lib\auto\Tk\focusFollowsMouse.al
-C:\strawberry\perl\site\lib\auto\Tk\focusNext.al
-C:\strawberry\perl\site\lib\auto\Tk\focusPrev.al
-C:\strawberry\perl\site\lib\auto\Tk\getEncoding.al
-C:\strawberry\perl\site\lib\auto\Tk\getNextFocus.al
-C:\strawberry\perl\site\lib\auto\Tk\getPrevFocus.al
-C:\strawberry\perl\site\lib\auto\Tk\interps.al
-C:\strawberry\perl\site\lib\auto\Tk\lsearch.al
-C:\strawberry\perl\site\lib\auto\Tk\pTk\extralibs.ld
-C:\strawberry\perl\site\lib\auto\Tk\tabFocus.al
-C:\strawberry\perl\site\lib\auto\Tk\updateWidgets.al
-C:\strawberry\perl\site\lib\fix_4_os2.pl
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al b/Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al deleted file mode 100755 index ca82516a200..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 508 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\CancelRepeat.al)" -sub CancelRepeat -{ - my $w = shift->MainWindow; - my $id = delete $w->{_afterId_}; - $w->after('cancel',$id) if (defined $id); -} - -# end of Tk::CancelRepeat -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll Binary files differdeleted file mode 100755 index fbf6d021ad5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix deleted file mode 100755 index 9831f74facb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix +++ /dev/null @@ -1,6 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Clipboard.pm -# (file acts as timestamp) -package Tk::Clipboard; -sub getSelected -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/getSelected.al b/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/getSelected.al deleted file mode 100755 index 44ba7b74bf0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/getSelected.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Clipboard.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Clipboard; - -#line 115 "blib\lib\Tk\Clipboard.pm (autosplit into blib\lib\auto\Tk\Clipboard\getSelected.al)" -sub getSelected -{ - my $w = shift; - my $val = Tk::catch { $w->get('sel.first','sel.last') }; - return $val; -} - -1; -# end of Tk::Clipboard::getSelected diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll Binary files differdeleted file mode 100755 index 66c510b1724..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll Binary files differdeleted file mode 100755 index 86fca69122d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al deleted file mode 100755 index e5a09f65466..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 692 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\EnterFocus.al)" -# focusFollowsMouse -# -# If this procedure is invoked, Tk will enter "focus-follows-mouse" -# mode, where the focus is always on whatever window contains the -# mouse. If this procedure isn't invoked, then the user typically -# has to click on a window to give it the focus. -# -# Arguments: -# None. - -sub EnterFocus -{ - my $w = shift; - return unless $w; - my $Ev = $w->XEvent; - my $d = $Ev->d; - $w->Tk::focus() if ($d eq 'NotifyAncestor' || $d eq 'NotifyNonlinear' || $d eq 'NotifyInferior'); -} - -# end of Tk::EnterFocus -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll Binary files differdeleted file mode 100755 index aa9476cb0b8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Error.al b/Master/tlpkg/tlperl/lib/auto/Tk/Error.al deleted file mode 100755 index 0c1d8218ced..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Error.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 496 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Error.al)" -sub Error -{my $w = shift; - my $error = shift; - if (Exists($w)) - { - my $grab = $w->grab('current'); - $grab->Unbusy if (defined $grab); - } - chomp($error); - warn "Tk::Error: $error\n " . join("\n ",@_)."\n"; -} - -# end of Tk::Error -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll Binary files differdeleted file mode 100755 index caaaca67c35..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al deleted file mode 100755 index c2cee5e9f4e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 740 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FirstMenu.al)" -# tkFirstMenu -- -# This procedure traverses to the first menubutton in the toplevel -# for a given window, and posts that menubutton's menu. -# -# Arguments: -# w - Name of a window. Selects which toplevel -# to search for menubuttons. -sub FirstMenu -{ - my $w = shift; - $w = $w->toplevel->FindMenu(''); -} - -# end of Tk::FirstMenu -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al b/Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al deleted file mode 100755 index 1c3c6b83bbd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al +++ /dev/null @@ -1,35 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 525 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusChildren.al)" -#---------------------------------------------------------------------------- -# focus.tcl -- -# -# This file defines several procedures for managing the input -# focus. -# -# @(#) focus.tcl 1.6 94/12/19 17:06:46 -# -# Copyright (c) 1994 Sun Microsystems, Inc. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. - -sub FocusChildren { shift->children } - -# -# focusNext -- -# This procedure is invoked to move the input focus to the next window -# after a given one. "Next" is defined in terms of the window -# stacking order, with all the windows underneath a given top-level -# (no matter how deeply nested in the hierarchy) considered except -# for frames and toplevels. -# -# Arguments: -# w - Name of a window: the procedure will set the focus -# to the next window after this one in the traversal -# order. -# end of Tk::FocusChildren -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al b/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al deleted file mode 100755 index 32da7b795b3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al +++ /dev/null @@ -1,36 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 663 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusOK.al)" -sub FocusOK -{ - my $w = shift; - my $value; - catch { $value = $w->cget('-takefocus') }; - if (!$@ && defined($value)) - { - return 0 if ($value eq '0'); - return $w->viewable if ($value eq '1'); - if ($value) - { - $value = $w->$value(); - return $value if (defined $value); - } - } - if (!$w->viewable) - { - return 0; - } - catch { $value = $w->cget('-state') } ; - if (!$@ && defined($value) && $value eq 'disabled') - { - return 0; - } - $value = grep(/Key|Focus/,$w->Tk::bind(),$w->Tk::bind(ref($w))); - return $value; -} - -# end of Tk::FocusOK -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/AddScrollbars.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/AddScrollbars.al deleted file mode 100755 index aa12259f675..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/AddScrollbars.al +++ /dev/null @@ -1,52 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 225 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\AddScrollbars.al)" -sub AddScrollbars -{ - require Tk::Scrollbar; - my ($cw,$w) = @_; - my $def = ''; - my ($x,$y) = ('',''); - my $s = 0; - my $c; - $cw->freeze_on_map; - foreach $c ($w->configure) - { - my $opt = $c->[0]; - if ($opt eq '-yscrollcommand') - { - my $slice = Tk::Frame->new($cw,Name => 'ysbslice'); - my $ysb = Tk::Scrollbar->new($slice,-orient => 'vertical', -command => [ 'yview', $w ]); - my $size = $ysb->cget('-width'); - my $corner = Tk::Frame->new($slice,Name=>'corner','-relief' => 'raised', - '-width' => $size, '-height' => $size); - $ysb->pack(-side => 'left', -fill => 'y'); - $cw->Advertise('yscrollbar' => $ysb); - $cw->Advertise('corner' => $corner); - $cw->Advertise('ysbslice' => $slice); - $corner->{'before'} = $ysb->PathName; - $slice->{'before'} = $w->PathName; - $y = 'w'; - $s = 1; - } - elsif ($opt eq '-xscrollcommand') - { - my $xsb = Tk::Scrollbar->new($cw,-orient => 'horizontal', -command => [ 'xview', $w ]); - $cw->Advertise('xscrollbar' => $xsb); - $xsb->{'before'} = $w->PathName; - $x = 's'; - $s = 1; - } - } - if ($s) - { - $cw->Advertise('scrolled' => $w); - $cw->ConfigSpecs('-scrollbars' => ['METHOD','scrollbars','Scrollbars',$x.$y]); - } -} - -# end of Tk::Frame::AddScrollbars -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al deleted file mode 100755 index 66e71c29b21..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al +++ /dev/null @@ -1,22 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 363 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\FindMenu.al)" -sub FindMenu -{ - my ($w,$char) = @_; - my $child; - my $match; - foreach $child ($w->children) - { - next unless (ref $child); - $match = $child->FindMenu($char); - return $match if (defined $match); - } - return undef; -} - -1; -# end of Tk::Frame::FindMenu diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix deleted file mode 100755 index 6e5b939fce1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix +++ /dev/null @@ -1,24 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Frame.pm -# (file acts as timestamp) -package Tk::Frame; -sub labelPack -; -sub labelVariable -; -sub label -; -sub queuePack -; -sub sbset -; -sub freeze_on_map -; -sub AddScrollbars -; -sub packscrollbars -; -sub scrollbars -; -sub FindMenu -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/freeze_on_map.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/freeze_on_map.al deleted file mode 100755 index 6a8b8a4f96e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/freeze_on_map.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 215 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\freeze_on_map.al)" -sub freeze_on_map -{ - my ($w) = @_; - unless ($w->Tk::bind('Freeze','<Map>')) - { - $w->Tk::bind('Freeze','<Map>',['packPropagate' => 0]) - } - $w->AddBindTag('Freeze'); -} - -# end of Tk::Frame::freeze_on_map -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al deleted file mode 100755 index 83ec70ed803..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 182 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\label.al)" -sub label -{ - my ($cw,$val) = @_; - my $var = $cw->cget('-labelVariable'); - if (@_ > 1 && defined $val) - { - if (!defined $var) - { - $var = \$cw->{Configure}{'-label'}; - $cw->labelVariable($var); - } - $$var = $val; - } - return (defined $var) ? $$var : undef;; -} - -# end of Tk::Frame::label -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al deleted file mode 100755 index 0cfa8631c24..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al +++ /dev/null @@ -1,50 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 121 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelPack.al)" -sub labelPack -{ - my ($cw,$val) = @_; - my $w = $cw->Subwidget('label'); - my @result = (); - if (@_ > 1) - { - if (defined($w) && !defined($val)) - { - $w->packForget; - } - elsif (defined($val) && !defined ($w)) - { - require Tk::Label; - $w = Tk::Label->new($cw,-textvariable => $cw->labelVariable); - $cw->Advertise('label' => $w); - $cw->ConfigDelegate('label',qw(-text -textvariable)); - } - if (defined($val) && defined($w)) - { - my %pack = @$val; - unless (exists $pack{-side}) - { - $pack{-side} = 'top' unless (exists $pack{-side}); - } - unless (exists $pack{-fill}) - { - $pack{-fill} = 'x' if ($pack{-side} =~ /(top|bottom)/); - $pack{-fill} = 'y' if ($pack{-side} =~ /(left|right)/); - } - unless (exists($pack{'-before'}) || exists($pack{'-after'})) - { - my $before = ($cw->packSlaves)[0]; - $pack{'-before'} = $before if (defined $before); - } - $w->pack(%pack); - } - } - @result = $w->packInfo if (defined $w); - return (wantarray) ? @result : \@result; -} - -# end of Tk::Frame::labelPack -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelVariable.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelVariable.al deleted file mode 100755 index ca60cff1288..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelVariable.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 163 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelVariable.al)" -sub labelVariable -{ - my ($cw,$val) = @_; - my $var = \$cw->{Configure}{'-labelVariable'}; - if (@_ > 1 && defined $val) - { - $$var = $val; - $$val = '' unless (defined $$val); - my $w = $cw->Subwidget('label'); - unless (defined $w) - { - $cw->labelPack([]); - $w = $cw->Subwidget('label'); - } - $w->configure(-textvariable => $val); - } - return $$var; -} - -# end of Tk::Frame::labelVariable -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/packscrollbars.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/packscrollbars.al deleted file mode 100755 index 9990eb67b13..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/packscrollbars.al +++ /dev/null @@ -1,86 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 269 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\packscrollbars.al)" -sub packscrollbars -{ - my ($cw) = @_; - my $opt = $cw->cget('-scrollbars'); - my $slice = $cw->Subwidget('ysbslice'); - my $xsb = $cw->Subwidget('xscrollbar'); - my $corner = $cw->Subwidget('corner'); - my $w = $cw->Subwidget('scrolled'); - my $xside = (($opt =~ /n/) ? 'top' : 'bottom'); - my $havex = 0; - my $havey = 0; - $opt =~ s/r//; - $cw->{'pack_pending'} = 0; - if (defined $slice) - { - my $reqy; - my $ysb = $cw->Subwidget('yscrollbar'); - if ($opt =~ /(o)?[we]/ && (($reqy = !defined($1)) || $ysb->Needed)) - { - my $yside = (($opt =~ /w/) ? 'left' : 'right'); - $slice->pack(-side => $yside, -fill => 'y',-before => $slice->{'before'}); - $havey = 1; - if ($reqy) - { - $w->configure(-yscrollcommand => ['set', $ysb]); - } - else - { - $w->configure(-yscrollcommand => ['sbset', $cw, $ysb, \$cw->{'packysb'}]); - } - } - else - { - $w->configure(-yscrollcommand => undef) unless $opt =~ s/[we]//; - $slice->packForget; - } - $cw->{'packysb'} = $havey; - } - if (defined $xsb) - { - my $reqx; - if ($opt =~ /(o)?[ns]/ && (($reqx = !defined($1)) || $xsb->Needed)) - { - $xsb->pack(-side => $xside, -fill => 'x',-before => $xsb->{'before'}); - $havex = 1; - if ($reqx) - { - $w->configure(-xscrollcommand => ['set', $xsb]); - } - else - { - $w->configure(-xscrollcommand => ['sbset', $cw, $xsb, \$cw->{'packxsb'}]); - } - } - else - { - $w->configure(-xscrollcommand => undef) unless $opt =~ s/[ns]//; - $xsb->packForget; - } - $cw->{'packxsb'} = $havex; - } - if (defined $corner) - { - if ($havex && $havey && defined $corner->{'before'}) - { - my $anchor = $opt; - $anchor =~ s/o//g; - $corner->configure(-height => $xsb->ReqHeight); - $corner->pack(-before => $corner->{'before'}, -side => $xside, - -anchor => $anchor, -fill => 'x'); - } - else - { - $corner->packForget; - } - } -} - -# end of Tk::Frame::packscrollbars -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al deleted file mode 100755 index 59fe3ee4de0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 198 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\queuePack.al)" -sub queuePack -{ - my ($cw) = @_; - unless ($cw->{'pack_pending'}) - { - $cw->{'pack_pending'} = 1; - $cw->afterIdle([$cw,'packscrollbars']); - } -} - -# end of Tk::Frame::queuePack -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al deleted file mode 100755 index cca4f0d642a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 208 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\sbset.al)" -sub sbset -{ - my ($cw,$sb,$ref,@args) = @_; - $sb->set(@args); - $cw->queuePack if (@args == 2 && $sb->Needed != $$ref); -} - -# end of Tk::Frame::sbset -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al deleted file mode 100755 index 21eeb53d2b9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 347 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\scrollbars.al)" -sub scrollbars -{ - my ($cw,$opt) = @_; - my $var = \$cw->{'-scrollbars'}; - if (@_ > 1) - { - my $old = $$var; - if (!defined $old || $old ne $opt) - { - $$var = $opt; - $cw->queuePack; - } - } - return $$var; -} - -# end of Tk::Frame::scrollbars -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll Binary files differdeleted file mode 100755 index 5dde82a5ac0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll Binary files differdeleted file mode 100755 index adb1c93f257..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al b/Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al deleted file mode 100755 index 9e9a7a00d29..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 792 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\ImageNames.al)" -sub ImageNames -{ - image('names'); -} - -# end of Tk::ImageNames -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al b/Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al deleted file mode 100755 index 2ab5a66b0de..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 797 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\ImageTypes.al)" -sub ImageTypes -{ - image('types'); -} - -# end of Tk::ImageTypes -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll Binary files differdeleted file mode 100755 index ea8966b3b17..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al deleted file mode 100755 index 89bda0179c6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al +++ /dev/null @@ -1,49 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 676 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\AutoScan.al)" -# AutoScan -- -# This procedure is invoked when the mouse leaves an entry window -# with button 1 down. It scrolls the window up, down, left, or -# right, depending on where the mouse left the window, and reschedules -# itself as an "after" command so that the window continues to scroll until -# the mouse moves back into the window or the mouse button is released. -# -# Arguments: -# w - The entry window. -# x - The x-coordinate of the mouse when it left the window. -# y - The y-coordinate of the mouse when it left the window. -sub AutoScan -{ - my $w = shift; - return if !Tk::Exists($w); - my $x = shift; - my $y = shift; - if ($y >= $w->height) - { - $w->yview('scroll',1,'units') - } - elsif ($y < 0) - { - $w->yview('scroll',-1,'units') - } - elsif ($x >= $w->width) - { - $w->xview('scroll',2,'units') - } - elsif ($x < 0) - { - $w->xview('scroll',-2,'units') - } - else - { - return; - } - $w->Motion($w->index("@" . $x . ',' . $y)); - $w->RepeatId($w->after(50,'AutoScan',$w,$x,$y)); -} - -# end of Tk::Listbox::AutoScan -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginExtend.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginExtend.al deleted file mode 100755 index afd8f0e9fda..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginExtend.al +++ /dev/null @@ -1,34 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 620 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginExtend.al)" -# BeginExtend -- -# -# This procedure is typically invoked on shift-button-1 presses. It -# begins the process of extending a selection in the listbox. Its -# exact behavior depends on the selection mode currently in effect -# for the listbox; see the Motif documentation for details. -# -# Arguments: -# w - The listbox widget. -# el - The element for the selection operation (typically the -# one under the pointer). Must be in numerical form. -sub BeginExtend -{ - my $w = shift; - my $el = shift; - if ($w->cget('-selectmode') eq 'extended' && $w->selectionIncludes('anchor')) - { - $w->Motion($el) - } - else - { - # No selection yet; simulate the begin-select operation. - $w->BeginSelect($el); - } -} - -# end of Tk::Listbox::BeginExtend -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginSelect.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginSelect.al deleted file mode 100755 index 304a0afe1e1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginSelect.al +++ /dev/null @@ -1,46 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 515 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginSelect.al)" -# BeginSelect -- -# -# This procedure is typically invoked on button-1 presses. It begins -# the process of making a selection in the listbox. Its exact behavior -# depends on the selection mode currently in effect for the listbox; -# see the Motif documentation for details. -# -# Arguments: -# w - The listbox widget. -# el - The element for the selection operation (typically the -# one under the pointer). Must be in numerical form. -sub BeginSelect -{ - my $w = shift; - my $el = shift; - if ($w->cget('-selectmode') eq 'multiple') - { - if ($w->selectionIncludes($el)) - { - $w->selectionClear($el) - } - else - { - $w->selectionSet($el) - } - } - else - { - $w->selectionClear(0,'end'); - $w->selectionSet($el); - $w->selectionAnchor($el); - @Selection = (); - $Prev = $el - } - $w->focus if ($w->cget('-takefocus')); - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::BeginSelect -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginToggle.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginToggle.al deleted file mode 100755 index 6c70e35d75a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginToggle.al +++ /dev/null @@ -1,40 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 645 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginToggle.al)" -# BeginToggle -- -# -# This procedure is typically invoked on control-button-1 presses. It -# begins the process of toggling a selection in the listbox. Its -# exact behavior depends on the selection mode currently in effect -# for the listbox; see the Motif documentation for details. -# -# Arguments: -# w - The listbox widget. -# el - The element for the selection operation (typically the -# one under the pointer). Must be in numerical form. -sub BeginToggle -{ - my $w = shift; - my $el = shift; - if ($w->cget('-selectmode') eq 'extended') - { - @Selection = $w->curselection(); - $Prev = $el; - $w->selectionAnchor($el); - if ($w->selectionIncludes($el)) - { - $w->selectionClear($el) - } - else - { - $w->selectionSet($el) - } - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::BeginToggle -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al deleted file mode 100755 index ec8fa789fb9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 471 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\ButtonRelease_1.al)" -sub ButtonRelease_1 -{ - my $w = shift; - my $Ev = $w->XEvent; - $w->CancelRepeat; - $w->activate($Ev->xy); -} - -# end of Tk::Listbox::ButtonRelease_1 -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al deleted file mode 100755 index 8ed6feba4b5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 304 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\CLEAR.al)" -# CLEAR -# ----- -# Empty the Listbox of contents if tied to an array -sub CLEAR { - my $class = shift; - ${$class->{OBJECT}}->delete(0, 'end'); -} - -# end of Tk::Listbox::CLEAR -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al deleted file mode 100755 index 7ff924756f8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al +++ /dev/null @@ -1,42 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 805 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cancel.al)" -# Cancel -# -# This procedure is invoked to cancel an extended selection in -# progress. If there is an extended selection in progress, it -# restores all of the items between the active one and the anchor -# to their previous selection state. -# -# Arguments: -# w - The listbox widget. -sub Cancel -{ - my $w = shift; - if ($w->cget('-selectmode') ne 'extended' || !defined $Prev) - { - return; - } - my $first = $w->index('anchor'); - my $last = $Prev; - if ($first > $last) - { - ($first, $last) = ($last, $first); - } - $w->selectionClear($first,$last); - while ($first <= $last) - { - if (Tk::lsearch(\@Selection,$first) >= 0) - { - $w->selectionSet($first) - } - $first++ - } - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::Cancel -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al deleted file mode 100755 index dad5a4bc0d1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 492 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_End.al)" -sub Cntrl_End -{ - my $w = shift; - my $Ev = $w->XEvent; - $w->activate('end'); - $w->see('end'); - $w->selectionClear(0,'end'); - $w->selectionSet('end'); - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::Cntrl_End -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al deleted file mode 100755 index 08131896da1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 480 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_Home.al)" -sub Cntrl_Home -{ - my $w = shift; - my $Ev = $w->XEvent; - $w->activate(0); - $w->see(0); - $w->selectionClear(0,'end'); - $w->selectionSet(0); - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::Cntrl_Home -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al deleted file mode 100755 index 402426261a7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 504 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_backslash.al)" -sub Cntrl_backslash -{ - my $w = shift; - my $Ev = $w->XEvent; - if ($w->cget('-selectmode') ne 'browse') - { - $w->selectionClear(0,'end'); - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::Cntrl_backslash -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al deleted file mode 100755 index 3dd81ad40fd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 355 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DELETE.al)" -# DELETE -# ------ -# Delete element at specified index -sub DELETE { - my ( $class, @list ) = @_; - - my $value = ${$class->{OBJECT}}->get(@list); - ${$class->{OBJECT}}->delete(@list); - return $value; -} - -# end of Tk::Listbox::DELETE -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al deleted file mode 100755 index 4240300aa68..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al +++ /dev/null @@ -1,39 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 775 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DataExtend.al)" -# DataExtend -# -# This procedure is called for key-presses such as Shift-KEndData. -# If the selection mode isn't multiple or extend then it does nothing. -# Otherwise it moves the active element to el and, if we're in -# extended mode, extends the selection to that point. -# -# Arguments: -# w - The listbox widget. -# el - An integer element number. -sub DataExtend -{ - my $w = shift; - my $el = shift; - my $mode = $w->cget('-selectmode'); - if ($mode eq 'extended') - { - $w->activate($el); - $w->see($el); - if ($w->selectionIncludes('anchor')) - { - $w->Motion($el) - } - } - elsif ($mode eq 'multiple') - { - $w->activate($el); - $w->see($el) - } -} - -# end of Tk::Listbox::DataExtend -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al deleted file mode 100755 index ae1ed1bc5e6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 366 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\EXISTS.al)" -# EXISTS -# ------ -# Returns true if the index exist, and undef if not -sub EXISTS { - my ( $class, $index ) = @_; - return undef unless ${$class->{OBJECT}}->get($index); -} - -# end of Tk::Listbox::EXISTS -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al deleted file mode 100755 index 2a483ea08c1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 312 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\EXTEND.al)" -# EXTEND -# ------ -# Do nothing and be happy about it -sub EXTEND { } - -# PUSH -# ---- -# Append elements onto the Listbox contents -# end of Tk::Listbox::EXTEND -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al deleted file mode 100755 index 9b72250ea41..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al +++ /dev/null @@ -1,36 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 748 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\ExtendUpDown.al)" -# ExtendUpDown -- -# -# Does nothing unless we're in extended selection mode; in this -# case it moves the location cursor (active element) up or down by -# one element, and extends the selection to that point. -# -# Arguments: -# w - The listbox widget. -# amount - +1 to move down one item, -1 to move back one item. -sub ExtendUpDown -{ - my $w = shift; - my $amount = shift; - if ($w->cget('-selectmode') ne 'extended') - { - return; - } - my $active = $w->index('active'); - if (!@Selection) - { - $w->selectionSet($active); - @Selection = $w->curselection; - } - $w->activate($active + $amount); - $w->see('active'); - $w->Motion($w->index('active')) -} - -# end of Tk::Listbox::ExtendUpDown -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al deleted file mode 100755 index fbbe7a3ce9a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al +++ /dev/null @@ -1,56 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 176 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\FETCH.al)" -# FETCH -# ----- -# Return either the full contents or only the selected items in the -# box depending on whether we tied it to an array or scalar respectively -sub FETCH { - my $class = shift; - - my $self = ${$class->{OBJECT}}; - my %options = %{$class->{OPTION}} if defined $class->{OPTION};; - - # Define the return variable - my $result; - - # Check whether we are have a tied array or scalar quantity - if ( @_ ) { - my $i = shift; - # The Tk:: Listbox has been tied to an array, we are returning - # an array list of the current items in the Listbox - $result = $self->get($i); - } else { - # The Tk::Listbox has been tied to a scalar, we are returning a - # reference to an array or hash containing the currently selected items - my ( @array, %hash ); - - if ( defined $options{ReturnType} ) { - - # THREE-WAY SWITCH - if ( $options{ReturnType} eq "index" ) { - $result = [$self->curselection]; - } elsif ( $options{ReturnType} eq "element" ) { - foreach my $selection ( $self->curselection ) { - push(@array,$self->get($selection)); } - $result = \@array; - } elsif ( $options{ReturnType} eq "both" ) { - foreach my $selection ( $self->curselection ) { - %hash = ( %hash, $selection => $self->get($selection)); } - $result = \%hash; - } - } else { - # return elements (default) - foreach my $selection ( $self->curselection ) { - push(@array,$self->get($selection)); } - $result = \@array; - } - } - return $result; -} - -# end of Tk::Listbox::FETCH -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al deleted file mode 100755 index 13b612a26f5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 224 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\FETCHSIZE.al)" -# FETCHSIZE -# --------- -# Return the number of elements in the Listbox when tied to an array -sub FETCHSIZE { - my $class = shift; - return ${$class->{OBJECT}}->size(); -} - -# end of Tk::Listbox::FETCHSIZE -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll Binary files differdeleted file mode 100755 index e3967f04e10..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al deleted file mode 100755 index c1c3cbd978b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al +++ /dev/null @@ -1,77 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 552 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Motion.al)" -# Motion -- -# -# This procedure is called to process mouse motion events while -# button 1 is down. It may move or extend the selection, depending -# on the listbox's selection mode. -# -# Arguments: -# w - The listbox widget. -# el - The element under the pointer (must be a number). -sub Motion -{ - my $w = shift; - my $el = shift; - if (defined($Prev) && $el == $Prev) - { - return; - } - my $anchor = $w->index('anchor'); - my $mode = $w->cget('-selectmode'); - if ($mode eq 'browse') - { - $w->selectionClear(0,'end'); - $w->selectionSet($el); - $Prev = $el; - $w->eventGenerate("<<ListboxSelect>>"); - } - elsif ($mode eq 'extended') - { - my $i = $Prev; - if (!defined $i || $i eq '') - { - $i = $el; - $w->selectionSet($el); - } - if ($w->selectionIncludes('anchor')) - { - $w->selectionClear($i,$el); - $w->selectionSet('anchor',$el) - } - else - { - $w->selectionClear($i,$el); - $w->selectionClear('anchor',$el) - } - if (!@Selection) - { - @Selection = $w->curselection; - } - while ($i < $el && $i < $anchor) - { - if (Tk::lsearch(\@Selection,$i) >= 0) - { - $w->selectionSet($i) - } - $i++ - } - while ($i > $el && $i > $anchor) - { - if (Tk::lsearch(\@Selection,$i) >= 0) - { - $w->selectionSet($i) - } - $i-- - } - $Prev = $el; - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::Motion -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al deleted file mode 100755 index db469652447..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 325 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\POP.al)" -# POP -# --- -# Remove last element of the array and return it -sub POP { - my $class = shift; - - my $value = ${$class->{OBJECT}}->get('end'); - ${$class->{OBJECT}}->delete('end'); - return $value; -} - -# end of Tk::Listbox::POP -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al deleted file mode 100755 index f2168ef46d9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 320 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\PUSH.al)" -sub PUSH { - my ( $class, @list ) = @_; - ${$class->{OBJECT}}->insert('end', @list); -} - -# end of Tk::Listbox::PUSH -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al deleted file mode 100755 index 96a41f7d79c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 336 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SHIFT.al)" -# SHIFT -# ----- -# Removes the first element and returns it -sub SHIFT { - my $class = shift; - - my $value = ${$class->{OBJECT}}->get(0); - ${$class->{OBJECT}}->delete(0); - return $value -} - -# end of Tk::Listbox::SHIFT -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al deleted file mode 100755 index aeddea8196a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al +++ /dev/null @@ -1,84 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 374 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SPLICE.al)" -# SPLICE -# ------ -# Performs equivalent of splice on the listbox contents -sub SPLICE { - my $class = shift; - - my $self = ${$class->{OBJECT}}; - - # check for arguments - my @elements; - if ( scalar(@_) == 0 ) { - # none - @elements = $self->get(0,'end'); - $self->delete(0,'end'); - return wantarray ? @elements : $elements[scalar(@elements)-1];; - - } elsif ( scalar(@_) == 1 ) { - # $offset - my ( $offset ) = @_; - if ( $offset < 0 ) { - my $start = $self->size() + $offset; - if ( $start > 0 ) { - @elements = $self->get($start,'end'); - $self->delete($start,'end'); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } else { - return undef; - } - } else { - @elements = $self->get($offset,'end'); - $self->delete($offset,'end'); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } - - } elsif ( scalar(@_) == 2 ) { - # $offset and $length - my ( $offset, $length ) = @_; - if ( $offset < 0 ) { - my $start = $self->size() + $offset; - my $end = $self->size() + $offset + $length - 1; - if ( $start > 0 ) { - @elements = $self->get($start,$end); - $self->delete($start,$end); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } else { - return undef; - } - } else { - @elements = $self->get($offset,$offset+$length-1); - $self->delete($offset,$offset+$length-1); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } - - } else { - # $offset, $length and @list - my ( $offset, $length, @list ) = @_; - if ( $offset < 0 ) { - my $start = $self->size() + $offset; - my $end = $self->size() + $offset + $length - 1; - if ( $start > 0 ) { - @elements = $self->get($start,$end); - $self->delete($start,$end); - $self->insert($start,@list); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } else { - return undef; - } - } else { - @elements = $self->get($offset,$offset+$length-1); - $self->delete($offset,$offset+$length-1); - $self->insert($offset,@list); - return wantarray ? @elements : $elements[scalar(@elements)-1]; - } - } -} - -# end of Tk::Listbox::SPLICE -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al deleted file mode 100755 index 492c32ccc1e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al +++ /dev/null @@ -1,80 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 232 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\STORE.al)" -# STORE -# ----- -# If tied to an array we will modify the Listbox contents, while if tied -# to a scalar we will select and clear elements. -sub STORE { - - if ( scalar(@_) == 2 ) { - # we have a tied scalar - my ( $class, $selected ) = @_; - my $self = ${$class->{OBJECT}}; - my %options = %{$class->{OPTION}} if defined $class->{OPTION};; - - # clear currently selected elements - $self->selectionClear(0,'end'); - - # set selected elements - if ( defined $options{ReturnType} ) { - - # THREE-WAY SWITCH - if ( $options{ReturnType} eq "index" ) { - for ( my $i=0; $i < scalar(@$selected) ; $i++ ) { - for ( my $j=0; $j < $self->size() ; $j++ ) { - if( $j == $$selected[$i] ) { - $self->selectionSet($j); last; } - } - } - } elsif ( $options{ReturnType} eq "element" ) { - for ( my $k=0; $k < scalar(@$selected) ; $k++ ) { - for ( my $l=0; $l < $self->size() ; $l++ ) { - if( $self->get($l) eq $$selected[$k] ) { - $self->selectionSet($l); last; } - } - } - } elsif ( $options{ReturnType} eq "both" ) { - foreach my $key ( keys %$selected ) { - $self->selectionSet($key) - if $$selected{$key} eq $self->get($key); - } - } - } else { - # return elements (default) - for ( my $k=0; $k < scalar(@$selected) ; $k++ ) { - for ( my $l=0; $l < $self->size() ; $l++ ) { - if( $self->get($l) eq $$selected[$k] ) { - $self->selectionSet($l); last; } - } - } - } - - } else { - # we have a tied array - my ( $class, $index, $value ) = @_; - my $self = ${$class->{OBJECT}}; - - # check size of current contents list - my $sizeof = $self->size(); - - if ( $index <= $sizeof ) { - # Change a current listbox entry - $self->delete($index); - $self->insert($index, $value); - } else { - # Add a new value - if ( defined $index ) { - $self->insert($index, $value); - } else { - $self->insert("end", $value); - } - } - } -} - -# end of Tk::Listbox::STORE -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al deleted file mode 100755 index 50569afbe50..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 838 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SelectAll.al)" -# SelectAll -# -# This procedure is invoked to handle the "select all" operation. -# For single and browse mode, it just selects the active element. -# Otherwise it selects everything in the widget. -# -# Arguments: -# w - The listbox widget. -sub SelectAll -{ - my $w = shift; - my $mode = $w->cget('-selectmode'); - if ($mode eq 'single' || $mode eq 'browse') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active') - } - else - { - $w->selectionSet(0,'end') - } - $w->eventGenerate("<<ListboxSelect>>"); -} - -# end of Tk::Listbox::SelectAll -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al deleted file mode 100755 index 25e4f596592..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 862 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SetList.al)" -# Perl/Tk extensions: -sub SetList -{ - my $w = shift; - $w->delete(0,'end'); - $w->insert('end',@_); -} - -# end of Tk::Listbox::SetList -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al deleted file mode 100755 index 8c147e8eac8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 160 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\TIEARRAY.al)" -sub TIEARRAY { - my ( $class, $obj, %options ) = @_; - return bless { - OBJECT => \$obj, - OPTION => \%options }, $class; -} - -# end of Tk::Listbox::TIEARRAY -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al deleted file mode 100755 index 9cedf047c7f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 169 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\TIESCALAR.al)" -sub TIESCALAR { - my ( $class, $obj, %options ) = @_; - return bless { - OBJECT => \$obj, - OPTION => \%options }, $class; -} - -# end of Tk::Listbox::TIESCALAR -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al deleted file mode 100755 index 10d6bae86ec..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 347 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\UNSHIFT.al)" -# UNSHIFT -# ------- -# Insert elements at the beginning of the Listbox -sub UNSHIFT { - my ( $class, @list ) = @_; - ${$class->{OBJECT}}->insert(0, @list); -} - -# end of Tk::Listbox::UNSHIFT -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al deleted file mode 100755 index 7ffbfebf4e1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al +++ /dev/null @@ -1,41 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 716 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\UpDown.al)" -# UpDown -- -# -# Moves the location cursor (active element) up or down by one element, -# and changes the selection if we're in browse or extended selection -# mode. -# -# Arguments: -# w - The listbox widget. -# amount - +1 to move down one item, -1 to move back one item. -sub UpDown -{ - my $w = shift; - my $amount = shift; - $w->activate($w->index('active')+$amount); - $w->see('active'); - my $mode = $w->cget('-selectmode'); - if ($mode eq 'browse') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active'); - $w->eventGenerate("<<ListboxSelect>>"); - } - elsif ($mode eq 'extended') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active'); - $w->selectionAnchor('active'); - $Prev = $w->index('active'); - @Selection = (); - $w->eventGenerate("<<ListboxSelect>>"); - } -} - -# end of Tk::Listbox::UpDown -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix deleted file mode 100755 index 0cd2e67037c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix +++ /dev/null @@ -1,56 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Listbox.pm -# (file acts as timestamp) -package Tk::Listbox; -sub TIEARRAY ; -sub TIESCALAR ; -sub FETCH ; -sub FETCHSIZE ; -sub STORE ; -sub CLEAR ; -sub EXTEND ; -sub PUSH ; -sub POP ; -sub SHIFT ; -sub UNSHIFT ; -sub DELETE ; -sub EXISTS ; -sub SPLICE ; -sub xyIndex -; -sub ButtonRelease_1 -; -sub Cntrl_Home -; -sub Cntrl_End -; -sub Cntrl_backslash -; -sub BeginSelect -; -sub Motion -; -sub BeginExtend -; -sub BeginToggle -; -sub AutoScan -; -sub UpDown -; -sub ExtendUpDown -; -sub DataExtend -; -sub Cancel -; -sub SelectAll -; -sub SetList -; -sub deleteSelected -; -sub clipboardPaste -; -sub getSelected -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/clipboardPaste.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/clipboardPaste.al deleted file mode 100755 index 28f0bd731de..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/clipboardPaste.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 880 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\clipboardPaste.al)" -sub clipboardPaste -{ - my $w = shift; - my $index = $w->index('active') || $w->index($w->XEvent->xy); - my $str; - eval {local $SIG{__DIE__}; $str = $w->clipboardGet }; - return if $@; - foreach (split("\n",$str)) - { - $w->insert($index++,$_); - } -} - -# end of Tk::Listbox::clipboardPaste -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/deleteSelected.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/deleteSelected.al deleted file mode 100755 index 45bdfe73221..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/deleteSelected.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 870 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\deleteSelected.al)" -sub deleteSelected -{ - my $w = shift; - my $i; - foreach $i (reverse $w->curselection) - { - $w->delete($i); - } -} - -# end of Tk::Listbox::deleteSelected -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/getSelected.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/getSelected.al deleted file mode 100755 index a729a713d3e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/getSelected.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 893 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\getSelected.al)" -sub getSelected -{ - my ($w) = @_; - my $i; - my (@result) = (); - foreach $i ($w->curselection) - { - push(@result,$w->get($i)); - } - return (wantarray) ? @result : $result[0]; -} - -1; -__END__ - - -1; -# end of Tk::Listbox::getSelected diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al deleted file mode 100755 index 5689afdb6ef..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 450 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\xyIndex.al)" -# ---- - -# -# Bind -- -# This procedure is invoked the first time the mouse enters a listbox -# widget or a listbox widget receives the input focus. It creates -# all of the class bindings for listboxes. -# -# Arguments: -# event - Indicates which event caused the procedure to be invoked -# (Enter or FocusIn). It is used so that we can carry out -# the functions of that event in addition to setting up -# bindings. - -sub xyIndex -{ - my $w = shift; - my $Ev = $w->XEvent; - return $w->index($Ev->xy); -} - -# end of Tk::Listbox::xyIndex -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll Binary files differdeleted file mode 100755 index c7df93046c8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll Binary files differdeleted file mode 100755 index 77fc594dfe1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll Binary files differdeleted file mode 100755 index a2e01d50b00..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll Binary files differdeleted file mode 100755 index 2f1ab5d5781..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Receive.al b/Master/tlpkg/tlperl/lib/auto/Tk/Receive.al deleted file mode 100755 index b4551cb8ee4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Receive.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 763 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Receive.al)" -# If we have sub Clipboard in Tk then use base qw(Tk::Clipboard ....) -# calls it when it does its eval "require $base" -#sub Clipboard -#{my $w = shift; -# my $cmd = shift; -# croak "Use clipboard\u$cmd()"; -#} - -sub Receive -{ - my $w = shift; - warn 'Receive(' . join(',',@_) .')'; - die 'Tk rejects send(' . join(',',@_) .")\n"; -} - -# end of Tk::Receive -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al b/Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al deleted file mode 100755 index 2f13fee43a1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 515 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\RepeatId.al)" -sub RepeatId -{ - my ($w,$id) = @_; - $w = $w->MainWindow; - $w->CancelRepeat; - $w->{_afterId_} = $id; -} - -# end of Tk::RepeatId -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al deleted file mode 100755 index 500358c8e0e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al +++ /dev/null @@ -1,33 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 86 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Activate.al)" -# Activate -- -# This procedure is invoked to check a given x-y position in the -# scale and activate the slider if the x-y position falls within -# the slider. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates. -sub Activate -{ - my $w = shift; - my $x = shift; - my $y = shift; - return if ($w->cget('-state') eq 'disabled'); - my $ident = $w->identify($x,$y); - if (defined($ident) && $ident eq 'slider') - { - $w->configure(-state => 'active') - } - else - { - $w->configure(-state => 'normal') - } -} - -# end of Tk::Scale::Activate -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al deleted file mode 100755 index 61ed6f32c11..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al +++ /dev/null @@ -1,40 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 138 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonDown.al)" -# ButtonDown -- -# This procedure is invoked when a button is pressed in a scale. It -# takes different actions depending on where the button was pressed. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates of button press. -sub ButtonDown -{ - my $w = shift; - my $x = shift; - my $y = shift; - $Tk::dragging = 0; - $el = $w->identify($x,$y); - return unless ($el); - if ($el eq 'trough1') - { - $w->Increment('up','little','initial') - } - elsif ($el eq 'trough2') - { - $w->Increment('down','little','initial') - } - elsif ($el eq 'slider') - { - $Tk::dragging = 1; - my @coords = $w->coords(); - $Tk::deltaX = $x-$coords[0]; - $Tk::deltaY = $y-$coords[1]; - } -} - -# end of Tk::Scale::ButtonDown -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al deleted file mode 100755 index d5a22a77a46..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al +++ /dev/null @@ -1,16 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 129 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonUp.al)" -sub ButtonUp -{ - my ($w,$x,$y) = @_; - $w->CancelRepeat(); - $w->EndDrag(); - $w->Activate($x,$y) -} - -# end of Tk::Scale::ButtonUp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al deleted file mode 100755 index 50d7ad8b447..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 255 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ControlPress.al)" -# ControlPress -- -# This procedure handles button presses that are made with the Control -# key down. Depending on the mouse position, it adjusts the scale -# value to one end of the range or the other. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates where the button was pressed. -sub ControlPress -{ - my ($w,$x,$y) = @_; - my $el = $w->identify($x,$y); - return unless ($el); - if ($el eq 'trough1') - { - $w->set($w->cget('-from')) - } - elsif ($el eq 'trough2') - { - $w->set($w->cget('-to')) - } -} - -1; -# end of Tk::Scale::ControlPress diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al deleted file mode 100755 index 0bc63b12879..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 169 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Drag.al)" -# Drag -- -# This procedure is called when the mouse is dragged with -# mouse button 1 down. If the drag started inside the slider -# (i.e. the scale is active) then the scale's value is adjusted -# to reflect the mouse's position. -# -# Arguments: -# w - The scale widget. -# x, y - Mouse coordinates. -sub Drag -{ - my $w = shift; - my $x = shift; - my $y = shift; - if (!$Tk::dragging) - { - return; - } - $w->set($w->get($x-$Tk::deltaX,$y-$Tk::deltaY)) -} - -# end of Tk::Scale::Drag -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al deleted file mode 100755 index 86037b86d92..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 189 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\EndDrag.al)" -# EndDrag -- -# This procedure is called to end an interactive drag of the -# slider. It just marks the drag as over. -# Arguments: -# w - The scale widget. -sub EndDrag -{ - my $w = shift; - if (!$Tk::dragging) - { - return; - } - $Tk::dragging = 0; -} - -# end of Tk::Scale::EndDrag -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al deleted file mode 100755 index 1326a5ed9a0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 118 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Enter.al)" -sub Enter -{ - my ($w,$x,$y) = @_; - if ($Tk::strictMotif) - { - $w->{'activeBg'} = $w->cget('-activebackground'); - $w->configure('-activebackground',$w->cget('-background')); - } - $w->Activate($x,$y); -} - -# end of Tk::Scale::Enter -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al deleted file mode 100755 index 76432eeaf40..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al +++ /dev/null @@ -1,61 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 203 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Increment.al)" -# Increment -- -# This procedure is invoked to increment the value of a scale and -# to set up auto-repeating of the action if that is desired. The -# way the value is incremented depends on the "dir" and "big" -# arguments. -# -# Arguments: -# w - The scale widget. -# dir - "up" means move value towards -from, "down" means -# move towards -to. -# big - Size of increments: "big" or "little". -# repeat - Whether and how to auto-repeat the action: "noRepeat" -# means don't auto-repeat, "initial" means this is the -# first action in an auto-repeat sequence, and "again" -# means this is the second repetition or later. -sub Increment -{ - my $w = shift; - my $dir = shift; - my $big = shift; - my $repeat = shift; - my $inc; - if ($big eq 'big') - { - $inc = $w->cget('-bigincrement'); - if ($inc == 0) - { - $inc = abs(($w->cget('-to')-$w->cget('-from')))/10.0 - } - if ($inc < $w->cget('-resolution')) - { - $inc = $w->cget('-resolution') - } - } - else - { - $inc = $w->cget('-resolution') - } - if (($w->cget('-from') > $w->cget('-to')) ^ ($dir eq 'up')) - { - $inc = -$inc - } - $w->set($w->get()+$inc); - if ($repeat eq 'again') - { - $w->RepeatId($w->after($w->cget('-repeatinterval'),'Increment',$w,$dir,$big,'again')); - } - elsif ($repeat eq 'initial') - { - $w->RepeatId($w->after($w->cget('-repeatdelay'),'Increment',$w,$dir,$big,'again')); - } -} - -# end of Tk::Scale::Increment -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al deleted file mode 100755 index eb6f7b69f89..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scale.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scale; - -#line 111 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Leave.al)" -sub Leave -{ - my ($w) = @_; - $w->configure('-activebackground',$w->{'activeBg'}) if ($Tk::strictMotif); - $w->configure('-state','normal') if ($w->cget('-state') eq 'active'); -} - -# end of Tk::Scale::Leave -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll Binary files differdeleted file mode 100755 index a9dbd0201f7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix deleted file mode 100755 index a5c5d2292f2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix +++ /dev/null @@ -1,22 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Scale.pm -# (file acts as timestamp) -package Tk::Scale; -sub Activate -; -sub Leave -; -sub Enter -; -sub ButtonUp -; -sub ButtonDown -; -sub Drag -; -sub EndDrag -; -sub Increment -; -sub ControlPress -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al deleted file mode 100755 index d80e2217abc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al +++ /dev/null @@ -1,55 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 116 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ButtonDown.al)" -# tkScrollButtonDown -- -# This procedure is invoked when a button is pressed in a scrollbar. -# It changes the way the scrollbar is displayed and takes actions -# depending on where the mouse is. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates. - -sub ButtonDown -{my $w = shift; - my $e = $w->XEvent; - my $element = $w->identify($e->x,$e->y); - $w->configure('-activerelief' => 'sunken'); - if ($e->b == 1 and - (defined($element) && $element eq 'slider')) - { - $w->StartDrag($e->x,$e->y); - } - elsif ($e->b == 2 and - (defined($element) && $element =~ /^(trough[12]|slider)$/o)) - { - my $pos = $w->fraction($e->x, $e->y); - my($head, $tail) = $w->get; - my $len = $tail - $head; - - $head = $pos - $len/2; - $tail = $pos + $len/2; - if ($head < 0) { - $head = 0; - $tail = $len; - } - elsif ($tail > 1) { - $head = 1 - $len; - $tail = 1; - } - $w->ScrlToPos($head); - $w->set($head, $tail); - - $w->StartDrag($e->x,$e->y); - } - else - { - $w->Select($element,'initial'); - } -} - -# end of Tk::Scrollbar::ButtonDown -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al deleted file mode 100755 index 68857548755..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al +++ /dev/null @@ -1,26 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 163 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ButtonUp.al)" -# tkScrollButtonUp -- -# This procedure is invoked when a button is released in a scrollbar. -# It cancels scans and auto-repeats that were in progress, and restores -# the way the active element is displayed. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates. - -sub ButtonUp -{my $w = shift; - my $e = $w->XEvent; - $w->CancelRepeat; - $w->configure('-activerelief' => 'raised'); - $w->EndDrag($e->x,$e->y); - $w->activate($w->identify($e->x,$e->y)); -} - -# end of Tk::Scrollbar::ButtonUp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al deleted file mode 100755 index 988f9d4a3ef..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al +++ /dev/null @@ -1,43 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 262 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Drag.al)" -# tkScrollDrag -- -# This procedure is called for each mouse motion even when the slider -# is being dragged. It notifies the associated widget if we're not -# jump scrolling, and it just updates the scrollbar if we are jump -# scrolling. -# -# Arguments: -# w - The scrollbar widget. -# x, y - The current mouse position. - -sub Drag -{ - my($w,$x,$y) = @_; - return if !defined $initPos; - my $delta = $w->delta($x-$pressX, $y-$pressY); - if ($w->cget('-jump')) - { - if (@initValues == 2) - { - $w->set($initValues[0]+$delta, $initValues[1]+$delta); - } - else - { - $delta = sprintf "%d", $delta * $initValues[0]; # round() - $initValues[2] += $delta; - $initValues[3] += $delta; - $w->set(@initValues[2,3]); - } - } - else - { - $w->ScrlToPos($initPos+$delta); - } -} - -# end of Tk::Scrollbar::Drag -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al deleted file mode 100755 index 8c401b6fc31..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 297 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\EndDrag.al)" -# tkScrollEndDrag -- -# This procedure is called to end an interactive drag of the slider. -# It scrolls the window if we're in jump mode, otherwise it does nothing. -# -# Arguments: -# w - The scrollbar widget. -# x, y - The mouse position at the end of the drag operation. - -sub EndDrag -{ - my($w,$x,$y) = @_; - return if (!defined $initPos); - if ($w->cget('-jump')) - { - my $delta = $w->delta($x-$pressX, $y-$pressY); - $w->ScrlToPos($initPos+$delta); - } - undef $initPos; -} - -# end of Tk::Scrollbar::EndDrag -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al deleted file mode 100755 index 9584a7fa34c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 86 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Enter.al)" -sub Enter -{ - my $w = shift; - my $e = $w->XEvent; - if ($Tk::strictMotif) - { - my $bg = $w->cget('-background'); - $activeBg = $w->cget('-activebackground'); - $w->configure('-activebackground' => $bg); - } - $w->activate($w->identify($e->x,$e->y)); -} - -# end of Tk::Scrollbar::Enter -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al deleted file mode 100755 index a6c5e89d91e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 99 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Leave.al)" -sub Leave -{ - my $w = shift; - if ($Tk::strictMotif) - { - $w->configure('-activebackground' => $activeBg) if (defined $activeBg) ; - } - $w->activate(''); -} - -# end of Tk::Scrollbar::Leave -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al deleted file mode 100755 index 46aac656c70..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 109 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Motion.al)" -sub Motion -{ - my $w = shift; - my $e = $w->XEvent; - $w->activate($w->identify($e->x,$e->y)); -} - -# end of Tk::Scrollbar::Motion -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al deleted file mode 100755 index 9d4018e9128..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 346 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlByPages.al)" -# tkScrlByPages -- -# This procedure tells the scrollbar's associated widget to scroll up -# or down by a given number of screenfuls. It notifies the associated -# widget in different ways for old and new command syntaxes. -# -# Arguments: -# w - The scrollbar widget. -# orient - Which kinds of scrollbars this applies to: "h" for -# horizontal, "v" for vertical, "hv" for both. -# amount - How many screens to scroll: typically 1 or -1. - -sub ScrlByPages -{ - my $w = shift; - my $orient = shift; - my $amount = shift; - my $cmd = $w->cget('-command'); - return unless (defined $cmd); - return if (index($orient,substr($w->cget('-orient'),0,1)) < 0); - my @info = $w->get; - if (@info == 2) - { - $cmd->Call('scroll',$amount,'pages'); - } - else - { - $cmd->Call($info[2]+$amount*($info[1]-1)); - } -} - -# end of Tk::Scrollbar::ScrlByPages -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al deleted file mode 100755 index a364b3e52ce..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al +++ /dev/null @@ -1,37 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 317 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlByUnits.al)" -# tkScrlByUnits -- -# This procedure tells the scrollbar's associated widget to scroll up -# or down by a given number of units. It notifies the associated widget -# in different ways for old and new command syntaxes. -# -# Arguments: -# w - The scrollbar widget. -# orient - Which kinds of scrollbars this applies to: "h" for -# horizontal, "v" for vertical, "hv" for both. -# amount - How many units to scroll: typically 1 or -1. - -sub ScrlByUnits -{my $w = shift; - my $orient = shift; - my $amount = shift; - my $cmd = $w->cget('-command'); - return unless (defined $cmd); - return if (index($orient,substr($w->cget('-orient'),0,1)) < 0); - my @info = $w->get; - if (@info == 2) - { - $cmd->Call('scroll',$amount,'units'); - } - else - { - $cmd->Call($info[2]+$amount); - } -} - -# end of Tk::Scrollbar::ScrlByUnits -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al deleted file mode 100755 index e277237953e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al +++ /dev/null @@ -1,35 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 376 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlToPos.al)" -# tkScrlToPos -- -# This procedure tells the scrollbar's associated widget to scroll to -# a particular location, given by a fraction between 0 and 1. It notifies -# the associated widget in different ways for old and new command syntaxes. -# -# Arguments: -# w - The scrollbar widget. -# pos - A fraction between 0 and 1 indicating a desired position -# in the document. - -sub ScrlToPos -{ - my $w = shift; - my $pos = shift; - my $cmd = $w->cget('-command'); - return unless (defined $cmd); - my @info = $w->get; - if (@info == 2) - { - $cmd->Call('moveto',$pos); - } - else - { - $cmd->Call(int($info[0]*$pos)); - } -} - -# end of Tk::Scrollbar::ScrlToPos -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al deleted file mode 100755 index 7a00efe616f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 403 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlTopBottom.al)" -# tkScrlTopBottom -# Scroll to the top or bottom of the document, depending on the mouse -# position. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates within the widget. - -sub ScrlTopBottom -{ - my $w = shift; - my $e = $w->XEvent; - my $element = $w->identify($e->x,$e->y); - return unless ($element); - if ($element =~ /1$/) - { - $w->ScrlToPos(0); - } - elsif ($element =~ /2$/) - { - $w->ScrlToPos(1); - } -} - -1; -# end of Tk::Scrollbar::ScrlTopBottom diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll Binary files differdeleted file mode 100755 index f069631d631..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al deleted file mode 100755 index 0da50da443b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al +++ /dev/null @@ -1,59 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 181 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Select.al)" -# tkScrollSelect -- -# This procedure is invoked when button 1 is pressed over the scrollbar. -# It invokes one of several scrolling actions depending on where in -# the scrollbar the button was pressed. -# -# Arguments: -# w - The scrollbar widget. -# element - The element of the scrollbar that was selected, such -# as "arrow1" or "trough2". Shouldn't be "slider". -# repeat - Whether and how to auto-repeat the action: "noRepeat" -# means don't auto-repeat, "initial" means this is the -# first action in an auto-repeat sequence, and "again" -# means this is the second repetition or later. - -sub Select -{ - my $w = shift; - my $element = shift; - my $repeat = shift; - return unless defined ($element); - if ($element eq 'arrow1') - { - $w->ScrlByUnits('hv',-1); - } - elsif ($element eq 'trough1') - { - $w->ScrlByPages('hv',-1); - } - elsif ($element eq 'trough2') - { - $w->ScrlByPages('hv', 1); - } - elsif ($element eq 'arrow2') - { - $w->ScrlByUnits('hv', 1); - } - else - { - return; - } - - if ($repeat eq 'again') - { - $w->RepeatId($w->after($w->cget('-repeatinterval'),['Select',$w,$element,'again'])); - } - elsif ($repeat eq 'initial') - { - $w->RepeatId($w->after($w->cget('-repeatdelay'),['Select',$w,$element,'again'])); - } -} - -# end of Tk::Scrollbar::Select -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/StartDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/StartDrag.al deleted file mode 100755 index 32edbfdef24..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/StartDrag.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Scrollbar; - -#line 232 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\StartDrag.al)" -# tkScrollStartDrag -- -# This procedure is called to initiate a drag of the slider. It just -# remembers the starting position of the slider. -# -# Arguments: -# w - The scrollbar widget. -# x, y - The mouse position at the start of the drag operation. - -sub StartDrag -{ - my($w,$x,$y) = @_; - return unless (defined ($w->cget('-command'))); - $pressX = $x; - $pressY = $y; - @initValues = $w->get; - my $iv0 = $initValues[0]; - if (@initValues == 2) - { - $initPos = $iv0; - } - elsif ($iv0 == 0) - { - $initPos = 0; - } - else - { - $initPos = $initValues[2]/$initValues[0]; - } -} - -# end of Tk::Scrollbar::StartDrag -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/autosplit.ix deleted file mode 100755 index 293d1322dd4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/autosplit.ix +++ /dev/null @@ -1,30 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Scrollbar.pm -# (file acts as timestamp) -package Tk::Scrollbar; -sub Enter -; -sub Leave -; -sub Motion -; -sub ButtonDown -; -sub ButtonUp -; -sub Select -; -sub StartDrag -; -sub Drag -; -sub EndDrag -; -sub ScrlByUnits -; -sub ScrlByPages -; -sub ScrlToPos -; -sub ScrlTopBottom -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Selection.al b/Master/tlpkg/tlperl/lib/auto/Tk/Selection.al deleted file mode 100755 index d9be0b224bd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Selection.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 753 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Selection.al)" -# These wrappers don't use method syntax so need to live -# in same package as raw Tk routines are newXS'ed into. - -sub Selection -{my $widget = shift; - my $cmd = shift; - croak 'Use SelectionOwn/SelectionOwner' if ($cmd eq 'own'); - croak "Use Selection\u$cmd()"; -} - -# end of Tk::Selection -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll Binary files differdeleted file mode 100755 index d6282c14837..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al deleted file mode 100755 index 5e4ee32401a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 535 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Create.al)" -sub Create -{ - my $t = shift; - my $r = shift; - my $c = shift; - my $kind = shift; - $t->put($r,$c,$t->$kind(@_)); -} - -# end of Tk::Table::Create -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al deleted file mode 100755 index b02293300fe..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 554 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Posn.al)" -sub Posn -{ - my ($t,$s) = @_; - my $info = $t->{Slave}{$s->PathName}; - return (wantarray) ? @$info : $info; -} - -# end of Tk::Table::Posn -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix deleted file mode 100755 index 1616ae28e83..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix +++ /dev/null @@ -1,14 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Table.pm -# (file acts as timestamp) -package Tk::Table; -sub Create -; -sub totalColumns -; -sub totalRows -; -sub Posn -; -sub see -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al deleted file mode 100755 index 49b89a219f1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al +++ /dev/null @@ -1,46 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 561 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\see.al)" -sub see -{ - my $t = shift; - my ($row,$col) = (@_ == 2) ? @_ : @{$t->{Slave}{$_[0]->PathName}}; - my $see = 1; - if (($row -= $t->cget('-fixedrows')) >= 0) - { - if ($row < $t->{Top}) - { - $t->{Top} = $row; - $t->QueueLayout(_ViewChange); - $see = 0; - } - elsif ($row >= $t->{Bottom}) - { - $t->{Top} += ($row - $t->{Bottom}+1); - $t->QueueLayout(_ViewChange); - $see = 0; - } - } - if (($col -= $t->cget('-fixedcolumns')) >= 0) - { - if ($col < $t->{Left}) - { - $t->{Left} = $col; - $t->QueueLayout(_ViewChange); - $see = 0; - } - elsif ($col >= $t->{Right}) - { - $t->{Left} += ($col - $t->{Right}+1); - $t->QueueLayout(_ViewChange); - $see = 0; - } - } - return $see; -} - -1; -# end of Tk::Table::see diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al deleted file mode 100755 index 915c55be8c5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 544 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalColumns.al)" -sub totalColumns -{ - scalar @{shift->{'Width'}}; -} - -# end of Tk::Table::totalColumns -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al deleted file mode 100755 index 358f63e01b8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 549 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalRows.al)" -sub totalRows -{ - scalar @{shift->{'Height'}}; -} - -# end of Tk::Table::totalRows -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll Binary files differdeleted file mode 100755 index 21cfeb1a5f3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix deleted file mode 100755 index 48a5455c34a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\blib\lib\Tk\Text.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix deleted file mode 100755 index d7c2cbff9ec..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\TextEdit.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix deleted file mode 100755 index 3aef3c081a4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\TextUndo.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll Binary files differdeleted file mode 100755 index 4cc5280be95..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll Binary files differdeleted file mode 100755 index 59f2b0fee6c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al deleted file mode 100755 index 8a0a0a6c911..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 128 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_BindIn.al)" -# tkFocusGroup_BindIn -- -# -# Add a widget into the "FocusIn" list of the focus group. The $cmd will be -# called when the widget is focused on by the user. -# -sub FG_BindIn { - my($t, $w, $cmd) = @_; - $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'}); - $t->{'_FocusIn'}{$w} = Tk::Callback->new($cmd); -} - -# end of Tk::Toplevel::FG_BindIn -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al deleted file mode 100755 index d7fb14d40dc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 139 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_BindOut.al)" -# tkFocusGroup_BindOut -- -# -# Add a widget into the "FocusOut" list of the focus group. The -# $cmd will be called when the widget loses the focus (User -# types Tab or click on another widget). -# -sub FG_BindOut { - my($t, $w, $cmd) = @_; - $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'}); - $t->{'_FocusOut'}{$w} = Tk::Callback->new($cmd); -} - -# end of Tk::Toplevel::FG_BindOut -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al deleted file mode 100755 index 34bb933cfa0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al +++ /dev/null @@ -1,56 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 80 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Create.al)" -#---------------------------------------------------------------------- -# -# Focus Group -# -# Focus groups are used to handle the user's focusing actions inside a -# toplevel. -# -# One example of using focus groups is: when the user focuses on an -# entry, the text in the entry is highlighted and the cursor is put to -# the end of the text. When the user changes focus to another widget, -# the text in the previously focused entry is validated. -# - -#---------------------------------------------------------------------- -# tkFocusGroup_Create -- -# -# Create a focus group. All the widgets in a focus group must be -# within the same focus toplevel. Each toplevel can have only -# one focus group, which is identified by the name of the -# toplevel widget. -# -sub FG_Create { - my $t = shift; - unless (exists $t->{'_fg'}) { - $t->{'_fg'} = 1; - $t->bind('<FocusIn>', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_In($w, $Ev->d); - } - ); - $t->bind('<FocusOut>', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_Out($w, $Ev->d); - } - ); - $t->bind('<Destroy>', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_Destroy($w); - } - ); - # <Destroy> is not sufficient to break loops if never mapped. - $t->OnDestroy([$t,'FG_Destroy']); - } -} - -# end of Tk::Toplevel::FG_Create -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al deleted file mode 100755 index e0af457799f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 151 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Destroy.al)" -# tkFocusGroup_Destroy -- -# -# Cleans up when members of the focus group is deleted, or when the -# toplevel itself gets deleted. -# -sub FG_Destroy { - my($t, $w) = @_; - if (!defined($w) || $t == $w) { - delete $t->{'_fg'}; - delete $t->{'_focus'}; - delete $t->{'_FocusOut'}; - delete $t->{'_FocusIn'}; - } else { - if (exists $t->{'_focus'}) { - delete $t->{'_focus'} if ($t->{'_focus'} == $w); - } - delete $t->{'_FocusIn'}{$w}; - delete $t->{'_FocusOut'}{$w}; - } -} - -# end of Tk::Toplevel::FG_Destroy -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al deleted file mode 100755 index 74cf18b9b9d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 172 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_In.al)" -# tkFocusGroup_In -- -# -# Handles the <FocusIn> event. Calls the FocusIn command for the newly -# focused widget in the focus group. -# -sub FG_In { - my($t, $w, $detail) = @_; - if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) { - # This is already in focus - return; - } else { - $t->{'_focus'} = $w; - $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w}; - } -} - -# end of Tk::Toplevel::FG_In -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al deleted file mode 100755 index 9dfaffe9d2e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al +++ /dev/null @@ -1,32 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Toplevel.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Toplevel; - -#line 188 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Out.al)" -# tkFocusGroup_Out -- -# -# Handles the <FocusOut> event. Checks if this is really a lose -# focus event, not one generated by the mouse moving out of the -# toplevel window. Calls the FocusOut command for the widget -# who loses its focus. -# -sub FG_Out { - my($t, $w, $detail) = @_; - if ($detail ne 'NotifyNonlinear' and $detail ne 'NotifyNonlinearVirtual') { - # This is caused by mouse moving out of the window - return; - } - unless (exists $t->{'_FocusOut'}{$w}) { - return; - } else { - $t->{'_FocusOut'}{$w}->Call; - delete $t->{'_focus'}; - } -} - -1; - -__END__ -1; -# end of Tk::Toplevel::FG_Out diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix deleted file mode 100755 index 859b90d9a40..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix +++ /dev/null @@ -1,10 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Toplevel.pm -# (file acts as timestamp) -package Tk::Toplevel; -sub FG_Create ; -sub FG_BindIn ; -sub FG_BindOut ; -sub FG_Destroy ; -sub FG_In ; -sub FG_Out ; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al deleted file mode 100755 index 73412e5dc58..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 722 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\TraverseToMenu.al)" -# tkTraverseToMenu -- -# This procedure implements keyboard traversal of menus. Given an -# ASCII character "char", it looks for a menubutton with that character -# underlined. If one is found, it posts the menubutton's menu -# -# Arguments: -# w - Window in which the key was typed (selects -# a toplevel window). -# char - Character that selects a menu. The case -# is ignored. If an empty string, nothing -# happens. -sub TraverseToMenu -{ - my $w = shift; - my $char = shift; - return unless(defined $char && $char ne ''); - $w = $w->toplevel->FindMenu($char); -} - -# end of Tk::TraverseToMenu -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al deleted file mode 100755 index 91c49d8511e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al +++ /dev/null @@ -1,30 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1508 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\ASkludge.al)" -sub ASkludge -{ - my ($hash,$sense) = @_; - foreach my $key (%$hash) - { - if ($key =~ /-.*variable/ && ref($hash->{$key}) eq 'SCALAR') - { - if ($sense) - { - my $val = ${$hash->{$key}}; - require Tie::Scalar; - tie ${$hash->{$key}},'Tie::StdScalar'; - ${$hash->{$key}} = $val; - } - else - { - untie ${$hash->{$key}}; - } - } - } -} - -# end of Tk::Widget::ASkludge -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al deleted file mode 100755 index 463a8da2c6b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1672 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\AltKeyInDialog.al)" -# ::tk::AltKeyInDialog -- -# <Alt-Key> event handler for standard dialogs. Sends <<AltUnderlined>> -# to button or label which has appropriate underlined character -# -sub AltKeyInDialog -{ - my ($w, $key) = @_; - my $target = $w->FindAltKeyTarget($key); - return if !$target; - $target->eventGenerate('<<AltUnderlined>>'); -} - -# end of Tk::Widget::AltKeyInDialog -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al deleted file mode 100755 index c98f42d38db..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al +++ /dev/null @@ -1,36 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1614 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\AmpWidget.al)" -# ::tk::AmpWidget -- -# Creates new widget, turning -text option into -text and -# -underline options, returned by ::tk::UnderlineAmpersand. -# -sub AmpWidget -{ - my ($w,$class,%args) = @_; - my @options; - while(my($opt,$val) = each %args) - { - if ($opt eq "-text") - { - my ($newtext,$under) = $w->UnderlineAmpersand($val); - push @options, -text => $newtext, -underline => $under; - } - else - { - push @options, $opt, $val; - } - } - my $result = $w->$class(@options); - if ($result->can('AmpWidgetPostHook')) - { - $result->AmpWidgetPostHook; - } - return $result; -} - -# end of Tk::Widget::AmpWidget -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al deleted file mode 100755 index c152adb0347..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1642 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\FindAltKeyTarget.al)" -# ::tk::FindAltKeyTarget -- -# search recursively through the hierarchy of visible widgets -# to find button or label which has $char as underlined character -# -sub FindAltKeyTarget -{ - my ($w,$char) = @_; - $char = lc $char; - if ($w->isa('Tk::Button') || $w->isa('Tk::Label')) - { - if ($char eq lc substr($w->cget(-text), $w->cget(-underline), 1)) - { - return $w; - } - else - { - return undef; - } - } - else - { - for my $cw ($w->gridSlaves, $w->packSlaves, $w->placeSlaves) # Cannot handle $w->formSlaves here? - { - my $target = $cw->FindAltKeyTarget($char); - return $target if ($target); - } - } - undef; -} - -# end of Tk::Widget::FindAltKeyTarget -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al deleted file mode 100755 index 510e8bb6b5c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1765 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\MasterMenu.al)" -# See http://rt.cpan.org/Ticket/Display.html?id=30929 and -# http://rt.cpan.org/Ticket/Display.html?id=31016 -sub MasterMenu - { - } - -1; -# end of Tk::Widget::MasterMenu diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al deleted file mode 100755 index 3744f3fcb33..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al +++ /dev/null @@ -1,59 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1714 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\RestoreFocusGrab.al)" -# ::tk::RestoreFocusGrab -- -# restore old focus and grab (for dialogs) -# Arguments: -# grab window that had taken grab -# focus window that had taken focus -# destroy destroy|withdraw - how to handle the old grabbed window -# Results: -# Returns nothing -# -sub RestoreFocusGrab -{ - my ($grab, $focus, $destroy) = @_; - $destroy = 'destroy' if !$destroy; - my $index = "$grab,$focus"; - my ($oldFocus, $oldGrab, $oldStatus); - if (exists $Tk::FocusGrab{$index}) - { - ($oldFocus, $oldGrab, $oldStatus) = $Tk::FocusGrab{$index}; - delete $Tk::FocusGrab{$index}; - } - else - { - $oldGrab = ""; - } - - Tk::catch { $oldFocus->focus }; - if (Tk::Exists($grab)) - { - $grab->grabRelease; - if ($destroy eq "withdraw") - { - $grab->withdraw; - } - else - { - $grab->destroy; - } - } - if (Tk::Exists($oldGrab) && $oldGrab->ismapped) - { - if ($oldStatus eq "global") - { - $oldGrab->grabGlobal; - } - else - { - $oldGrab->grab; - } - } -} - -# end of Tk::Widget::RestoreFocusGrab -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al deleted file mode 100755 index 01029718d24..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1603 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\SetAmpText.al)" -# ::tk::SetAmpText -- -# Given widget path and text with "magic ampersands", -# sets -text and -underline options for the widget -# -sub SetAmpText -{ - my ($w,$text) = @_; - my ($newtext,$under) = $w->UnderlineAmpersand($text); - $w->configure(-text => $newtext, -underline => $under); -} - -# end of Tk::Widget::SetAmpText -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetFocusGrab.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetFocusGrab.al deleted file mode 100755 index 3aa45d65312..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetFocusGrab.al +++ /dev/null @@ -1,38 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1684 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\SetFocusGrab.al)" -# ::tk::SetFocusGrab -- -# swap out current focus and grab temporarily (for dialogs) -# Arguments: -# grab new window to grab -# focus window to give focus to -# Results: -# Returns nothing -# -sub SetFocusGrab -{ - my ($grab,$focus) = @_; - my $index = "$grab,$focus"; - $Tk::FocusGrab{$index} ||= []; - my $data = $Tk::FocusGrab{$index}; - push @$data, $grab->focusCurrent; - my $oldGrab = $grab->grabCurrent; - push @$data, $oldGrab; - if (Tk::Exists($oldGrab)) - { - push @$data, $oldGrab->grabStatus; - } - # The "grab" command will fail if another application - # already holds the grab. So catch it. - Tk::catch { $grab->grab }; - if (Tk::Exists($focus)) - { - $focus->focus; - } -} - -# end of Tk::Widget::SetFocusGrab -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al deleted file mode 100755 index f1eee316c7a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1582 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\UnderlineAmpersand.al)" -# ::tk::UnderlineAmpersand -- -# This procedure takes some text with ampersand and returns -# text w/o ampersand and position of the ampersand. -# Double ampersands are converted to single ones. -# Position returned is -1 when there is no ampersand. -# -sub UnderlineAmpersand -{ - my (undef,$text) = @_; - if ($text =~ m{(?<!&)&(?!&)}g) - { - my $idx = pos $text; - $text =~ s{(?<!&)&(?!&)}{}; - ($text, $idx); - } - else - { - ($text, -1); - } -} - -# end of Tk::Widget::UnderlineAmpersand -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix deleted file mode 100755 index 7844cc0b25e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix +++ /dev/null @@ -1,27 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Widget.pm -# (file acts as timestamp) -package Tk::Widget; -sub bindDump ; -sub ASkludge -; -sub clipboardKeysyms -; -sub pathname -; -sub UnderlineAmpersand -; -sub SetAmpText -; -sub AmpWidget -; -sub FindAltKeyTarget -; -sub AltKeyInDialog -; -sub SetFocusGrab -; -sub RestoreFocusGrab -; -sub MasterMenu -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al deleted file mode 100755 index b39fac08fc0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al +++ /dev/null @@ -1,87 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1428 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\bindDump.al)" -sub bindDump { - - # Dump lots of good binding information. This pretty-print subroutine - # is, essentially, the following code in disguise: - # - # print "Binding information for $w\n"; - # foreach my $tag ($w->bindtags) { - # printf "\n Binding tag '$tag' has these bindings:\n"; - # foreach my $binding ($w->bind($tag)) { - # printf " $binding\n"; - # } - # } - - my ($w) = @_; - - my (@bindtags) = $w->bindtags; - my $digits = length( scalar @bindtags ); - my ($spc1, $spc2) = ($digits + 33, $digits + 35); - my $format1 = "%${digits}d."; - my $format2 = ' ' x ($digits + 2); - my $n = 0; - - my @out; - push @out, sprintf( "\n## Binding information for '%s', %s ##", $w->PathName, $w ); - - foreach my $tag (@bindtags) { - my (@bindings) = $w->bind($tag); - $n++; # count this bindtag - - if ($#bindings == -1) { - push @out, sprintf( "\n$format1 Binding tag '$tag' has no bindings.\n", $n ); - } else { - push @out, sprintf( "\n$format1 Binding tag '$tag' has these bindings:\n", $n ); - - foreach my $binding ( @bindings ) { - my $callback = $w->bind($tag, $binding); - push @out, sprintf( "$format2%27s : %-40s\n", $binding, $callback ); - - if ($callback =~ /SCALAR/) { - if (ref $$callback) { - push @out, sprintf( "%s %s\n", ' ' x $spc1, $$callback ); - } else { - push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $$callback ); - } - } elsif ($callback =~ /ARRAY/) { - if (ref $callback->[0]) { - push @out, sprintf( "%s %s\n", ' ' x $spc1, $callback->[0], "\n" ); - } else { - push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0], "\n" ); - } - foreach my $arg (@$callback[1 .. $#$callback]) { - if (ref $arg) { - push @out, sprintf( "%s %-40s", ' ' x $spc2, $arg ); - } else { - push @out, sprintf( "%s '%s'", ' ' x $spc2, $arg ); - } - - if (ref $arg eq 'Tk::Ev') { - if ($arg =~ /SCALAR/) { - push @out, sprintf( ": '$$arg'" ); - } else { - push @out, sprintf( ": '%s'", join("' '", @$arg) ); - } - } - - push @out, sprintf( "\n" ); - } # forend callback arguments - } # ifend callback - - } # forend all bindings for one tag - - } # ifend have bindings - - } # forend all tags - push @out, sprintf( "\n" ); - return @out; - -} # end bindDump - -# end of Tk::Widget::bindDump -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al deleted file mode 100755 index 538fa0e42d8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al +++ /dev/null @@ -1,51 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1532 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\clipboardKeysyms.al)" -# clipboardKeysyms -- -# This procedure is invoked to identify the keys that correspond to -# the "copy", "cut", and "paste" functions for the clipboard. -# -# Arguments: -# copy - Name of the key (keysym name plus modifiers, if any, -# such as "Meta-y") used for the copy operation. -# cut - Name of the key used for the cut operation. -# paste - Name of the key used for the paste operation. -# -# This method is obsolete use clipboardOperations and abstract -# event types instead. See Clipboard.pm and Mainwindow.pm - -sub clipboardKeysyms -{ - my @class = (); - my $mw = shift; - if (ref $mw) - { - $mw = $mw->DelegateFor('bind'); - } - else - { - push(@class,$mw); - $mw = shift; - } - if (@_) - { - my $copy = shift; - $mw->Tk::bind(@class,"<$copy>",'clipboardCopy') if (defined $copy); - } - if (@_) - { - my $cut = shift; - $mw->Tk::bind(@class,"<$cut>",'clipboardCut') if (defined $cut); - } - if (@_) - { - my $paste = shift; - $mw->Tk::bind(@class,"<$paste>",'clipboardPaste') if (defined $paste); - } -} - -# end of Tk::Widget::clipboardKeysyms -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al deleted file mode 100755 index 10ac95fa2c6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Widget.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Widget; - -#line 1575 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\pathname.al)" -sub pathname -{ - my ($w,$id) = @_; - my $x = $w->winfo('pathname',-displayof => oct($id)); - return $x->PathName; -} - -# end of Tk::Widget::pathname -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al deleted file mode 100755 index 538612878ed..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 87 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\AnchorAdjust.al)" -sub AnchorAdjust -{ - my ($anchor,$X,$Y,$w,$h) = @_; - $anchor = 'c' unless (defined $anchor); - $Y += ($anchor =~ /s/) ? $h : ($anchor =~ /n/) ? 0 : $h/2; - $X += ($anchor =~ /e/) ? $w : ($anchor =~ /w/) ? 0 : $w/2; - return ($X,$Y); -} - -# end of Tk::Wm::AnchorAdjust -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al deleted file mode 100755 index 4d5702cc60d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al +++ /dev/null @@ -1,29 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 138 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\FullScreen.al)" -sub FullScreen -{ - my $w = shift; - my $over = (@_) ? shift : 0; - my $width = $w->screenwidth; - my $height = $w->screenheight; - $w->GeometryRequest($width,$height); - $w->overrideredirect($over & 1); - $w->Post(0,0); - $w->update; - if ($over & 2) - { - my $x = $w->rootx; - my $y = $w->rooty; - $width -= 2*$x; - $height -= $x + $y; - $w->GeometryRequest($width,$height); - $w->update; - } -} - -# end of Tk::Wm::FullScreen -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al deleted file mode 100755 index 3f460c5bac6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al +++ /dev/null @@ -1,50 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 96 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Popup.al)" -sub Popup -{ - my $w = shift; - $w->configure(@_) if @_; - $w->idletasks; - my ($mw,$mh) = ($w->reqwidth,$w->reqheight); - my ($rx,$ry,$rw,$rh) = (0,0,0,0); - my $base = $w->cget('-popover'); - my $outside = 0; - if (defined $base) - { - if ($base eq 'cursor') - { - ($rx,$ry) = $w->pointerxy; - } - else - { - $rx = $base->rootx; - $ry = $base->rooty; - $rw = $base->Width; - $rh = $base->Height; - } - } - else - { - my $sc = ($w->parent) ? $w->parent->toplevel : $w; - $rx = -$sc->vrootx; - $ry = -$sc->vrooty; - $rw = $w->screenwidth; - $rh = $w->screenheight; - } - my ($X,$Y) = AnchorAdjust($w->cget('-overanchor'),$rx,$ry,$rw,$rh); - ($X,$Y) = AnchorAdjust($w->cget('-popanchor'),$X,$Y,-$mw,-$mh); - # adjust to not cross screen borders - if ($X < 0) { $X = 0 } - if ($Y < 0) { $Y = 0 } - if ($mw > $w->screenwidth) { $X = 0 } - if ($mh > $w->screenheight) { $Y = 0 } - $w->Post($X,$Y); - $w->waitVisibility; -} - -# end of Tk::Wm::Popup -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al deleted file mode 100755 index f3f5c8e3e08..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 75 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Post.al)" -sub Post -{ - my ($w,$X,$Y) = @_; - $X = int($X); - $Y = int($Y); - $w->positionfrom('user'); - $w->geometry("+$X+$Y"); - # $w->MoveToplevelWindow($X,$Y); - $w->deiconify; - $w->raise; -} - -# end of Tk::Wm::Post -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix deleted file mode 100755 index 201dbe8ba99..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix +++ /dev/null @@ -1,14 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Wm.pm -# (file acts as timestamp) -package Tk::Wm; -sub Post -; -sub AnchorAdjust -; -sub Popup -; -sub FullScreen -; -sub iconposition -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al deleted file mode 100755 index 9254968f61c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Wm.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Wm; - -#line 159 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\iconposition.al)" -sub iconposition -{ - my $w = shift; - if (@_ == 1) - { - return $w->wm('iconposition',$1,$2) if $_[0] =~ /^(\d+),(\d+)$/; - if ($_[0] =~ /^([+-])(\d+)([+-])(\d+)$/) - { - my $x = ($1 eq '-') ? $w->screenwidth-$2 : $2; - my $y = ($3 eq '-') ? $w->screenheight-$4 : $4; - return $w->wm('iconposition',$x,$y); - } - } - $w->wm('iconposition',@_); -} - -1; -# end of Tk::Wm::iconposition diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll Binary files differdeleted file mode 100755 index f99eb5be549..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix deleted file mode 100755 index e63dbf19b00..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix +++ /dev/null @@ -1,3 +0,0 @@ -# Index created by AutoSplit for ..\..\blib\lib\Tk\X.pm -# (file acts as timestamp) -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll Binary files differdeleted file mode 100755 index e2b3a0d1663..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix deleted file mode 100755 index 8fb1449e58f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix +++ /dev/null @@ -1,49 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk.pm -# (file acts as timestamp) -package Tk; -sub Error -; -sub CancelRepeat -; -sub RepeatId -; -sub FocusChildren ; -sub focusNext -; -sub getNextFocus -; -sub focusPrev -; -sub getPrevFocus -; -sub FocusOK -; -sub EnterFocus -; -sub tabFocus -; -sub focusFollowsMouse -; -sub TraverseToMenu -; -sub FirstMenu -; -sub Selection -; -sub Receive -; -sub break -; -sub updateWidgets -; -sub ImageNames -; -sub ImageTypes -; -sub interps -; -sub lsearch -; -sub getEncoding -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/break.al b/Master/tlpkg/tlperl/lib/auto/Tk/break.al deleted file mode 100755 index 4aa6c220d97..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/break.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 778 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\break.al)" -sub break -{ - die "_TK_BREAK_\n"; -} - -# end of Tk::break -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al deleted file mode 100755 index 48f2d2552cc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 716 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusFollowsMouse.al)" -sub focusFollowsMouse -{ - my $widget = shift; - $widget->bind('all','<Enter>','EnterFocus'); -} - -# end of Tk::focusFollowsMouse -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al deleted file mode 100755 index a8eeb5fc55f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 552 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusNext.al)" -sub focusNext -{ - my $w = shift; - my $cur = $w->getNextFocus; - if ($cur) - { - $cur->tabFocus; - } -} - -# end of Tk::focusNext -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al deleted file mode 100755 index effc8f75110..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 597 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusPrev.al)" -# focusPrev -- -# This procedure is invoked to move the input focus to the previous -# window before a given one. "Previous" is defined in terms of the -# window stacking order, with all the windows underneath a given -# top-level (no matter how deeply nested in the hierarchy) considered. -# -# Arguments: -# w - Name of a window: the procedure will set the focus -# to the previous window before this one in the traversal -# order. -sub focusPrev -{ - my $w = shift; - my $cur = $w->getPrevFocus; - if ($cur) - { - $cur->tabFocus; - } -} - -# end of Tk::focusPrev -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al b/Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al deleted file mode 100755 index 1ac20ba8d7d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al +++ /dev/null @@ -1,43 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 820 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getEncoding.al)" -sub getEncoding -{ - my ($class,$name) = @_; - eval { require Encode }; - if ($@) - { - require Tk::DummyEncode; - return Tk::DummyEncode->getEncoding($name); - } - $name = $Tk::font_encoding{$name} if exists $Tk::font_encoding{$name}; - my $enc = Encode::find_encoding($name); - - unless ($enc) - { - $enc = Encode::find_encoding($name) if ($name =~ s/[-_]\d+$//) - } -# if ($enc) -# { -# print STDERR "Lookup '$name' => ".$enc->name."\n"; -# } -# else -# { -# print STDERR "Failed '$name'\n"; -# } - unless ($enc) - { - if ($name eq 'X11ControlChars') - { - require Tk::DummyEncode; - $Encode::encoding{$name} = $enc = Tk::DummyEncode->getEncoding($name); - } - } - return $enc; -} - -1; -# end of Tk::getEncoding diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al deleted file mode 100755 index 456c393b3c2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al +++ /dev/null @@ -1,44 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 562 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getNextFocus.al)" -sub getNextFocus -{ - my $w = shift; - my $cur = $w; - while (1) - { - # Descend to just before the first child of the current widget. - my $parent = $cur; - my @children = $cur->FocusChildren(); - my $i = -1; - # Look for the next sibling that isn't a top-level. - while (1) - { - $i += 1; - if ($i < @children) - { - $cur = $children[$i]; - next if ($cur->toplevel == $cur); - last - } - # No more siblings, so go to the current widget's parent. - # If it's a top-level, break out of the loop, otherwise - # look for its next sibling. - $cur = $parent; - last if ($cur->toplevel() == $cur); - $parent = $parent->parent(); - @children = $parent->FocusChildren(); - $i = lsearch(\@children,$cur); - } - if ($cur == $w || $cur->FocusOK) - { - return $cur; - } - } -} - -# end of Tk::getNextFocus -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al deleted file mode 100755 index 85912416379..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al +++ /dev/null @@ -1,54 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 617 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getPrevFocus.al)" -sub getPrevFocus -{ - my $w = shift; - my $cur = $w; - my @children; - my $i; - my $parent; - while (1) - { - # Collect information about the current window's position - # among its siblings. Also, if the window is a top-level, - # then reposition to just after the last child of the window. - if ($cur->toplevel() == $cur) - { - $parent = $cur; - @children = $cur->FocusChildren(); - $i = @children; - } - else - { - $parent = $cur->parent(); - @children = $parent->FocusChildren(); - $i = lsearch(\@children,$cur); - } - # Go to the previous sibling, then descend to its last descendant - # (highest in stacking order. While doing this, ignore top-levels - # and their descendants. When we run out of descendants, go up - # one level to the parent. - while ($i > 0) - { - $i--; - $cur = $children[$i]; - next if ($cur->toplevel() == $cur); - $parent = $cur; - @children = $parent->FocusChildren(); - $i = @children; - } - $cur = $parent; - if ($cur == $w || $cur->FocusOK) - { - return $cur; - } - } - -} - -# end of Tk::getPrevFocus -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/interps.al b/Master/tlpkg/tlperl/lib/auto/Tk/interps.al deleted file mode 100755 index 507c66037fd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/interps.al +++ /dev/null @@ -1,14 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 802 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\interps.al)" -sub interps -{ - my $w = shift; - return $w->winfo('interps','-displayof'); -} - -# end of Tk::interps -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al b/Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al deleted file mode 100755 index 61c82143f7b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al +++ /dev/null @@ -1,19 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 808 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\lsearch.al)" -sub lsearch -{my $ar = shift; - my $x = shift; - my $i; - for ($i = 0; $i < scalar @$ar; $i++) - { - return $i if ($$ar[$i] eq $x); - } - return -1; -} - -# end of Tk::lsearch -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld b/Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld deleted file mode 100755 index 2977aa9fd7d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\c\lib\libcomdlg32.a C:\strawberry\c\lib\libgdi32.a C:\strawberry\c\lib\libmoldname.a C:\strawberry\c\lib\libkernel32.a C:\strawberry\c\lib\libuser32.a C:\strawberry\c\lib\libgdi32.a C:\strawberry\c\lib\libwinspool.a C:\strawberry\c\lib\libcomdlg32.a C:\strawberry\c\lib\libadvapi32.a C:\strawberry\c\lib\libshell32.a C:\strawberry\c\lib\libole32.a C:\strawberry\c\lib\liboleaut32.a C:\strawberry\c\lib\libnetapi32.a C:\strawberry\c\lib\libuuid.a C:\strawberry\c\lib\libws2_32.a C:\strawberry\c\lib\libmpr.a C:\strawberry\c\lib\libwinmm.a C:\strawberry\c\lib\libversion.a C:\strawberry\c\lib\libodbc32.a C:\strawberry\c\lib\libodbccp32.a diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al deleted file mode 100755 index c01d6940cf4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 711 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\tabFocus.al)" -sub tabFocus -{ - shift->Tk::focus; -} - -# end of Tk::tabFocus -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al b/Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al deleted file mode 100755 index 980a6bbc632..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 783 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\updateWidgets.al)" -sub updateWidgets -{ - my ($w) = @_; - while ($w->DoOneEvent(DONT_WAIT|IDLE_EVENTS|WINDOW_EVENTS)) - { - } - $w; -} - -# end of Tk::updateWidgets -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tree/DAG_Node/.packlist b/Master/tlpkg/tlperl/lib/auto/Tree/DAG_Node/.packlist deleted file mode 100755 index 6388eb83be1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tree/DAG_Node/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Tree\DAG_Node.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/URI/.packlist b/Master/tlpkg/tlperl/lib/auto/URI/.packlist deleted file mode 100755 index c65e55da5d7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/URI/.packlist +++ /dev/null @@ -1,52 +0,0 @@ -C:\strawberry\perl\vendor\lib\URI.pm
-C:\strawberry\perl\vendor\lib\URI\Escape.pm
-C:\strawberry\perl\vendor\lib\URI\Heuristic.pm
-C:\strawberry\perl\vendor\lib\URI\IRI.pm
-C:\strawberry\perl\vendor\lib\URI\QueryParam.pm
-C:\strawberry\perl\vendor\lib\URI\Split.pm
-C:\strawberry\perl\vendor\lib\URI\URL.pm
-C:\strawberry\perl\vendor\lib\URI\WithBase.pm
-C:\strawberry\perl\vendor\lib\URI\_foreign.pm
-C:\strawberry\perl\vendor\lib\URI\_generic.pm
-C:\strawberry\perl\vendor\lib\URI\_idna.pm
-C:\strawberry\perl\vendor\lib\URI\_ldap.pm
-C:\strawberry\perl\vendor\lib\URI\_login.pm
-C:\strawberry\perl\vendor\lib\URI\_punycode.pm
-C:\strawberry\perl\vendor\lib\URI\_query.pm
-C:\strawberry\perl\vendor\lib\URI\_segment.pm
-C:\strawberry\perl\vendor\lib\URI\_server.pm
-C:\strawberry\perl\vendor\lib\URI\_userpass.pm
-C:\strawberry\perl\vendor\lib\URI\data.pm
-C:\strawberry\perl\vendor\lib\URI\file.pm
-C:\strawberry\perl\vendor\lib\URI\file\Base.pm
-C:\strawberry\perl\vendor\lib\URI\file\FAT.pm
-C:\strawberry\perl\vendor\lib\URI\file\Mac.pm
-C:\strawberry\perl\vendor\lib\URI\file\OS2.pm
-C:\strawberry\perl\vendor\lib\URI\file\QNX.pm
-C:\strawberry\perl\vendor\lib\URI\file\Unix.pm
-C:\strawberry\perl\vendor\lib\URI\file\Win32.pm
-C:\strawberry\perl\vendor\lib\URI\ftp.pm
-C:\strawberry\perl\vendor\lib\URI\gopher.pm
-C:\strawberry\perl\vendor\lib\URI\http.pm
-C:\strawberry\perl\vendor\lib\URI\https.pm
-C:\strawberry\perl\vendor\lib\URI\ldap.pm
-C:\strawberry\perl\vendor\lib\URI\ldapi.pm
-C:\strawberry\perl\vendor\lib\URI\ldaps.pm
-C:\strawberry\perl\vendor\lib\URI\mailto.pm
-C:\strawberry\perl\vendor\lib\URI\mms.pm
-C:\strawberry\perl\vendor\lib\URI\news.pm
-C:\strawberry\perl\vendor\lib\URI\nntp.pm
-C:\strawberry\perl\vendor\lib\URI\pop.pm
-C:\strawberry\perl\vendor\lib\URI\rlogin.pm
-C:\strawberry\perl\vendor\lib\URI\rsync.pm
-C:\strawberry\perl\vendor\lib\URI\rtsp.pm
-C:\strawberry\perl\vendor\lib\URI\rtspu.pm
-C:\strawberry\perl\vendor\lib\URI\sip.pm
-C:\strawberry\perl\vendor\lib\URI\sips.pm
-C:\strawberry\perl\vendor\lib\URI\snews.pm
-C:\strawberry\perl\vendor\lib\URI\ssh.pm
-C:\strawberry\perl\vendor\lib\URI\telnet.pm
-C:\strawberry\perl\vendor\lib\URI\tn3270.pm
-C:\strawberry\perl\vendor\lib\URI\urn.pm
-C:\strawberry\perl\vendor\lib\URI\urn\isbn.pm
-C:\strawberry\perl\vendor\lib\URI\urn\oid.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Unicode/Normalize/Normalize.dll b/Master/tlpkg/tlperl/lib/auto/Unicode/Normalize/Normalize.dll Binary files differdeleted file mode 100755 index 26b18601f3b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Unicode/Normalize/Normalize.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/API/.packlist deleted file mode 100755 index 2df7f0622c9..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/API/.packlist +++ /dev/null @@ -1,9 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32\API.pm
-C:\strawberry\perl\vendor\lib\Win32\API\Callback.pm
-C:\strawberry\perl\vendor\lib\Win32\API\Struct.pm
-C:\strawberry\perl\vendor\lib\Win32\API\Test.pm
-C:\strawberry\perl\vendor\lib\Win32\API\Type.pm
-C:\strawberry\perl\vendor\lib\auto\Win32\API\API.bs
-C:\strawberry\perl\vendor\lib\auto\Win32\API\API.dll
-C:\strawberry\perl\vendor\lib\auto\Win32\API\Callback\Callback.bs
-C:\strawberry\perl\vendor\lib\auto\Win32\API\Callback\Callback.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/API.bs b/Master/tlpkg/tlperl/lib/auto/Win32/API/API.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/API/API.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/API.dll b/Master/tlpkg/tlperl/lib/auto/Win32/API/API.dll Binary files differdeleted file mode 100755 index e8315b61e25..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/API/API.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.bs b/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.dll b/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.dll Binary files differdeleted file mode 100755 index e44e4ee127f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/API/Callback/Callback.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/.packlist deleted file mode 100755 index 7e7f1416c62..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32\EventLog.pm
-C:\strawberry\perl\vendor\lib\auto\Win32\EventLog\EventLog.bs
-C:\strawberry\perl\vendor\lib\auto\Win32\EventLog\EventLog.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/EventLog.bs b/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/EventLog.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/EventLog.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/EventLog.dll b/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/EventLog.dll Binary files differdeleted file mode 100755 index 2a7fcd2be9a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/EventLog/EventLog.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Exe/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/Exe/.packlist deleted file mode 100755 index a3c77e8bb81..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Exe/.packlist +++ /dev/null @@ -1,28 +0,0 @@ -C:\strawberry\perl\bin\exe_update.bat
-C:\strawberry\perl\bin\exe_update.pl
-C:\strawberry\perl\vendor\lib\Win32\Exe.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Base.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\DataDirectory.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\DebugDirectory.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\DebugTable.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\IconFile.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\PE.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\PE\Header.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\PE\Header\PE32.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Resource.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\ResourceData.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\ResourceEntry.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\ResourceEntry\Id.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\ResourceEntry\Name.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\ResourceTable.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Resource\GroupIcon.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Resource\Icon.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Resource\Manifest.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Resource\Version.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section\Code.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section\Data.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section\Debug.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section\Exports.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section\Imports.pm
-C:\strawberry\perl\vendor\lib\Win32\Exe\Section\Resources.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/File/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/File/.packlist deleted file mode 100755 index ca037534cda..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/File/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32\File.pm
-C:\strawberry\perl\vendor\lib\auto\Win32\File\File.bs
-C:\strawberry\perl\vendor\lib\auto\Win32\File\File.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/File/File.bs b/Master/tlpkg/tlperl/lib/auto/Win32/File/File.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/File/File.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/File/File.dll b/Master/tlpkg/tlperl/lib/auto/Win32/File/File.dll Binary files differdeleted file mode 100755 index 1e5aabc9b58..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/File/File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/File/Object/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/File/Object/.packlist deleted file mode 100755 index 7c0fdbc4fe2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/File/Object/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32\File\Object.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Process/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/Process/.packlist deleted file mode 100755 index 9bbc7669357..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Process/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32\Process.pm
-C:\strawberry\perl\vendor\lib\auto\Win32\Process\Process.bs
-C:\strawberry\perl\vendor\lib\auto\Win32\Process\Process.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Process/Process.bs b/Master/tlpkg/tlperl/lib/auto/Win32/Process/Process.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Process/Process.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Process/Process.dll b/Master/tlpkg/tlperl/lib/auto/Win32/Process/Process.dll Binary files differdeleted file mode 100755 index b2d581f7e90..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Process/Process.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/.packlist deleted file mode 100755 index 5a7d0e10df4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\site\lib\Win32\Shortcut.pm
-C:\strawberry\perl\site\lib\auto\Win32\Shortcut\Shortcut.bs
-C:\strawberry\perl\site\lib\auto\Win32\Shortcut\Shortcut.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.bs b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.dll b/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.dll Binary files differdeleted file mode 100755 index f42ad0fc380..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Shortcut/Shortcut.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/TieRegistry/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/TieRegistry/.packlist deleted file mode 100755 index 4c7c0ae0128..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/TieRegistry/.packlist +++ /dev/null @@ -1,2 +0,0 @@ -C:\strawberry\perl\vendor\lib\Tie\Registry.pm
-C:\strawberry\perl\vendor\lib\Win32\TieRegistry.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/Win32.dll b/Master/tlpkg/tlperl/lib/auto/Win32/Win32.dll Binary files differdeleted file mode 100755 index 20a3237eeec..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/Win32.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/WinError/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32/WinError/.packlist deleted file mode 100755 index 82415855e81..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/WinError/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32\WinError.pm
-C:\strawberry\perl\vendor\lib\auto\Win32\WinError\WinError.bs
-C:\strawberry\perl\vendor\lib\auto\Win32\WinError\WinError.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/WinError/WinError.bs b/Master/tlpkg/tlperl/lib/auto/Win32/WinError/WinError.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/WinError/WinError.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32/WinError/WinError.dll b/Master/tlpkg/tlperl/lib/auto/Win32/WinError/WinError.dll Binary files differdeleted file mode 100755 index d031680b972..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32/WinError/WinError.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/File/File.dll b/Master/tlpkg/tlperl/lib/auto/Win32API/File/File.dll Binary files differdeleted file mode 100755 index c894b41ab9c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32API/File/File.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/.packlist b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/.packlist deleted file mode 100755 index 2508c196ac0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\Win32API\Registry.pm
-C:\strawberry\perl\vendor\lib\Win32API\Registry\cRegistry.pc
-C:\strawberry\perl\vendor\lib\auto\Win32API\Registry\Registry.bs
-C:\strawberry\perl\vendor\lib\auto\Win32API\Registry\Registry.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.bs b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.dll b/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.dll Binary files differdeleted file mode 100755 index 6bce69614df..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32API/Registry/Registry.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Win32CORE/extralibs.ld b/Master/tlpkg/tlperl/lib/auto/Win32CORE/extralibs.ld deleted file mode 100755 index 8b137891791..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Win32CORE/extralibs.ld +++ /dev/null @@ -1 +0,0 @@ - diff --git a/Master/tlpkg/tlperl/lib/auto/XML/LibXML/.packlist b/Master/tlpkg/tlperl/lib/auto/XML/LibXML/.packlist deleted file mode 100755 index 76481f2f9bc..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/LibXML/.packlist +++ /dev/null @@ -1,43 +0,0 @@ -C:\strawberry\perl\vendor\lib\XML\LibXML.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Attr.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Boolean.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\CDATASection.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Comment.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Common.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\Common.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\DOM.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Document.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\DocumentFragment.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Dtd.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Element.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\ErrNo.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\ErrNo.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Error.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\Error.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\InputCallback.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Literal.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\Namespace.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Node.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\NodeList.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\Number.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\PI.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Parser.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Pattern.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Reader.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\Reader.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\RegExp.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\RelaxNG.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\SAX.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\SAX.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\SAX\Builder.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\SAX\Builder.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\SAX\Generator.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\SAX\Parser.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\Schema.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\Text.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\XPathContext.pm
-C:\strawberry\perl\vendor\lib\XML\LibXML\XPathContext.pod
-C:\strawberry\perl\vendor\lib\XML\LibXML\XPathExpression.pod
-C:\strawberry\perl\vendor\lib\auto\XML\LibXML\LibXML.bs
-C:\strawberry\perl\vendor\lib\auto\XML\LibXML\LibXML.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/XML/LibXML/LibXML.bs b/Master/tlpkg/tlperl/lib/auto/XML/LibXML/LibXML.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/LibXML/LibXML.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/XML/LibXML/LibXML.dll b/Master/tlpkg/tlperl/lib/auto/XML/LibXML/LibXML.dll Binary files differdeleted file mode 100755 index 02a3989984e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/LibXML/LibXML.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/.packlist b/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/.packlist deleted file mode 100755 index 023ecfe7ce8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/.packlist +++ /dev/null @@ -1,4 +0,0 @@ -C:\strawberry\perl\vendor\lib\XML\LibXSLT.pm
-C:\strawberry\perl\vendor\lib\XML\benchmark.pl
-C:\strawberry\perl\vendor\lib\auto\XML\LibXSLT\LibXSLT.bs
-C:\strawberry\perl\vendor\lib\auto\XML\LibXSLT\LibXSLT.xs.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/LibXSLT.bs b/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/LibXSLT.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/LibXSLT.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/LibXSLT.xs.dll b/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/LibXSLT.xs.dll Binary files differdeleted file mode 100755 index da8d9e4a0a0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/LibXSLT/LibXSLT.xs.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/XML/NamespaceSupport/.packlist b/Master/tlpkg/tlperl/lib/auto/XML/NamespaceSupport/.packlist deleted file mode 100755 index 01e42eadb77..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/NamespaceSupport/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\XML\NamespaceSupport.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/XML/Parser/.packlist b/Master/tlpkg/tlperl/lib/auto/XML/Parser/.packlist deleted file mode 100755 index 30ed036a473..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/Parser/.packlist +++ /dev/null @@ -1,29 +0,0 @@ -C:\strawberry\perl\vendor\lib\XML\Parser.pm
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\Japanese_Encodings.msg
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\README
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\big5.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\euc-kr.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-2.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-3.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-4.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-5.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-7.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-8.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\iso-8859-9.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\windows-1250.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\windows-1252.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\x-euc-jp-jisx0221.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\x-euc-jp-unicode.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\x-sjis-cp932.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\x-sjis-jdk117.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\x-sjis-jisx0221.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Encodings\x-sjis-unicode.enc
-C:\strawberry\perl\vendor\lib\XML\Parser\Expat.pm
-C:\strawberry\perl\vendor\lib\XML\Parser\LWPExternEnt.pl
-C:\strawberry\perl\vendor\lib\XML\Parser\Style\Debug.pm
-C:\strawberry\perl\vendor\lib\XML\Parser\Style\Objects.pm
-C:\strawberry\perl\vendor\lib\XML\Parser\Style\Stream.pm
-C:\strawberry\perl\vendor\lib\XML\Parser\Style\Subs.pm
-C:\strawberry\perl\vendor\lib\XML\Parser\Style\Tree.pm
-C:\strawberry\perl\vendor\lib\auto\XML\Parser\Expat\Expat.bs
-C:\strawberry\perl\vendor\lib\auto\XML\Parser\Expat\Expat.dll
diff --git a/Master/tlpkg/tlperl/lib/auto/XML/Parser/Expat/Expat.bs b/Master/tlpkg/tlperl/lib/auto/XML/Parser/Expat/Expat.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/Parser/Expat/Expat.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/XML/Parser/Expat/Expat.dll b/Master/tlpkg/tlperl/lib/auto/XML/Parser/Expat/Expat.dll Binary files differdeleted file mode 100755 index 6fc95748ddb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/Parser/Expat/Expat.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/XML/SAX/.packlist b/Master/tlpkg/tlperl/lib/auto/XML/SAX/.packlist deleted file mode 100755 index 1335aeded91..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/XML/SAX/.packlist +++ /dev/null @@ -1,23 +0,0 @@ -C:\strawberry\perl\vendor\lib\XML\SAX.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\Base.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\DocumentLocator.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\Exception.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\Intro.pod
-C:\strawberry\perl\vendor\lib\XML\SAX\ParserFactory.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\DTDDecls.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\DebugHandler.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\DocType.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\EncodingDetect.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Exception.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\NoUnicodeExt.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Productions.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Reader.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Reader\NoUnicodeExt.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Reader\Stream.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Reader\String.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Reader\URI.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\Reader\UnicodeExt.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\UnicodeExt.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\PurePerl\XMLDecl.pm
-C:\strawberry\perl\vendor\lib\XML\SAX\placeholder.pl
diff --git a/Master/tlpkg/tlperl/lib/auto/YAML/.packlist b/Master/tlpkg/tlperl/lib/auto/YAML/.packlist deleted file mode 100755 index 0534ff663b6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/YAML/.packlist +++ /dev/null @@ -1,13 +0,0 @@ -C:\strawberry\perl\vendor\lib\Test\YAML.pm
-C:\strawberry\perl\vendor\lib\YAML.pm
-C:\strawberry\perl\vendor\lib\YAML\Any.pm
-C:\strawberry\perl\vendor\lib\YAML\Base.pm
-C:\strawberry\perl\vendor\lib\YAML\Dumper.pm
-C:\strawberry\perl\vendor\lib\YAML\Dumper\Base.pm
-C:\strawberry\perl\vendor\lib\YAML\Error.pm
-C:\strawberry\perl\vendor\lib\YAML\Loader.pm
-C:\strawberry\perl\vendor\lib\YAML\Loader\Base.pm
-C:\strawberry\perl\vendor\lib\YAML\Marshall.pm
-C:\strawberry\perl\vendor\lib\YAML\Node.pm
-C:\strawberry\perl\vendor\lib\YAML\Tag.pm
-C:\strawberry\perl\vendor\lib\YAML\Types.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/YAML/Tiny/.packlist b/Master/tlpkg/tlperl/lib/auto/YAML/Tiny/.packlist deleted file mode 100755 index bb09f007d40..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/YAML/Tiny/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\YAML\Tiny.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/attrs/attrs.dll b/Master/tlpkg/tlperl/lib/auto/attrs/attrs.dll Binary files differdeleted file mode 100755 index cb71ac5b0f3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/attrs/attrs.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/common/sense/.packlist b/Master/tlpkg/tlperl/lib/auto/common/sense/.packlist deleted file mode 100755 index 111ba85c562..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/common/sense/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\common\sense.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/constant/.packlist b/Master/tlpkg/tlperl/lib/auto/constant/.packlist deleted file mode 100755 index 7739844ef19..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/constant/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\constant.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/local/lib/.packlist b/Master/tlpkg/tlperl/lib/auto/local/lib/.packlist deleted file mode 100755 index e3a9856157f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/local/lib/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\vendor\lib\local\lib.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/mro/mro.dll b/Master/tlpkg/tlperl/lib/auto/mro/mro.dll Binary files differdeleted file mode 100755 index d5e1972db72..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/mro/mro.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/parent/.packlist b/Master/tlpkg/tlperl/lib/auto/parent/.packlist deleted file mode 100755 index 8e430619fdd..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/parent/.packlist +++ /dev/null @@ -1 +0,0 @@ -C:\strawberry\perl\lib\parent.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/pip/.packlist b/Master/tlpkg/tlperl/lib/auto/pip/.packlist deleted file mode 100755 index b6f6c298872..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/pip/.packlist +++ /dev/null @@ -1,7 +0,0 @@ -C:\strawberry\perl\bin\pip
-C:\strawberry\perl\bin\pip.bat
-C:\strawberry\perl\vendor\lib\Module\P5Z.pm
-C:\strawberry\perl\vendor\lib\Module\Plan\Archive.pm
-C:\strawberry\perl\vendor\lib\Module\Plan\Base.pm
-C:\strawberry\perl\vendor\lib\Module\Plan\Lite.pm
-C:\strawberry\perl\vendor\lib\pip.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/pler/.packlist b/Master/tlpkg/tlperl/lib/auto/pler/.packlist deleted file mode 100755 index b8f385828d4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/pler/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\bin\pler
-C:\strawberry\perl\bin\pler.bat
-C:\strawberry\perl\vendor\lib\pler.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/re/re.dll b/Master/tlpkg/tlperl/lib/auto/re/re.dll Binary files differdeleted file mode 100755 index a42ee9fb3e4..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/re/re.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/sdbm/extralibs.ld b/Master/tlpkg/tlperl/lib/auto/sdbm/extralibs.ld deleted file mode 100755 index 8b137891791..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/sdbm/extralibs.ld +++ /dev/null @@ -1 +0,0 @@ - diff --git a/Master/tlpkg/tlperl/lib/auto/threads/.packlist b/Master/tlpkg/tlperl/lib/auto/threads/.packlist deleted file mode 100755 index d9613b5f2ee..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/threads/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\lib\auto\threads\threads.bs
-C:\strawberry\perl\lib\auto\threads\threads.dll
-C:\strawberry\perl\lib\threads.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/threads/shared/.packlist b/Master/tlpkg/tlperl/lib/auto/threads/shared/.packlist deleted file mode 100755 index 6342304b14d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/threads/shared/.packlist +++ /dev/null @@ -1,3 +0,0 @@ -C:\strawberry\perl\lib\auto\threads\shared\shared.bs
-C:\strawberry\perl\lib\auto\threads\shared\shared.dll
-C:\strawberry\perl\lib\threads\shared.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.bs b/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.dll b/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.dll Binary files differdeleted file mode 100755 index 5c825fad62e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/threads/shared/shared.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/threads/threads.bs b/Master/tlpkg/tlperl/lib/auto/threads/threads.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/threads/threads.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/threads/threads.dll b/Master/tlpkg/tlperl/lib/auto/threads/threads.dll Binary files differdeleted file mode 100755 index ea2c52a7405..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/threads/threads.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/version/.packlist b/Master/tlpkg/tlperl/lib/auto/version/.packlist deleted file mode 100755 index ae54b4936d1..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/version/.packlist +++ /dev/null @@ -1,6 +0,0 @@ -C:\strawberry\perl\lib\auto\version\vxs\vxs.bs
-C:\strawberry\perl\lib\auto\version\vxs\vxs.dll
-C:\strawberry\perl\lib\version.pm
-C:\strawberry\perl\lib\version.pod
-C:\strawberry\perl\lib\version\Internals.pod
-C:\strawberry\perl\lib\version\vxs.pm
diff --git a/Master/tlpkg/tlperl/lib/auto/version/vxs/vxs.bs b/Master/tlpkg/tlperl/lib/auto/version/vxs/vxs.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/version/vxs/vxs.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/version/vxs/vxs.dll b/Master/tlpkg/tlperl/lib/auto/version/vxs/vxs.dll Binary files differdeleted file mode 100755 index d3960230c88..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/version/vxs/vxs.dll +++ /dev/null |