From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Fri, 11 Jul 2014 14:13:03 +0000 (+0100)
Subject: BuildSupport: provide submodule_have
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=dcb8ee3674255e68f36a0387afaeb36adca01939;p=osstest.git

BuildSupport: provide submodule_have

Convenience function.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
---

diff --git a/Osstest/BuildSupport.pm b/Osstest/BuildSupport.pm
index f3b8c63..6d43cbc 100644
--- a/Osstest/BuildSupport.pm
+++ b/Osstest/BuildSupport.pm
@@ -43,7 +43,7 @@ BEGIN {
                       xendist
                       $xendist
 
-                      submodulefixup
+                      submodulefixup submodule_have
 
                       );
     %EXPORT_TAGS = ( );
@@ -144,4 +144,9 @@ sub submodulefixup ($$$$) {
     return \@submodules;
 }
 
+sub submodule_have ($$) {
+    my ($submodules, $ourname) = @_;
+    return !!grep { $_->{OurName} eq $ourname } @$submodules;
+}
+
 1;