Line
Link Here
|
0 |
-- a/dev-lang/perl/perl-5.40.0-r1.ebuild |
0 |
++ b/dev-lang/perl/perl-5.40.0-r1.ebuild |
Lines 109-120
Link Here
|
109 |
|
109 |
|
110 |
check_rebuild() { |
110 |
check_rebuild() { |
111 |
# Fresh install |
111 |
# Fresh install |
112 |
if [[ -z "${REPLACING_VERSIONS}" ]]; then |
112 |
if [[ -z ${REPLACING_VERSIONS} ]]; then |
113 |
return 0; |
113 |
return 0 |
114 |
# Major Upgrade |
114 |
fi |
115 |
# doesn't matter if there's multiple copies, it still needs a rebuild |
115 |
|
116 |
# if the string is anything other than "5.CURRENTMAJOR" |
116 |
local v |
117 |
elif [[ "${REPLACING_VERSIONS%.*}" != "${PV%.*}" ]]; then |
117 |
for v in ${REPLACING_VERSIONS}; do |
|
|
118 |
[[ ${v%.*} == "${PV%.*}" ]] && continue |
119 |
|
120 |
# Major Upgrade |
118 |
echo "" |
121 |
echo "" |
119 |
ewarn "UPDATE THE PERL MODULES:" |
122 |
ewarn "UPDATE THE PERL MODULES:" |
120 |
ewarn "After updating dev-lang/perl the installed Perl modules" |
123 |
ewarn "After updating dev-lang/perl the installed Perl modules" |
Lines 130-139
check_rebuild() {
Link Here
|
130 |
ewarn "You should then call perl-cleaner to clean up any old files and trigger any" |
133 |
ewarn "You should then call perl-cleaner to clean up any old files and trigger any" |
131 |
ewarn "remaining rebuilds portage may have missed." |
134 |
ewarn "remaining rebuilds portage may have missed." |
132 |
ewarn "Use: perl-cleaner --all" |
135 |
ewarn "Use: perl-cleaner --all" |
133 |
return 0; |
136 |
|
|
|
137 |
return 0 |
138 |
done |
134 |
|
139 |
|
135 |
# Reinstall w/ USE Change |
140 |
# Reinstall w/ USE Change |
136 |
elif |
141 |
if |
137 |
( use perl_features_ithreads && ( has_version '<dev-lang/perl-5.38.2-r3[-ithreads]' || has_version '>=dev-lang/perl-5.38.2-r3[-perl_features_ithreads]' ) ) || \ |
142 |
( use perl_features_ithreads && ( has_version '<dev-lang/perl-5.38.2-r3[-ithreads]' || has_version '>=dev-lang/perl-5.38.2-r3[-perl_features_ithreads]' ) ) || \ |
138 |
( ! use perl_features_ithreads && ( has_version '<dev-lang/perl-5.38.2-r3[ithreads]' || has_version '>=dev-lang/perl-5.38.2-r3[perl_features_ithreads]' ) ) || \ |
143 |
( ! use perl_features_ithreads && ( has_version '<dev-lang/perl-5.38.2-r3[ithreads]' || has_version '>=dev-lang/perl-5.38.2-r3[perl_features_ithreads]' ) ) || \ |
139 |
( use perl_features_quadmath && ( has_version '<dev-lang/perl-5.38.2-r3[-quadmath]' || has_version '>=dev-lang/perl-5.38.2-r3[-perl_features_quadmath]' ) ) || \ |
144 |
( use perl_features_quadmath && ( has_version '<dev-lang/perl-5.38.2-r3[-quadmath]' || has_version '>=dev-lang/perl-5.38.2-r3[-perl_features_quadmath]' ) ) || \ |