1 files changed, 43 insertions, 0 deletions
diff --git a/util/check-buildinfo.pl b/util/check-buildinfo.pl
new file mode 100644
index 0000000000..176b956900
--- /dev/null
+++ b/util/check-buildinfo.pl
@@ -0,0 +1,43 @@
+#! /usr/bin/perl
+
+my %MINFO_source = ();
+
+open my $minfo, "MINFO" or die "Couldn't open MINFO: $!\n";
+my $reldir = "";
+my $searchterm = "";
+my $goal = "";
+while (<$minfo>) {
+    chomp;
+
+    if (/^RELATIVE_DIRECTORY=(.*)$/) {
+        $reldir=$1;
+        next;
+    }
+
+    if (/^LIBSRC=(.*)$/) {
+        my @src = sort split(/\s+/, $1);
+        if ($reldir =~ m|^crypto(/.*)?$|) {
+            $MINFO_source{"libcrypto|$reldir"} = [ @src ];
+        } elsif ($reldir eq "ssl") {
+            $MINFO_source{"libssl|$reldir"} = [ @src ];
+        } elsif ($reldir ne "engines") {
+            warn "LIBSRC found in MINFO for $reldir";
+        }
+        next;
+    }
+
+    if (/^(?:TEST)?LIBNAMES=(.*)$/) {
+        my @names = sort split(/\s+/, $1);
+        if ($reldir eq "engines") {
+            push @{$MINFO_source{"engines|$reldir"}}, @names;
+        } else {
+            warn "(TEST)?LIBNAMES found in MINFO for $reldir";
+        }
+        next;
+    }
+    
+    } elsif ($reldir eq "apps") {
+        $searchterm = "EXE_SRC";
+        $goal = "apps|openssl";
+    } elsif ($reldir eq "engines") {
+        $searchterm = "