The R Project SVN R

Rev

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

Rev 24563 Rev 26147
Line 3... Line 3...
3 
    my $major = $1;
 3 
    my $major = $1;
4 
    my $minor = $2;
 4 
    my $minor = $2;
5 
    my $patch = $3;
 5 
    my $patch = $3;
6 
    $patch = $patch."pat" if /Patched/;
 6 
    $patch = $patch."pat" if /Patched/;
7 
    $patch = $patch."dev" if /unstable/;
 7 
    $patch = $patch."dev" if /unstable/;
- 
 
 8 
    $patch = $patch."alpha" if /alpha/;
8 
    $patch = $patch."beta" if /Beta/;
 9 
    $patch = $patch."beta" if /beta/;
9 
    $minor = "0".$minor if $minor < 10;
 10 
    $minor = "0".$minor if $minor < 10;
10 
    $ans = "rw$major$minor$patch\n";
 11 
    $ans = "rw$major$minor$patch\n";
11 
}
 12 
}
12 
print $ans;
 13 
print $ans;