From dcb8ee3674255e68f36a0387afaeb36adca01939 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Fri, 11 Jul 2014 15:13:03 +0100
Subject: [PATCH] BuildSupport: provide submodule_have

Convenience function.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
---
 Osstest/BuildSupport.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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