diff -r 000000000000 -r 6474c204b198 tools/tests/isa-module.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/tests/isa-module.pl	Wed Dec 31 06:09:35 2014 +0100
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+
+use Cwd;
+
+$curdir = cwd();
+
+@path_fields = split(/\//,$curdir);
+
+$path = join ("/",@path_fields);
+
+print "Searching in " . $path . "\n";
+
+open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetModule 2>&1 |" ) || die "open: $! \n";
+
+print "Modules:\n";
+while (<REPORT>) {
+    $module = $_;
+    $module =~ s/:.*//;
+    print $module;
+}
+close(REPORT);
+
+open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetFactory 2>&1 |" ) || die "open: $! \n";
+
+print "\nComponents:\n";
+while (<REPORT>) {
+    $module = $_;
+    $module =~ s/:.*//;
+    print $module;
+}
+close(REPORT);