tools/tests/ctor-dtor.pl@97036ab72558
tools/tests/ctor-dtor.pl
Tue, 06 Jan 2015 21:39:09 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Tue, 06 Jan 2015 21:39:09 +0100
- branch
- TOR_BUG_9701
- changeset 8
- 97036ab72558
- permissions
- -rwxr-xr-x
Conditionally force memory storage according to privacy.thirdparty.isolate;
This solves Tor bug #9701, complying with disk avoidance documented in
https://www.torproject.org/projects/torbrowser/design/#disk-avoidance.
1 #!/usr/bin/perl
3 use Cwd;
5 $curdir = cwd();
7 open( LOG, ">ctor-dtor-report" ) || print "can't open $?\n";
9 @path_fields = split(/\//,$curdir);
11 $path = join ("/",@path_fields);
13 print "Searching in " . $path . "\n";
14 open (REPORT, "find $path -name \"*.o\" -print | xargs nm -Bno | egrep \"_GLOBAL_\.[ID]|_tcf\" 2>&1 |" ) || die "open: $! \n";
16 while (<REPORT>) {
17 print $_;
18 print LOG $_;
19 }
20 close(REPORT);
22 if (-s "./ctor-dtor-report" > 0) {
23 print "Global Constructors\/Destructors Found" . "\n";
24 }
