From 8e999cb27828ca49b31e1c3498e53e2e084e3311 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 16 Feb 2005 18:09:01 +0000
Subject: [PATCH] cleaned some

git-svn-id: svn://svn.open-ils.org/ILS/trunk@78 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/examples/math_bench.pl | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/OpenSRF/examples/math_bench.pl b/OpenSRF/examples/math_bench.pl
index 5b999cd7c7..471de0e1dd 100755
--- a/OpenSRF/examples/math_bench.pl
+++ b/OpenSRF/examples/math_bench.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -w
 use strict;use warnings;
 use OpenSRF::System qw(/pines/conf/client.conf);
-use OpenSRF::Utils::Config;
 use OpenSRF::Utils::SettingsClient;
 use OpenSRF::DomainObject::oilsMethod;
 use OpenSRF::DomainObject::oilsPrimitive;
@@ -27,9 +26,7 @@ unless( $count ) {
 
 warn "PID: $$\n";
 
-my $config = OpenSRF::Utils::Config->current;
 OpenSRF::System::bootstrap_client();
-
 my $session = OpenSRF::AppSession->create( "math" );
 
 try {
@@ -55,16 +52,13 @@ my $c = 0;
 for my $scale ( 1..$count ) {
 	for my $mname ( keys %vals ) {
 
-		my $method = OpenSRF::DomainObject::oilsMethod->new( method => $mname );
-		$method->params( 1,2 );
-
 		my $req;
 		my $resp;
 		my $starttime;
 		try {
 
 			$starttime = time();
-			$req = $session->request( $method );
+			$req = $session->request( $mname, 1, 2 );
 			$resp = $req->recv( timeout => 10 );
 			push @times, time() - $starttime;
 
-- 
2.43.2