OpenSSL 0.9.4 merge

1 files changed, 0 insertions, 32 deletions

diff --git a/src/lib/libssl/src/perl/z.pl b/src/lib/libssl/src/perl/z.pl
deleted file mode 100644
index 7e2d5285cc..0000000000
--- a/src/lib/libssl/src/perl/z.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use ExtUtils::testlib;
-
-use SSLeay;
-use Benchmark;
-
-$buf=('x' x (1024*1024));
-$buf=('x' x (1024*1024));
-
-@md=();
-foreach $name ("md2", "mdc2", "sha", "ripemd160", "sha1", "md5")
-        {
-        if (($name eq "md2") || ($name eq "mdc2"))
-                { $num=5; }
-        else    { $num=100; }
-
-        $t=timeit($num,'&hash($name)');
-        printf "%6d000 bytes/sec:$name\n",int(($num*1024*1024)/$t->[1]/1000);
-        }
-
-sub hash
-        {
-        my($name)=@_;
-        my($f,$digest);
-
-        ($f=MD->new($name)) ||
-                die "$_ is an unknown message digest algorithm\n";
-        $f->update($buf);
-        $digest=$f->final();
-        }
-