tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

tracefile -p fix.

Browse source
This commit is contained in:
Ole Tange 2016-03-02 20:59:19 +01:00
parent 845ee0e7ce
commit 32346689cc
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tracefile/tracefile
View file

@ -13,9 +13,9 @@ if(not ($opt::exists or $opt::nonexists or $opt::all)) {
my @cmd = shell_quote(@ARGV); my @cmd = shell_quote(@ARGV);
my $dir = "."; my $dir = ".";
my $pid = $opt::pid ? "-p $pid" : ""; my $pid = $opt::pid ? "-p $opt::pid" : "";
open(IN, "-|", "strace -ff -e trace=file @cmd 2>&1") || die; open(IN, "-|", "strace -ff $pid -e trace=file @cmd") || die;
while(<IN>) { while(<IN>) {
if(/chdir."(([^\\"]|\\[\\"nt])*)".\s*=\s*0/) { if(/chdir."(([^\\"]|\\[\\"nt])*)".\s*=\s*0/) {
$dir = $1; $dir = $1;
@ -50,7 +50,7 @@ sub options_hash {
"exists|exist|e" => \$opt::exists, "exists|exist|e" => \$opt::exists,
"nonexists|nonexist|non-exists|non-exist|n" => \$opt::nonexists, "nonexists|nonexist|non-exists|non-exist|n" => \$opt::nonexists,
"all|a" => \$opt::all, "all|a" => \$opt::all,
"pid|p=i" => $opt::pid, "pid|p=i" => \$opt::pid,
); );
} }