|
Lines 169-174
Link Here
|
| 169 |
# remove underscores |
169 |
# remove underscores |
| 170 |
$filename =~ tr/_/-/; |
170 |
$filename =~ tr/_/-/; |
| 171 |
|
171 |
|
|
|
172 |
# Attempt to map alpha/beta/rc/pre suffixes into portage-compatible versions |
| 173 |
my %map = ( |
| 174 |
a => "alpha", alpha => "alpha", |
| 175 |
b => "beta", beta => "beta", |
| 176 |
rc => "rc", |
| 177 |
pre => "pre" |
| 178 |
); |
| 179 |
my $suffix = join '|', map quotemeta, keys %map; |
| 180 |
$filename =~ s/(?<=\d)($suffix)(\d+(?:\.\d+)*)/_$map{$1}$2/i; |
| 181 |
|
| 172 |
my $ebuild = File::Spec->catdir( $fulldir, "$filename.ebuild" ); |
182 |
my $ebuild = File::Spec->catdir( $fulldir, "$filename.ebuild" ); |
| 173 |
my $digest = File::Spec->catdir( $filesdir, "digest-$filename" ); |
183 |
my $digest = File::Spec->catdir( $filesdir, "digest-$filename" ); |
| 174 |
|
184 |
|
