[Opensrf-commits] r1120 - trunk/src/perlmods/OpenSRF

[svn at svn.open-ils.org]

Author: dbs
Date: 2007-11-04 06:38:50 -0500 (Sun, 04 Nov 2007)
New Revision: 1120

Modified:
   trunk/src/perlmods/OpenSRF/Application.pm
Log:
Avoid an "undefined variable" Perl warning when we receive no parameters.


Modified: trunk/src/perlmods/OpenSRF/Application.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/Application.pm	2007-11-03 17:52:29 UTC (rev 1119)
+++ trunk/src/perlmods/OpenSRF/Application.pm	2007-11-04 11:38:50 UTC (rev 1120)
@@ -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 @@
         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(', ', at p)."]");
+		$log->info("CALL: $method_name [". (@p ? join(', ', at p) : '') ."]");
 
 		my $coderef = $app->method_lookup( $method_name, $method_proto, 1, 1 );