From b645030efc22e13c2498a1522083634ab91b2de1 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Wed, 12 May 2010 16:51:27 +0000
Subject: move tlperl to tlperl.old

git-svn-id: svn://tug.org/texlive/trunk@18209 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/tlperl/lib/Tk/Submethods.pm | 46 --------------------------------
 1 file changed, 46 deletions(-)
 delete mode 100644 Master/tlpkg/tlperl/lib/Tk/Submethods.pm

(limited to 'Master/tlpkg/tlperl/lib/Tk/Submethods.pm')

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
-- 
cgit v1.2.3