4 files changed, 12 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tie/File.pm b/Master/tlpkg/tlperl/lib/Tie/File.pm
index 3862da23672..a288218a819 100644
--- a/Master/tlpkg/tlperl/lib/Tie/File.pm
+++ b/Master/tlpkg/tlperl/lib/Tie/File.pm
@@ -7,7 +7,7 @@ use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'LOCK_SH', 'O_WRONLY', 'O_RDONLY';
 sub O_ACCMODE () { O_RDONLY | O_RDWR | O_WRONLY }
 
 
-$VERSION = "0.98";
+$VERSION = "0.99";
 my $DEFAULT_MEMORY_SIZE = 1<<21;    # 2 megabytes
 my $DEFAULT_AUTODEFER_THRESHHOLD = 3; # 3 records
 my $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD = 65536; # 16 disk blocksful
@@ -2361,7 +2361,7 @@ will be rewritten in a single pass.
 (Actually, the preceding discussion is something of a fib.  You don't
 need to enable deferred writing to get good performance for this
 common case, because C<Tie::File> will do it for you automatically
-unless you specifically tell it not to.  See L<"autodeferring">,
+unless you specifically tell it not to.  See L<"Autodeferring">,
 below.)
 
 Calling C<-E<gt>flush> returns the array to immediate-write mode.  If
diff --git a/Master/tlpkg/tlperl/lib/Tie/Hash/NamedCapture.pm b/Master/tlpkg/tlperl/lib/Tie/Hash/NamedCapture.pm
index 932e4404d17..9702666799c 100644
--- a/Master/tlpkg/tlperl/lib/Tie/Hash/NamedCapture.pm
+++ b/Master/tlpkg/tlperl/lib/Tie/Hash/NamedCapture.pm
@@ -1,7 +1,7 @@
 use strict;
 package Tie::Hash::NamedCapture;
 
-our $VERSION = "0.08";
+our $VERSION = "0.09";
 
 require XSLoader;
 XSLoader::load(); # This returns true, which makes require happy.
diff --git a/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm b/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm
index 3a1a3db4788..9192b2e5ee3 100644
--- a/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm
+++ b/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm
@@ -5,7 +5,7 @@ use strict;
 use Tie::Handle;
 use vars qw(@ISA $VERSION);
 @ISA = 'Tie::Handle';
-$VERSION = '4.2';
+$VERSION = '4.3';
 
 =head1 NAME
 
@@ -57,7 +57,7 @@ sub OPEN
  @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
 }
 
-sub READ     { read($_[0],$_[1],$_[2]) }
+sub READ     { &CORE::read(shift, \shift, @_) }
 sub READLINE { my $fh = $_[0]; <$fh> }
 sub GETC     { getc($_[0]) }
 
diff --git a/Master/tlpkg/tlperl/lib/Tie/Watch.pm b/Master/tlpkg/tlperl/lib/Tie/Watch.pm
index 9882751073d..c1f551ab5c2 100644
--- a/Master/tlpkg/tlperl/lib/Tie/Watch.pm
+++ b/Master/tlpkg/tlperl/lib/Tie/Watch.pm
@@ -1,4 +1,4 @@
-$Tie::Watch::VERSION = '1.3';
+$Tie::Watch::VERSION = '1.302';
 
 package Tie::Watch;
 
@@ -421,7 +421,8 @@ sub normalize_callbacks {
 
 ###############################################################################
 
-package Tie::Watch::Scalar;
+package # temporarily disabled from PAUSE indexer because of permission problems
+ Tie::Watch::Scalar;
 
 use Carp;
 @Tie::Watch::Scalar::ISA = qw/Tie::Watch/;
@@ -454,7 +455,8 @@ sub STORE   {$_[0]->callback('-store', $_[1])}
 
 ###############################################################################
 
-package Tie::Watch::Array;
+package # temporarily disabled from PAUSE indexer because of permission problems
+ Tie::Watch::Array;
 
 use Carp;
 @Tie::Watch::Array::ISA = qw/Tie::Watch/;
@@ -515,7 +517,8 @@ sub UNSHIFT   {$_[0]->callback('-unshift', @_[1 .. $#_])}
 
 ###############################################################################
 
-package Tie::Watch::Hash;
+package # temporarily disabled from PAUSE indexer because of permission problems
+ Tie::Watch::Hash;
 
 use Carp;
 @Tie::Watch::Hash::ISA = qw/Tie::Watch/;