[p5sagit/Distar.git] / helpers / check-version

#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use ExtUtils::MakeMaker ();

my $version = shift
  or die "version required!";

my $bad = join '',
  map {
    my $file_version = MM->parse_version($_);
    ($file_version eq 'undef' || $file_version eq $version) ? ''
      : "Module $_ version $file_version doesn't match dist version $version!\n";
  } @ARGV;

die $bad if $bad;
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;