about summary refs log tree commit diff
path: root/users/edef/depot-scan.pl
blob: 39550d83c1a53a7ae07fdcc351a2922ae6a0b84f (plain) (blame)
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: lorri read: '(.*)'$/) {
    print $1;
    next;
}

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