]> git.ipfire.org Git - thirdparty/squid.git/commitdiff
Fixed job entering/leaving search patterns in job tracing scripts.
authorAlex Rousskov <rousskov@measurement-factory.com>
Mon, 7 Jan 2013 19:06:25 +0000 (12:06 -0700)
committerAlex Rousskov <rousskov@measurement-factory.com>
Mon, 7 Jan 2013 19:06:25 +0000 (12:06 -0700)
Same as trunk r12530.

scripts/trace-job.pl

index 54f0657da732d6e1ab88ff44da485b054c7a94fc..872357b5ba46268639956c772fdda4bd9739d484 100755 (executable)
@@ -21,8 +21,8 @@ my $inside = 0;
 my $entering;
 
 while (<>) {
-       $entering = $_ if !$inside && /\| entering\b/;
-       undef $entering if /\| leaving\b/;
+       $entering = $_ if !$inside && /[|:] entering\b/;
+       undef $entering if /[|:] leaving\b/;
 
        # if (!$inside && /\bcalled\b.*\b$XactId\b/o) {
        if (!$inside && /\bstatus in\b.*\b$XactId\b/o) {
@@ -39,7 +39,7 @@ while (<>) {
 
        # if (/\bended\b.*\b$XactId\b/o || /\bswan\s+sang\b.*\b$XactId\b/o) {
        # if (/\bstatus out\b.*\b$XactId\b/o || /\bswan\s+sang\b.*\b$XactId\b/o ||
-       if (/\| leaving\b/) {
+       if (/[|:] leaving\b/) {
                print "\n";
                $inside = 0;
        }