The R Project SVN R

Rev

Rev 35667 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 35667 Rev 35967
Line 179... Line 179...
179 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /[Oo]ld$/);
 179 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /[Oo]ld$/);
180 
	print EXCLUDE "$File::Find::name\n" if /^GNUMakefile$/;
 180 
	print EXCLUDE "$File::Find::name\n" if /^GNUMakefile$/;
181 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^CVS$/);
 181 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^CVS$/);
182 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.svn$/);
 182 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.svn$/);
183 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.arch-ids$/);
 183 
	print EXCLUDE "$File::Find::name\n" if(-d $_ && /^\.arch-ids$/);
184 
	if($WINDOWS) {
 - 
 
185 
	    ## exclude stray dependency files
 - 
 
186 
	    print EXCLUDE "$File::Find::name\n" if /\.d$/;
 - 
 
187 
	    print EXCLUDE "$File::Find::name\n" if /^Makedeps$/;
 - 
 
188 
	    ## and the DLL resource file
 184 
	## Windows DLL resource file
189 
	    my $resname = $pkgname . "_res.rc";
 185 
	push(@exclude_patterns, "^src/" . $pkgname . "_res\\.rc");
190 
	    print EXCLUDE "$File::Find::name\n" if /^$resname$/;
 - 
 
191 
	}
 - 
 
192 
	my $filename = $File::Find::name;
 186 
	my $filename = $File::Find::name;
193 
	$filename =~ s/^[^\/]*\///;
 187 
	$filename =~ s/^[^\/]*\///;
194 
	foreach my $p (@exclude_patterns) {
 188 
	foreach my $p (@exclude_patterns) {
195 
	    if($WINDOWS) {
 189 
	    if($WINDOWS) {
196 
		## Argh: Windows is case-honoring but not
 190 
		## Argh: Windows is case-honoring but not