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

tracefile fix 2

Browse source
This commit is contained in:
Ole Tange 2016-03-02 21:15:30 +01:00
parent 32346689cc
commit 103b009d42
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tracefile/tracefile
View file

@ -15,7 +15,7 @@ my @cmd = shell_quote(@ARGV);
my $dir = "."; my $dir = ".";
my $pid = $opt::pid ? "-p $opt::pid" : ""; my $pid = $opt::pid ? "-p $opt::pid" : "";
open(IN, "-|", "strace -ff $pid -e trace=file @cmd") || die; open(IN, "-|", "strace -ff $pid -e trace=file @cmd 2>&1") || die;
while(<IN>) { while(<IN>) {
if(/chdir."(([^\\"]|\\[\\"nt])*)".\s*=\s*0/) { if(/chdir."(([^\\"]|\\[\\"nt])*)".\s*=\s*0/) {
$dir = $1; $dir = $1;