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:36:55 +0000 (13:36 -0400)
commit55e62cb268e2435dfa052027229e635a243defd6
treeb90815b48eb1e17c4c71c8f30f67722b47d376bb
parent71b298857646d89527d6f50d217ba696eebde3b9
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