Avoid an "undefined variable" Perl warning when we receive no parameters.
authordbs <dbs@9efc2488-bf62-4759-914b-345cdb29e865>
Sun, 4 Nov 2007 11:38:50 +0000 (11:38 +0000)
committerdbs <dbs@9efc2488-bf62-4759-914b-345cdb29e865>
Sun, 4 Nov 2007 11:38:50 +0000 (11:38 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1120 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/OpenSRF/Application.pm

index 1632504..08bd106 100644 (file)
@@ -1,4 +1,5 @@
 package OpenSRF::Application;
 package OpenSRF::Application;
+# vim:noet:ts=4
 use vars qw/$_app $log @_METHODS $thunk $server_class/;
 
 use base qw/OpenSRF/;
 use vars qw/$_app $log @_METHODS $thunk $server_class/;
 
 use base qw/OpenSRF/;
@@ -98,7 +99,7 @@ sub handler {
         my @p = $app_msg->params;
                my $method_name = $app_msg->method;
                my $method_proto = $session->last_message_api_level;
         my @p = $app_msg->params;
                my $method_name = $app_msg->method;
                my $method_proto = $session->last_message_api_level;
-               $log->info("CALL: $method_name [".join(', ',@p)."]");
+               $log->info("CALL: $method_name [". (@p ? join(', ',@p) : '') ."]");
 
                my $coderef = $app->method_lookup( $method_name, $method_proto, 1, 1 );
 
 
                my $coderef = $app->method_lookup( $method_name, $method_proto, 1, 1 );