=head2 raDataFileFind($dir, [$noMax = 0])

Return array ref with relative file names from the $dir
directory.

$noMax -- The maximum number of files returned (0 means no
limit).

Return [] on errors.

=cut
sub raDataFileFind {
	my ($dir, $noMax) = @_;
	$noMax ||= 0;

	my $no = 0;
	my @aFile;
	eval {
		find( {
				wanted => sub {
					if(/\.txt(\.gz)?$/) {
						die() if($noMax && ($no++ >= $noMax));
						push(@aFile, $File::Find::name);
						};
					},
				no_chdir => 1,
				},
			"$dir/");
		};

	return(\@aFile);
	}