deleted file mode 100755
--- a/tools/tests/ctor-dtor.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-use Cwd;
-
-$curdir = cwd();
-
-open( LOG, ">ctor-dtor-report" ) || print "can't open $?\n";
-
-@path_fields = split(/\//,$curdir);
-
-$path = join ("/",@path_fields);
-
-print "Searching in " . $path . "\n";
-open (REPORT, "find $path -name \"*.o\" -print | xargs nm -Bno | egrep \"_GLOBAL_\.[ID]|_tcf\" 2>&1 |" ) || die "open: $! \n";
-
-while (<REPORT>) {
-    print $_;
-    print LOG $_;
-}
-close(REPORT);
-
-if (-s "./ctor-dtor-report" > 0) {
-    print "Global Constructors\/Destructors Found" . "\n";
-}

deleted file mode 100755
--- a/tools/tests/isa-module.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/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);