From ad06f857bda97d54785eeb466e999b489df7081f Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 12 Jul 2005 19:12:03 +0000
Subject: [PATCH] making introspection filter regexy

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@388 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index d9388a1..d808c91 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -477,7 +477,7 @@ sub introspect {
 		for my $api_name ( sort keys %{$_METHODS[$api_level]} ) {
 			if (!$_METHODS[$api_level]{$api_name}{remote}) {
 				if (defined($method)) {
-					if ($api_name eq $method) {
+					if ($api_name =~ $method) {
 						$client->respond( $_METHODS[$api_level]{$api_name} );
 					}
 				} else {
-- 
2.43.2