helpers/check-version

   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;