The R Project SVN R

Rev

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

Rev 36821 Rev 37742
Line 194... Line 194...
194 
    /^(\S+) +- *((?:GNU|Free) +\S+) +(.*)/)
 194 
    /^(\S+) +- *((?:GNU|Free) +\S+) +(.*)/)
195 
{
 195 
{
196 
    $program = $1;
 196 
    $program = $1;
197 
    $package = $2;
 197 
    $package = $2;
198 
    $version = $3;
 198 
    $version = $3;
- 
 
 199 
    $version =~ s/^version //g;	# FL
199 
    $version =~ s/ .*//g;	# KH
 200 
    $version =~ s/ .*//g;	# KH
200 
}
 201 
}
201 
elsif (/^((?:GNU|Free) +)?(\S+) +(.*)/)
 202 
elsif (/^((?:GNU|Free) +)?(\S+) +(.*)/)
202 
{
 203 
{
203 
    $program = $2;
 204 
    $program = $2;
204 
    $package = $1 ? "$1$2" : $2;
 205 
    $package = $1 ? "$1$2" : $2;
205 
    $version = $3;
 206 
    $version = $3;
- 
 
 207 
    $version =~ s/^version //g;	# FL
206 
    $version =~ s/ .*//g;	# KH
 208 
    $version =~ s/ .*//g;	# KH
207 
}
 209 
}
208 
else
 210 
else
209 
{
 211 
{
210 
    $version = $_;
 212 
    $version = $_;