fritzkink
2023-12-25 d0e7e113635048a7c5d7abd80b5ac76c58408492
tools/perl-version-convert
@@ -129,12 +129,14 @@
      ?.??)   VER[1]=${V:0:1} && VER[2]=$((1${V:2:2} - 100)) ;;
      ??.?)   VER[1]=$((1${V:0:2} - 100)) && VER[2]=${V:3:1} ;;
      ????)   VER[1]=$((1${V:0:2} - 100)) && VER[2]=$((1${V:2:2} - 100)) ;;
      ??.??)   VER[1]=$((1${V:0:2} - 100)) && VER[2]=$((1${V:3:2} - 100)) ;;
      ???.?)   VER[1]=$((1${V:0:3} - 1000)) && VER[2]=$((1${V:4:1} - 10)) ;;
      ?.????)   unsupported_version C $VERSION ; return ;;
      ??.???)   unsupported_version C $VERSION ; return ;;
      ???.??)   unsupported_version C $VERSION ; return ;;
      ????.?)   unsupported_version C $VERSION ; return ;;
      ??????)   VER[1]=$((1${V:0:3} - 1000)) ; VER[2]=$((1${V:3:3} - 1000)) ;;
      ???.???)VER[1]=$((1${V:0:3} - 1000)) && VER[2]=$((1${V:4:3} - 1000)) ;;
      *)   unsupported_version C $VERSION ; return ;;
      esac
   fi