};
my $insert_dot_every = sub {
- my ($version, $step) = @_;
+ my ($version, $step, $strip) = @_;
my $is_dev = $version =~ /_/;
my $pat = sprintf '.{1,%d}', $step || 1;
push @parts, $subversion =~ /($pat)/g;
- s/^0+([^0]|0\z)/$1/ for @parts;
+ if ($strip) {
+ s/^0+([^0]|0\z)/$1/ for @parts;
+ }
$version = join '.', @parts;
$version .= '_rc' if $is_dev;
$version_mismatch{$_} = $default_but_no_strip_1 for qw<
Crypt-RC4
+ FLV-AudioExtractor
File-Grep
MogileFS-Client-Async
MogileFS-Network
->;
-
-$version_mismatch{$_} = $default_but_no_strip_2 for qw<
- Net-IMAP-Simple
+ Test-Command-Simple
+ Unix-Getrusage
>;
$version_mismatch{$_} = sub { $insert_dot_every->($_[0], 1) } for qw<
>;
$version_mismatch{$_} = sub { $insert_dot_every->($_[0], 3) } for qw<
- POE-Component-IKC
+ Data-Diver
>;
$version_mismatch{$_} = $simple_cleanup for qw<
- Alien-SDL
CGI-SpeedyCGI
Class-ISA
- Data-Uniqid
- ExtUtils-Install
- File-Path
- Getopt-GUI-Long
+ CryptX
+ Data-HexDump
Gtk2-Notify
HTML-Table
I18N-LangTags
IO
IPC-System-Simple
Lab-Measurement
- Log-TraceMessages
- MusicBrainz-DiscID
- Net-IRC
Net-Ping
+ REST-Client
SDL
SOAP-WSDL
+ TAP-Parser-SourceHandler-pgTAP
TeX-Encode
Tie-Simple
Time-Piece
>;
$version_mismatch{$_} = $simple_and_correct_suffixes for qw<
- Gimp
XML-Grove
>;
=cut
-sub TIMESTAMP () { 1343034901 }
+sub TIMESTAMP () { 1367759701 }
=head1 SEE ALSO