#!/usr/bin/perl
# $Id: cfmefl,v 1.1 2000/09/06 16:52:08 dmetz Exp $
# $crtd:  by  Derald Metzger  on  000421 $
# $cmnt:  Extract errs from a cfmds or cfmfs log. $

while(<>) {
	/^###.+Linux-2(\/.*?)(.cfmsl,v|,v)/ && print "$1\n";
}
