view release on metacpan or  search on metacpan

inc/MBVersion.pm  view on Meta::CPAN

1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
    }
    return 0;
}
 
sub _un_vstring {
    my $value = shift;
    # may be a v-string
    if ( length($value) >= 3 && $value !~ /[._]/ 
        && _is_non_alphanumeric($value)) {
        my $tvalue;
        if ( $] ge 5.008_001 ) {
            $tvalue = _find_magic_vstring($value);
            $value = $tvalue if length $tvalue;
        }
        elsif ( $] ge 5.006_000 ) {
            $tvalue = sprintf("v%vd",$value);
            if ( $tvalue =~ /^v\d+(\.\d+){2,}$/ ) {
                # must be a v-string
                $value = $tvalue;
            }
        }
    }
    return $value;
}

t/properties/release_status.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use lib 't/lib';
use MBTest;
use DistGen;
 
if ( $] lt 5.008001 ) { 
  plan skip_all => "dotted-version numbers are buggy before 5.8.1";
} else {
  plan 'no_plan';
}
 
# Ensure any Module::Build modules are loaded from correct directory
blib_load('Module::Build');
 
#--------------------------------------------------------------------------#
# Create test distribution