method not found now returns the name of the method and package

that is supposed to implement it

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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 5c6b48b..e08b4cb 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -100,7 +100,8 @@ sub handler {
                my $coderef = $app->method_lookup( $method_name, $method_proto, 1, 1 );
 
                unless ($coderef) {
-                       $session->status( OpenSRF::DomainObject::oilsMethodException->new() );
+                       $session->status( OpenSRF::DomainObject::oilsMethodException->new( 
+                                               status => "Method [$method_name] not found for $app"));
                        return 1;
                }