#!/local/bin/perl

foreach (@ARGV) {
	m-[^/]*$-;
	$dir = $`;
	$base = $&;
	next if ( -e $_.",v" || -e $dir . "RCS/" . $base . ",v" );
	print $_,"\n";
}
