Commit | Line | Data |
---|---|---|
7b418de8 | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings FATAL => 'all'; | |
4 | use ExtUtils::MakeMaker (); | |
5 | ||
6 | my $version = shift | |
7 | or die "version required!"; | |
8 | ||
9 | my $bad = join '', | |
10 | map { | |
11 | my $file_version = MM->parse_version($_); | |
12 | ($file_version eq 'undef' || $file_version eq $version) ? '' | |
13 | : "Module $_ version $file_version doesn't match dist version $version!\n"; | |
14 | } @ARGV; | |
15 | ||
16 | die $bad if $bad; |