7 @path_fields = split(/\//,$curdir);
9 $path = join ("/",@path_fields);
11 print "Searching in " . $path . "\n";
13 open (REPORT
, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetModule 2>&1 |" ) || die "open: $! \n";
23 open (REPORT
, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetFactory 2>&1 |" ) || die "open: $! \n";
25 print "\nComponents:\n";