From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 14 Oct 2011 11:50:31 +0000 (+0000)
Subject: Avoid OUTPUTFACETS of type SVt_NULL
X-Git-Tag: v1.15~1
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=4bb72ed3cb73fb1da74603268bc11a46d8ec7489;p=simpleserver-moved-to-github.git

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
--- 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);