add api_level to introspection responses

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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 3b0889a..d277d20 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -282,7 +282,7 @@ sub introspect {
        my $client = shift;
 
        for my $api_level ( 1 .. $#_METHODS ) {
-               $client->respond( $_METHODS[$api_level] );
+               $client->respond( { $api_level => $_METHODS[$api_level] } );
        }
 
        return undef;