The R Project SVN R

Rev

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

Rev 52087 Rev 52154
Line 32... Line 32...
32 
use Text::Wrap;
 32 
use Text::Wrap;
33 
 
 33 
 
34 
## Don't buffer output.
 34 
## Don't buffer output.
35 
$| = 1;
 35 
$| = 1;
36 
 
 36 
 
37 
my $revision = ' $Rev: 52087 $ ';
 37 
my $revision = ' $Rev: 52154 $ ';
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|.*/||;