+ my $query = cql_target($id);
+ my $rs;
+ eval {
+ $rs = $irspy->{conn}->search(new ZOOM::Query::CQL($query));
+ }; if ($@) {
+ # This should be a "can't happen", but junk entries such as
+ # //lucasportal.info/blogs/payday-usa">'</a>night:G<a href="http://lucasportal.info/blogs/payday-usa">'</a>night/Illepeliz
+ # (yes, really) yield BIB-1 diagnostic 108 "Malformed query"
+ warn "registry search for record '$id' had error: '$@' -- skipping";
+ return undef;
+ }