From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 12 Jul 2005 19:12:03 +0000 (+0000)
Subject: making introspection filter regexy
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6078020c4a8f3cfdccd79834398fb23fc6da0d7b;p=Evergreen.git

making introspection filter regexy


git-svn-id: svn://svn.open-ils.org/ILS/trunk@1149 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/OpenSRF/src/perlmods/OpenSRF/Application.pm b/OpenSRF/src/perlmods/OpenSRF/Application.pm
index d9388a1f59..d808c91187 100644
--- a/OpenSRF/src/perlmods/OpenSRF/Application.pm
+++ b/OpenSRF/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 {