The R Project SVN R

Rev

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

Rev 37487 Rev 37507
Line 36... Line 36...
36 
use Text::Wrap;
 36 
use Text::Wrap;
37 
 
 37 
 
38 
## Don't buffer output.
 38 
## Don't buffer output.
39 
$| = 1;
 39 
$| = 1;
40 
 
 40 
 
41 
my $revision = ' $Rev: 37487 $ ';
 41 
my $revision = ' $Rev: 37507 $ ';
42 
my $version;
 42 
my $version;
43 
my $name;
 43 
my $name;
44 
$revision =~ / ([\d\.]*) /;
 44 
$revision =~ / ([\d\.]*) /;
45 
$version = $1;
 45 
$version = $1;
46 
($name = $0) =~ s|.*/||;
 46 
($name = $0) =~ s|.*/||;
Line 251... Line 251...
251 
	my @out = R_runR($Rcmd, "--vanilla --slave",
 251 
	my @out = R_runR($Rcmd, "--vanilla --slave",
252 
			 "R_DEFAULT_PACKAGES=NULL");
 252 
			 "R_DEFAULT_PACKAGES=NULL");
253 
	@out = grep(!/^\>/, @out);
 253 
	@out = grep(!/^\>/, @out);
254 
	if(scalar(@out) > 0) {
 254 
	if(scalar(@out) > 0) {
255 
	    $log->message("excluding invalid files from '$dpath'");
 255 
	    $log->message("excluding invalid files from '$dpath'");
256 
	    $log->print(join("\n", @out));
 256 
	    $log->print(join("\n", @out) . "\n");
257 
	}
 257 
	}
258 
    }
 258 
    }
259 
    if($is_bundle) {
 259 
    if($is_bundle) {
260 
	foreach $ppkg (@bundlepkgs) {
 260 
	foreach $ppkg (@bundlepkgs) {
261 
	    &find_invalid_files("$pkgname/$ppkg");
 261 
	    &find_invalid_files("$pkgname/$ppkg");