default to api_level 1

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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 409b780..dffb54d 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -338,7 +338,7 @@ sub populate_remote_method_cache {
 sub method_lookup {             
        my $self = shift;
        my $method = shift;
-       my $proto = shift;
+       my $proto = shift || 1;
        my $no_recurse = shift || 0;
        my $no_remote = shift || 0;