This commit was manufactured by cvs2git to create branch 'OPENBSD_2_5'.OPENBSD_2_5

1 files changed, 32 insertions, 0 deletions

diff --git a/src/lib/libssl/src/perl/z.pl b/src/lib/libssl/src/perl/z.pl
new file mode 100644
index 0000000000..7e2d5285cc
--- /dev/null
+++ b/src/lib/libssl/src/perl/z.pl
@@ -0,0 +1,32 @@
+#!/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();
+        }
+