Avoid Z39.50 search warning for uninit var
authorDan Scott <dscott@laurentian.ca>
Mon, 24 Jun 2013 14:12:50 +0000 (10:12 -0400)
committerDan Scott <dscott@laurentian.ca>
Mon, 24 Jun 2013 14:22:11 +0000 (10:22 -0400)
commitff8237d228e0dd45c65409e117c9a03047a6b4cc
treeaa41b404f1d69f1006cffd0b526d954065a49703
parent8cb92be0625cff9ab51d66a6eb4268d171938eb1
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>
Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm