perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 0 insertions, 20 deletions

diff --git a/bench/fib b/bench/fib
deleted file mode 100755
index 022d9d0159..0000000000
--- a/bench/fib
+++ /dev/null
@@ -1,20 +0,0 @@
-#!./perl
-
-sub fib
-{
-    ($_[0] < 2) ? $_[0] : &fib($_[0]-1) + &fib($_[0]-2);
-}
-
-sub myruntime
-{
-    local(@t) = times;          #  in seconds
-    $t[0] + $t[1];
-}
-
-$x = (shift || 20);
-print "Starting fib($x)\n";
-$before = &myruntime;
-$y = &fib($x);
-$after = &myruntime;
-printf("Done. Result $y in %g cpu seconds.\n", $after-$before);
-