#!perl -nw
# from the output of explain-errors.pl
next unless m, apt-file search -x '/lib(.*)\\\.so\$'$,;
$p{$1}=1;
END{
    print "lxc-attach -n ghcbuild -- env -i PATH=/usr/sbin:/usr/bin:/sbin:/bin sudo -u iuser apt-file search -x '/lib(";
    for(sort keys %p){ #remove duplicates
	$_=quotemeta($_);
	#s/\./\\./g;
	if($second){
	    print"|";
	}
	print $_;
	$second=1;
    }
    print ")\\.(so|a)\$'\n";
}