|
@ -77,18 +77,18 @@ check_versions(Config) -> |
|
|
"OTP Release"), |
|
|
"OTP Release"), |
|
|
case {OtpMaj, OtpMin} >= {MinMaj, MinMin} of |
|
|
case {OtpMaj, OtpMin} >= {MinMaj, MinMin} of |
|
|
true -> |
|
|
true -> |
|
|
?DEBUG("~s satisfies the requirement for vsn ~s~n", |
|
|
|
|
|
[erlang:system_info(otp_release), |
|
|
|
|
|
|
|
|
?DEBUG("~s satisfies the requirement for vsn ~s~n", |
|
|
|
|
|
[erlang:system_info(otp_release), |
|
|
MinOtpVsn]); |
|
|
MinOtpVsn]); |
|
|
false -> |
|
|
|
|
|
|
|
|
false -> |
|
|
?ABORT("OTP release ~s or later is required, you have: ~s~n", |
|
|
?ABORT("OTP release ~s or later is required, you have: ~s~n", |
|
|
[MinOtpVsn, |
|
|
[MinOtpVsn, |
|
|
erlang:system_info(otp_release)]) |
|
|
erlang:system_info(otp_release)]) |
|
|
end |
|
|
|
|
|
|
|
|
end |
|
|
end. |
|
|
end. |
|
|
|
|
|
|
|
|
version_tuple(OtpRelease, Type) -> |
|
|
version_tuple(OtpRelease, Type) -> |
|
|
case re:run(OtpRelease, "R(\\d+)B?-?(\\d+)?", [{capture, all, list}]) of |
|
|
|
|
|
|
|
|
case re:run(OtpRelease, "R(\\d+)B?-?(\\d+)?", [{capture, all, list}]) of |
|
|
{match, [_Full, Maj, Min]} -> |
|
|
{match, [_Full, Maj, Min]} -> |
|
|
{list_to_integer(Maj), list_to_integer(Min)}; |
|
|
{list_to_integer(Maj), list_to_integer(Min)}; |
|
|
{match, [_Full, Maj]} -> |
|
|
{match, [_Full, Maj]} -> |
|
|