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

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