compare-perl-version.pl

# Original version: https://github.com/gugod/App-perlbrew/blob/915e60b80d669c46aa77b78ccf01c3d37a3ec41d/lib/App/perlbrew.pm#L604

sub comparable_perl_version {
    my ($self, $pv) = @_;
    my ($mc, $mi, $mp) = $pv =~ /^(?:(c?perl)-?)?(\d)\.(\d+).(\d+)|^(?:(c?perl)-?)?-?blead$/
        ? ($1 && $1 eq 'cperl' ? -1 : 1) * sprintf('%02d%02d%02d%s', $2 + ($1 && $1 eq 'cperl' ? 6 : 0), $3, $4, $5 || '')
        : (0,0,0);
    return $mc . $mi . $mp;
}