From 4774e1fec6962b071920c540d4ca8e24482b9d6b Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@bioperl.org>
Date: Wed, 30 Jun 2010 13:09:41 -0500
Subject: [PATCH] squash perl 5.12 warning

---
 lib/Bio/DB/Query/QueryConstraint.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Bio/DB/Query/QueryConstraint.pm b/lib/Bio/DB/Query/QueryConstraint.pm
index da85872..b9de278 100644
--- a/lib/Bio/DB/Query/QueryConstraint.pm
+++ b/lib/Bio/DB/Query/QueryConstraint.pm
@@ -125,7 +125,7 @@ sub set {
 	    }
 	}
 	if (ref($arg) eq "ARRAY") {
-	    if (grep {lc($arg->[0]) eq $_} qw(and or)) {
+	    if ($arg->[0] && grep {lc($arg->[0]) eq $_} qw(and or)) {
 		$op = shift @$arg;
 	    }
 	    foreach my $el (@$arg) {
-- 
2.11.4.GIT