The Tor Browser / file comparison
comparison: tools/tests/isa-module.pl
tools/tests/isa-module.pl
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:fc0d07a03ba1 |
|---|---|
| 1 #!/usr/bin/perl -w | |
| 2 | |
| 3 use Cwd; | |
| 4 | |
| 5 $curdir = cwd(); | |
| 6 | |
| 7 @path_fields = split(/\//,$curdir); | |
| 8 | |
| 9 $path = join ("/",@path_fields); | |
| 10 | |
| 11 print "Searching in " . $path . "\n"; | |
| 12 | |
| 13 open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetModule 2>&1 |" ) || die "open: $! \n"; | |
| 14 | |
| 15 print "Modules:\n"; | |
| 16 while (<REPORT>) { | |
| 17 $module = $_; | |
| 18 $module =~ s/:.*//; | |
| 19 print $module; | |
| 20 } | |
| 21 close(REPORT); | |
| 22 | |
| 23 open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetFactory 2>&1 |" ) || die "open: $! \n"; | |
| 24 | |
| 25 print "\nComponents:\n"; | |
| 26 while (<REPORT>) { | |
| 27 $module = $_; | |
| 28 $module =~ s/:.*//; | |
| 29 print $module; | |
| 30 } | |
| 31 close(REPORT); |
