From: dbs <dbs@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Sun, 4 Nov 2007 11:38:50 +0000 (+0000)
Subject: Avoid an "undefined variable" Perl warning when we receive no parameters.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6f8a96d92cc59fb082ca48b66f0b848a8577a17b;p=working%2FOpenSRF.git

Avoid an "undefined variable" Perl warning when we receive no parameters.


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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 1632504..08bd106 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -1,4 +1,5 @@
 package OpenSRF::Application;
+# vim:noet:ts=4
 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;
-		$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 );