making introspection filter regexy
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 12 Jul 2005 19:12:03 +0000 (19:12 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 12 Jul 2005 19:12:03 +0000 (19:12 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1149 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/OpenSRF/Application.pm

index d9388a1..d808c91 100644 (file)
@@ -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 {