Avoid Z39.50 search warning for uninit var
authorDan Scott <dscott@laurentian.ca>
Mon, 24 Jun 2013 14:12:50 +0000 (10:12 -0400)
committerMike Rylander <mrylander@gmail.com>
Wed, 17 Jul 2013 17:37:20 +0000 (13:37 -0400)
commit514f5db19fe344bd2dde184a8c96f875ec2e1b88
tree9fe62be1f5e65a98a733e5c80eefc22e48d4f3fb
parent17a520e09079ebb66fceb86870614696c3a6ca35
Avoid Z39.50 search warning for uninit var

The debug log blindly attempts to access list members that might not
exist (if, for example, an event code was returned from the attempt to
run do_service_search()), thus generating spurious log warnings.
Instead, move the debug line to only generate output when we have
created the list item in question.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm