The R Project SVN R

Rev

Rev 16255 | Rev 16272 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16255 Rev 16261
Line 32... Line 32...
32 
use Text::DelimMatch;
 32 
use Text::DelimMatch;
33 
 
 33 
 
34 
## don't buffer output
 34 
## don't buffer output
35 
$| = 1;
 35 
$| = 1;
36 
 
 36 
 
37 
my $revision = ' $Revision: 1.63 $ ';
 37 
my $revision = ' $Revision: 1.64 $ ';
38 
my $version;
 38 
my $version;
39 
my $name;
 39 
my $name;
40 
$revision =~ / ([\d\.]*) /;
 40 
$revision =~ / ([\d\.]*) /;
41 
$version = $1;
 41 
$version = $1;
42 
($name = $0) =~ s|.*/||;
 42 
($name = $0) =~ s|.*/||;
Line 69... Line 69...
69 
$opt_codoc = 0 if $opt_no_codoc;
 69 
$opt_codoc = 0 if $opt_no_codoc;
70 
$opt_install = 0 if $opt_no_install;
 70 
$opt_install = 0 if $opt_no_install;
71 
 
 71 
 
72 
sub env_path {
 72 
sub env_path {
73 
    my @args = @_;
 73 
    my @args = @_;
74 
    my $filesep = ":";
 74 
    my $envsep = ":";
75 
    $filesep = ";" if($WINDOWS);
 75 
    $envsep = ";" if($WINDOWS);
76 
    join($envsep, @args);
 76 
    join($envsep, @args);
77 
}
 77 
}
78 
 
 78 
 
79 
my $startdir = cwd();
 79 
my $startdir = cwd();
80 
$opt_outdir = $startdir unless $opt_outdir;
 80 
$opt_outdir = $startdir unless $opt_outdir;