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 f3b8c630eaa0bceadd86abb0329d7cc8b5518b39..6d43cbc331889a05a5744c0f8363aa9df1e12bd3 100644 (file)
--- 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;