use strict; use warnings; use ExtUtils::MakeMaker; $ExtUtils::MakeMaker::VERSION =~ s/_//g; my @sign = (MM->can("signature_target") ? (SIGN => 1) : ()); my $version_diff = 0; # we'll have to die if this becomes true $::version_from = 'lib/CPAN/Testers/ParseReport.pm'; my $mmgenereatedversionfrom = MM->parse_version($::version_from); if ($ARGV[0] && $ARGV[0] eq "--setversion") { die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008; warn "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nYou should get a new one\n" if $ExtUtils::MakeMaker::VERSION < 6.4502; eval { require $::version_from; }; die $@ if $@; my $makefile = "Makefile"; unless (-f $makefile) { $makefile = "Makefile.old"; } unless (-f $makefile) { die "no Makefile and no Makefile.old found"; } my $dirty = ! system "git status -a > /dev/null"; if ($dirty){ system "git status -a"; die "Not everything checked in?"; } open my $fh, "make -f $makefile the-release-name|" or die "Could not fork: $!"; local $/; my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m; close $fh or die "Could not close: $!"; my ($namespace) = $::version_from; $namespace =~ s|^lib/(.+)\.pm$|$1|; $namespace =~ s|/|::|g; eval qq{ if (\$$namespace\::VERSION != \$have_version) { warn "Not equal: CPAN::Testers::ParseReport::VERSION[\$$namespace\::VERSION] Makefile version[\$have_version]"; \$version_diff = 1; }}; eval qq{ if (\$$namespace\::VERSION != \$mmgenereatedversionfrom) { warn "Not equal: CPAN::Testers::ParseReport::VERSION[\$$namespace\::VERSION] MM generated version[\$mmgenereatedversionfrom]"; \$version_diff = 1; }}; } WriteMakefile ( 'NAME' => 'CPAN::Testers::ParseReport', 'VERSION_FROM' => $::version_from, 'PREREQ_PM' => { 'Config::Perl::V' => 0, 'DateTime::Format::Strptime' => 0, 'DateTime::Format::DateParse' => 0, 'File::Path' => 0, 'Getopt::Long' => 0, 'HTML::Entities' => 0, 'IO::Prompt' => 0, 'LWP::UserAgent' => 0, 'List::Util' => 0, 'MIME::QuotedPrint' => 0, 'Net::NNTP' => 0, 'Pod::Usage' => 0, 'Statistics::Regression' => 0, 'Test::More' => 0, 'Test::Pod' => 0, 'Time::Local' => 0, 'XML::LibXML' => 0, 'XML::LibXML::XPathContext' => 0, 'YAML::Syck' => 0, }, 'INSTALLDIRS' => 'site', 'EXE_FILES' => [ 'bin/ctgetreports', ], LICENSE => "perl", ABSTRACT => "parse reports to www.cpantesters.org from various sources", 'PL_FILES' => {}, dist => { DIST_DEFAULT => join(" ", # note: order matters! "verify-changes-date", "Makefile", "META.yml", "setversion", "all", "tardist", ), COMPRESS => 'bzip2 -9f', SUFFIX => ".bz2", }, ($ExtUtils::MakeMaker::VERSION >= 6.4502 ? (META_ADD => { # write: git push git+ssh://repo.or.cz/srv/git/cpan-testers-parsereport.git master repository => "git://repo.or.cz/cpan-testers-parsereport.git", provides => { "CPAN::Testers::ParseReport" => { version => $mmgenereatedversionfrom, file => $::version_from }}, }) : ()), @sign, ); if ($version_diff){ die " ==> I had to update some \$VERSIONs <== ==> Your Makefile has been rebuilt. <== ==> Please rerun the make command. <== "; } package MY; sub postamble { my @m; push @m, q{ # the subdirs on MY OWN BOX are allowed here (only used for make dist!) OKDIRS=DIST|bin|blib|cover_db\ |lib|t Makefile: }.$::version_from.q{ META.yml: metafile $(CP) $(DISTVNAME)/META.yml ./META.yml setversion: $(PERL) Makefile.PL --setversion verify-changes-date: @$(PERL) -ne 'BEGIN{my@t=(localtime)[5,4,3];$$t[0]+=1900;$$t[1]++;$$t=sprintf"%04d-%02d-%02d",@t}' \ -e '$$ok++,exit if /^$$t\s/; END{die "Alert: did not find <$$t> in Changes file" unless $$ok}' Changes verify-no-subdir: @$(PERL) -e 'my$$s=join",",grep{!/^($(OKDIRS))\z/x&&-d($$_)}glob"*";' \ -e 'die"unexpected dir:$$s"if$$s' the-release-name : $(NOECHO) $(ECHO) 'version ' $(VERSION) $(NOECHO) $(ECHO) 'release-name ' $(DISTVNAME).tar$(SUFFIX) release :: disttest git tag -m 'This is $(VERSION)' $(VERSION) ls -l $(DISTVNAME).tar$(SUFFIX) rm -rf $(DISTVNAME) sign: cpansign -s }; join "", @m; } sub dist_test { return q{ # if we depend on $(DISTVNAME).tar$(SUFFIX), then the rest of the # Makefile breaks our intent to NOT remake dist disttest : rm -rf $(DISTVNAME) tar xvjf $(DISTVNAME).tar$(SUFFIX) cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL cd $(DISTVNAME) && $(MAKE) $(PASTHRU) cd $(DISTVNAME) && $(MAKE) test $(PASTHRU) distdir :: touch $(DISTVNAME)/SIGNATURE && $(CP) $(DISTVNAME)/SIGNATURE ./SIGNATURE $(CP) $(DISTVNAME)/META.yml ./META.yml $(CP) $(DISTVNAME)/MANIFEST ./MANIFEST } } sub distdir { my $self = shift; my $out = $self->SUPER::distdir; $out =~ s/distdir :/distdir ::/g; return $out; } # dist_dir was the name in very old MakeMaker as of 5.005_04 sub dist_dir { my $self = shift; my $out = $self->SUPER::dist_dir; $out =~ s/distdir :/distdir ::/g; return $out; }