summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/perllib/auto
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-02-08 10:43:34 +0000
committerNorbert Preining <preining@logic.at>2008-02-08 10:43:34 +0000
commit89d71dbbefd096388626ed8196aac192402653a0 (patch)
tree936b8863cd93f150432fa4cf5ac85830031e3993 /Master/tlpkg/installer/perllib/auto
parentadacd50612f3170de7ba006c8aba8c844f994872 (diff)
move the perl installer lib also to tlpkg/installer
git-svn-id: svn://tug.org/texlive/trunk@6547 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/perllib/auto')
-rw-r--r--Master/tlpkg/installer/perllib/auto/Cwd/Cwd.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Cwd/Cwd.dllbin0 -> 10240 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/DynaLoader/autosplit.ix8
-rw-r--r--Master/tlpkg/installer/perllib/auto/DynaLoader/dl_expandspec.al34
-rw-r--r--Master/tlpkg/installer/perllib/auto/DynaLoader/dl_find_symbol_anywhere.al19
-rw-r--r--Master/tlpkg/installer/perllib/auto/DynaLoader/dl_findfile.al115
-rw-r--r--Master/tlpkg/installer/perllib/auto/Encode/Byte/Byte.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Encode/Byte/Byte.dllbin0 -> 112640 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Encode/Encode.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Encode/Encode.dllbin0 -> 30208 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.dllbin0 -> 17920 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/CancelRepeat.al15
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Clipboard/autosplit.ix6
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Clipboard/getSelected.al15
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Entry/Entry.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Tk/Entry/Entry.dllbin0 -> 41472 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Error.al20
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Event/Event.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Tk/Event/Event.dllbin0 -> 56832 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Frame/autosplit.ix24
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/PNG/PNG.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Tk/PNG/PNG.dllbin0 -> 168960 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/RepeatId.al16
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Tk.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Tk/Tk.dllbin0 -> 804864 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Toplevel/autosplit.ix10
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Widget/autosplit.ix11
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Wm/AnchorAdjust.al17
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Wm/FullScreen.al29
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Wm/Popup.al50
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Wm/Post.al20
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Wm/autosplit.ix14
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/Wm/iconposition.al24
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/autosplit.ix45
-rw-r--r--Master/tlpkg/installer/perllib/auto/Tk/getEncoding.al43
-rw-r--r--Master/tlpkg/installer/perllib/auto/Win32/API/API.bs0
-rw-r--r--Master/tlpkg/installer/perllib/auto/Win32/API/API.dllbin0 -> 20480 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.bs0
-rw-r--r--Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.dllbin0 -> 16384 bytes
-rw-r--r--Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.bs0
-rwxr-xr-xMaster/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.dllbin0 -> 181760 bytes
42 files changed, 535 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/perllib/auto/Cwd/Cwd.bs b/Master/tlpkg/installer/perllib/auto/Cwd/Cwd.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Cwd/Cwd.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Cwd/Cwd.dll b/Master/tlpkg/installer/perllib/auto/Cwd/Cwd.dll
new file mode 100755
index 00000000000..67f6d7baa57
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Cwd/Cwd.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/DynaLoader/autosplit.ix b/Master/tlpkg/installer/perllib/auto/DynaLoader/autosplit.ix
new file mode 100644
index 00000000000..d7605efa074
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/DynaLoader/autosplit.ix
@@ -0,0 +1,8 @@
+# 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/installer/perllib/auto/DynaLoader/dl_expandspec.al b/Master/tlpkg/installer/perllib/auto/DynaLoader/dl_expandspec.al
new file mode 100644
index 00000000000..0bea19a3e4d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/DynaLoader/dl_expandspec.al
@@ -0,0 +1,34 @@
+# NOTE: Derived from ../LIB\DynaLoader.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package DynaLoader;
+
+#line 377 "../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
+
+ if ($Is_VMS) { # dl_expandspec should be defined in dl_vms.xs
+ require Carp;
+ Carp::croak("dl_expandspec: should be defined in XS file!\n");
+ } else {
+ 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/installer/perllib/auto/DynaLoader/dl_find_symbol_anywhere.al b/Master/tlpkg/installer/perllib/auto/DynaLoader/dl_find_symbol_anywhere.al
new file mode 100644
index 00000000000..2232454ba69
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/DynaLoader/dl_find_symbol_anywhere.al
@@ -0,0 +1,19 @@
+# NOTE: Derived from ../LIB\DynaLoader.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package DynaLoader;
+
+#line 403 "../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/installer/perllib/auto/DynaLoader/dl_findfile.al b/Master/tlpkg/installer/perllib/auto/DynaLoader/dl_findfile.al
new file mode 100644
index 00000000000..9f8df39d00c
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/DynaLoader/dl_findfile.al
@@ -0,0 +1,115 @@
+# NOTE: Derived from ../LIB\DynaLoader.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package DynaLoader;
+
+#line 269 "../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 ($Is_VMS && m%[:>/\]]% && -f $_) {
+ push(@found,dl_expandspec(VMS::Filespec::vmsify($_)));
+ last arg unless wantarray;
+ next;
+ }
+ elsif ($Is_MacOS) {
+ if (m/:/ && -f $_) {
+ push(@found,$_);
+ last arg unless wantarray;
+ }
+ }
+ elsif (m:/: && -f $_ && !$do_expand) {
+ 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; }
+
+ if ($Is_MacOS) {
+ # 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
+ s/^-l//;
+ push(@names, $_);
+ foreach $dir (@dirs, @dl_library_path) {
+ next unless -d $dir;
+ $dir =~ s/^([^:]+)$/:$1/;
+ $dir =~ s/:$//;
+ foreach $name (@names) {
+ my($file) = "$dir:$name";
+ print STDERR " checking in $dir for $name\n" if $dl_debug;
+ if (-f $file) {
+ push(@found, $file);
+ next arg; # no need to look any further
+ }
+ }
+ }
+ 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; }
+
+ # VMS: we may be using native VMS directory syntax instead of
+ # Unix emulation, so check this as well
+ if ($Is_VMS && /[:>\]]/ && -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_ext") unless m/\.$dl_ext$/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, $_);
+ }
+ foreach $dir (@dirs, @dl_library_path) {
+ next unless -d $dir;
+ chop($dir = VMS::Filespec::unixpath($dir)) if $Is_VMS;
+ foreach $name (@names) {
+ my($file) = "$dir/$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/installer/perllib/auto/Encode/Byte/Byte.bs b/Master/tlpkg/installer/perllib/auto/Encode/Byte/Byte.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Encode/Byte/Byte.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Encode/Byte/Byte.dll b/Master/tlpkg/installer/perllib/auto/Encode/Byte/Byte.dll
new file mode 100755
index 00000000000..88474ccb046
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Encode/Byte/Byte.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Encode/Encode.bs b/Master/tlpkg/installer/perllib/auto/Encode/Encode.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Encode/Encode.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Encode/Encode.dll b/Master/tlpkg/installer/perllib/auto/Encode/Encode.dll
new file mode 100755
index 00000000000..69c8ebf8acb
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Encode/Encode.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.bs b/Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.dll b/Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.dll
new file mode 100755
index 00000000000..71a757a6b64
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Encode/Unicode/Unicode.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/CancelRepeat.al b/Master/tlpkg/installer/perllib/auto/Tk/CancelRepeat.al
new file mode 100644
index 00000000000..d0d6bb1b2a3
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/CancelRepeat.al
@@ -0,0 +1,15 @@
+# NOTE: Derived from blib\lib\Tk.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Tk;
+
+#line 491 "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/installer/perllib/auto/Tk/Clipboard/autosplit.ix b/Master/tlpkg/installer/perllib/auto/Tk/Clipboard/autosplit.ix
new file mode 100644
index 00000000000..9831f74facb
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Clipboard/autosplit.ix
@@ -0,0 +1,6 @@
+# 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/installer/perllib/auto/Tk/Clipboard/getSelected.al b/Master/tlpkg/installer/perllib/auto/Tk/Clipboard/getSelected.al
new file mode 100644
index 00000000000..44ba7b74bf0
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Clipboard/getSelected.al
@@ -0,0 +1,15 @@
+# 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/installer/perllib/auto/Tk/Entry/Entry.bs b/Master/tlpkg/installer/perllib/auto/Tk/Entry/Entry.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Entry/Entry.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Entry/Entry.dll b/Master/tlpkg/installer/perllib/auto/Tk/Entry/Entry.dll
new file mode 100755
index 00000000000..9b1c07a7792
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Entry/Entry.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Error.al b/Master/tlpkg/installer/perllib/auto/Tk/Error.al
new file mode 100644
index 00000000000..7efe2c7043d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Error.al
@@ -0,0 +1,20 @@
+# NOTE: Derived from blib\lib\Tk.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Tk;
+
+#line 479 "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/installer/perllib/auto/Tk/Event/Event.bs b/Master/tlpkg/installer/perllib/auto/Tk/Event/Event.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Event/Event.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Event/Event.dll b/Master/tlpkg/installer/perllib/auto/Tk/Event/Event.dll
new file mode 100755
index 00000000000..5a9706cb92e
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Event/Event.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Frame/autosplit.ix b/Master/tlpkg/installer/perllib/auto/Tk/Frame/autosplit.ix
new file mode 100644
index 00000000000..6e5b939fce1
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Frame/autosplit.ix
@@ -0,0 +1,24 @@
+# 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/installer/perllib/auto/Tk/PNG/PNG.bs b/Master/tlpkg/installer/perllib/auto/Tk/PNG/PNG.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/PNG/PNG.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/PNG/PNG.dll b/Master/tlpkg/installer/perllib/auto/Tk/PNG/PNG.dll
new file mode 100755
index 00000000000..08bbbed4fcc
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/PNG/PNG.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/RepeatId.al b/Master/tlpkg/installer/perllib/auto/Tk/RepeatId.al
new file mode 100644
index 00000000000..e71d2a337a0
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/RepeatId.al
@@ -0,0 +1,16 @@
+# NOTE: Derived from blib\lib\Tk.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Tk;
+
+#line 498 "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/installer/perllib/auto/Tk/Tk.bs b/Master/tlpkg/installer/perllib/auto/Tk/Tk.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Tk.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Tk.dll b/Master/tlpkg/installer/perllib/auto/Tk/Tk.dll
new file mode 100755
index 00000000000..8d80944808d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Tk.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Toplevel/autosplit.ix b/Master/tlpkg/installer/perllib/auto/Tk/Toplevel/autosplit.ix
new file mode 100644
index 00000000000..859b90d9a40
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Toplevel/autosplit.ix
@@ -0,0 +1,10 @@
+# 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/installer/perllib/auto/Tk/Widget/autosplit.ix b/Master/tlpkg/installer/perllib/auto/Tk/Widget/autosplit.ix
new file mode 100644
index 00000000000..b610773d4dc
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Widget/autosplit.ix
@@ -0,0 +1,11 @@
+# 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
+;
+1;
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Wm/AnchorAdjust.al b/Master/tlpkg/installer/perllib/auto/Tk/Wm/AnchorAdjust.al
new file mode 100644
index 00000000000..538612878ed
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Wm/AnchorAdjust.al
@@ -0,0 +1,17 @@
+# 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/installer/perllib/auto/Tk/Wm/FullScreen.al b/Master/tlpkg/installer/perllib/auto/Tk/Wm/FullScreen.al
new file mode 100644
index 00000000000..4d5702cc60d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Wm/FullScreen.al
@@ -0,0 +1,29 @@
+# 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/installer/perllib/auto/Tk/Wm/Popup.al b/Master/tlpkg/installer/perllib/auto/Tk/Wm/Popup.al
new file mode 100644
index 00000000000..3f460c5bac6
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Wm/Popup.al
@@ -0,0 +1,50 @@
+# 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/installer/perllib/auto/Tk/Wm/Post.al b/Master/tlpkg/installer/perllib/auto/Tk/Wm/Post.al
new file mode 100644
index 00000000000..f3f5c8e3e08
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Wm/Post.al
@@ -0,0 +1,20 @@
+# 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/installer/perllib/auto/Tk/Wm/autosplit.ix b/Master/tlpkg/installer/perllib/auto/Tk/Wm/autosplit.ix
new file mode 100644
index 00000000000..201dbe8ba99
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Wm/autosplit.ix
@@ -0,0 +1,14 @@
+# 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/installer/perllib/auto/Tk/Wm/iconposition.al b/Master/tlpkg/installer/perllib/auto/Tk/Wm/iconposition.al
new file mode 100644
index 00000000000..9254968f61c
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/Wm/iconposition.al
@@ -0,0 +1,24 @@
+# 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/installer/perllib/auto/Tk/autosplit.ix b/Master/tlpkg/installer/perllib/auto/Tk/autosplit.ix
new file mode 100644
index 00000000000..7bd25b78a9a
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/autosplit.ix
@@ -0,0 +1,45 @@
+# 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 focusPrev
+;
+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/installer/perllib/auto/Tk/getEncoding.al b/Master/tlpkg/installer/perllib/auto/Tk/getEncoding.al
new file mode 100644
index 00000000000..b9e230edbf1
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Tk/getEncoding.al
@@ -0,0 +1,43 @@
+# NOTE: Derived from blib\lib\Tk.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Tk;
+
+#line 785 "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/installer/perllib/auto/Win32/API/API.bs b/Master/tlpkg/installer/perllib/auto/Win32/API/API.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Win32/API/API.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Win32/API/API.dll b/Master/tlpkg/installer/perllib/auto/Win32/API/API.dll
new file mode 100644
index 00000000000..3a7efc0adca
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Win32/API/API.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.bs b/Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.dll b/Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.dll
new file mode 100644
index 00000000000..147c679d576
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Win32/API/Callback/Callback.dll
Binary files differ
diff --git a/Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.bs b/Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.bs
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.bs
diff --git a/Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.dll b/Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.dll
new file mode 100755
index 00000000000..45b7bc0688a
--- /dev/null
+++ b/Master/tlpkg/installer/perllib/auto/Win32API/Registry/Registry.dll
Binary files differ