move tlperl to tlperl.old

git-svn-id: svn://tug.org/texlive/trunk@18209 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 46 deletions

diff --git a/Master/tlpkg/tlperl/lib/Tk/Submethods.pm b/Master/tlpkg/tlperl/lib/Tk/Submethods.pm
deleted file mode 100644
index a2b8e3bd186..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/Submethods.pm
+++ /dev/null
@@ -1,46 +0,0 @@
-package Tk::Submethods;
-
-use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Submethods.pm#4 $
-
-sub import
-{
- my $class = shift;
- no strict 'refs';
- my $package = caller(0);
- while (@_)
-  {
-   my $fn = shift;
-   my $sm = shift;
-   foreach my $sub (@{$sm})
-    {
-     my ($suffix) = $sub =~ /(\w+)$/;
-     my $pfn = $package.'::'.$fn;
-     *{$pfn."\u$suffix"} = sub { shift->$pfn($sub,@_) };
-    }
-  }
-}
-
-sub Direct
-{
- my $class = shift;
- no strict 'refs';
- my $package = caller(0);
- while (@_)
-  {
-   my $fn = shift;
-   my $sm = shift;
-   my $sub;
-   foreach $sub (@{$sm})
-    {
-     # eval "sub ${package}::${sub} { shift->$fn('$sub',\@_) }";
-     *{$package.'::'.$sub} = sub { shift->$fn($sub,@_) };
-    }
-  }
-}
-
-1;
-
-__END__
-
-=cut