summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/Stats.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Stats.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/Stats.pm26
1 files changed, 0 insertions, 26 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Stats.pm b/Master/tlpkg/tlperl/lib/Tk/Stats.pm
deleted file mode 100644
index 39bedfb1a47..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/Stats.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-package Tk::Stats;
-
-($lu,$ls) = times;
-
-
-use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Stats.pm#4 $
-
-sub stats
- {
- my ($u,$s) = times;
- my $du = $u-$lu;
- my $ds = $s-$ls;
- $ls = $s;
- $lu = $u;
- print sprintf(' dt=%4.2f du=%4.2f ds=%4.2f',$du+$ds,$du,$ds);
- print sprintf(' t=%4.2f u=%4.2f s=%4.2f',$u+$s,$u,$s);
- print ' ',shift,"\n";
- }
-
-sub import
-{
- stats($_[1]);
-}
-
-1;