Avoid OUTPUTFACETS of type SVt_NULL

Fixes crash one some older versions of Perl.

diff --git a/SimpleServer.xs b/SimpleServer.xs
index c2e88c8..93546f2 100644 (file)
--- a/SimpleServer.xs
+++ b/SimpleServer.xs
@@ -989,8 +989,9 @@ int bend_search(void *handle, bend_search_rr *rr)
        point = newSVsv(*temp);
 
        temp = hv_fetch(href, "OUTPUTFACETS", 12, 1);
-       f_SV_to_FacetList(*temp, &rr->search_info, rr->stream);
-
+        if (SvTYPE(*temp) != SVt_NULL)
+           f_SV_to_FacetList(*temp, &rr->search_info, rr->stream);
+        
        hv_undef(href);
        av_undef(aref);