about summary refs log blame commit diff
path: root/users/edef/depot-scan/depot-scan.pl
blob: 8808e2eb0023e4478b243dca6893f7153bec498f (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11




                                       
                                   




                                                  
#! /usr/bin/env -S perl -ln
use strict;

if (/^evaluating file '(.*)'$/ or
    /^copied source '(.*)' -> '.*'$/ or
    /^trace: depot-scan '(.*)'$/) {
    print $1;
    next;
}

print STDERR unless /^instantiated '.*' -> '.*'$/;