The R Project SVN R

Rev

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

Rev 51044 Rev 51104
Line 33... Line 33...
33 
use Text::Wrap;
 33 
use Text::Wrap;
34 
 
 34 
 
35 
## Don't buffer output.
 35 
## Don't buffer output.
36 
$| = 1;
 36 
$| = 1;
37 
 
 37 
 
38 
my $revision = ' $Rev: 51044 $ ';
 38 
my $revision = ' $Rev: 51104 $ ';
39 
my $version;
 39 
my $version;
40 
my $name;
 40 
my $name;
41 
$revision =~ / ([\d\.]*) /;
 41 
$revision =~ / ([\d\.]*) /;
42 
$version = $1;
 42 
$version = $1;
43 
($name = $0) =~ s|.*/||;
 43 
($name = $0) =~ s|.*/||;
Line 605... Line 605...
605 
		    &make_file_exts("sources") . "|" .
 605 
		    &make_file_exts("sources") . "|" .
606 
		    &make_file_exts("headers") . ")";
 606 
		    &make_file_exts("headers") . ")";
607 
		my $dir = &file_path($pkgdir, "src");
 607 
		my $dir = &file_path($pkgdir, "src");
608 
		if(-d $dir) {
 608 
		if(-d $dir) {
609 
		    chdir($dir);
 609 
		    chdir($dir);
- 
 
 610 
		    if(!(-f "Makefile") &&
- 
 
 611 
		       !(-f "Makefile.win") &&
610 
		    if(!(-f "Makefile") && !(-f "Makefile.win")) {
 612 
		       !(-f "Makefile.in" && !$opt_install)) {
611 
			opendir(DIR, ".") or die "cannot opendir $dir: $!";
 613 
			opendir(DIR, ".") or die "cannot opendir $dir: $!";
612 
			@srcfiles = grep {
 614 
			@srcfiles = grep {
613 
			    !(/\.$exts$/ || /^Makevars/ || /-win\.def$/ )
 615 
			    !(/\.$exts$/ || /^Makevars/ || /-win\.def$/ )
614 
				&& -f "$_" } readdir(DIR);
 616 
				&& -f "$_" } readdir(DIR);
615 
			closedir(DIR);
 617 
			closedir(DIR);