From 4d80c76d1be25ac682a405920512f1a4e9c5cb99 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 14 Feb 2005 18:31:38 +0000
Subject: [PATCH] add api_level to introspection responses

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@49 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 3b0889a..d277d20 100644
--- 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;
-- 
2.11.0