From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 25 Feb 2005 21:23:06 +0000 (+0000)
Subject: introspection bug fix for a single method lookup
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fe59a1220abb8033f8d2fd5297c0d6cfcfa02523;p=working%2FOpenSRF.git

introspection bug fix for a single method lookup


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@118 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index f818b54..0205c2f 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -401,11 +401,11 @@ sub introspect {
 
 	$method = undef if ($self->{api_name} =~ /all$/o);
 
-	for my $api_level ( 1 .. $#_METHODS ) {
+	for my $api_level ( reverse(1 .. $#_METHODS) ) {
 		for my $api_name ( sort keys %{$_METHODS[$api_level]} ) {
 			if (!$_METHODS[$api_level]{$api_name}{remote}) {
 				if (defined($method)) {
-					if ($api_name =~ /$method/) {
+					if ($api_name eq $method) {
 						$client->respond( $_METHODS[$api_level]{$api_name} );
 					}
 				} else {