Makefile.PL

   1 use strict;
   2 use warnings;
   3 use ExtUtils::MakeMaker;
   4 $ExtUtils::MakeMaker::VERSION =~ s/_//g;
   5 my @sign = (MM->can("signature_target") ? (SIGN => 1) : ());
   6 my $version_diff = 0; # we'll have to die if this becomes true
   7 $::version_from = 'lib/CPAN/Testers/ParseReport.pm';
   8 my $mmgenereatedversionfrom = MM->parse_version($::version_from);
   9 if ($ARGV[0] && $ARGV[0] eq "--setversion") {
  10     die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008;
  11     warn "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nYou should get a new one\n"
  12         if $ExtUtils::MakeMaker::VERSION < 6.4502;
  13     eval {  require $::version_from; }; die $@ if $@;
  14     my $makefile = "Makefile";
  15     unless (-f $makefile) {
  16         $makefile = "Makefile.old";
  17     }
  18     unless (-f $makefile) {
  19         die "no Makefile and no Makefile.old found";
  20     }
  21     my $dirty = ! system "git status -a > /dev/null";
  22     if ($dirty){
  23         system "git status -a";
  24         die "Not everything checked in?";
  25     }
  26     open my $fh, "make -f $makefile the-release-name|" or die "Could not fork: $!";
  27     local $/;
  28     my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m;
  29     close $fh or die "Could not close: $!";
  30     my ($namespace) = $::version_from;
  31     $namespace =~ s|^lib/(.+)\.pm$|$1|;
  32     $namespace =~ s|/|::|g;
  33     eval qq{ if (\$$namespace\::VERSION != \$have_version) {
  34         warn "Not equal: CPAN::Testers::ParseReport::VERSION[\$$namespace\::VERSION] Makefile version[\$have_version]";
  35         \$version_diff = 1;
  36     }};
  37     eval qq{ if (\$$namespace\::VERSION != \$mmgenereatedversionfrom) {
  38         warn "Not equal: CPAN::Testers::ParseReport::VERSION[\$$namespace\::VERSION] MM generated version[\$mmgenereatedversionfrom]";
  39         \$version_diff = 1;
  40     }};
  41 }
  42
  43 my %indirect_dependencies =
  44     (
  45      'Class::ISA' => 0,
  46      'DateTime'   => 0,
  47     );
  48 my %interesting_modules;
  49 for my $m (qw(
  50     CPAN::Meta::Converter
  51     CPAN::Meta::YAML
  52     File::Spec
  53     JSON::PP
  54     Parse::CPAN::Meta
  55     version
  56     )){
  57     eval "require $m";
  58     if (!$@) {
  59         $interesting_modules{$m} = $m->VERSION;
  60     }
  61 }
  62
  63 my $prereq_pm =
  64     {
  65      'Config::Perl::V'             => 0,
  66      'DateTime::Format::Strptime'  => 0,
  67      'File::Path'                  => 1.08,
  68      'Getopt::Long'                => 0,
  69      'HTML::Entities'              => 0,
  70      'Hash::Util'                  => 0,
  71      'IO::Prompt'                  => 0,
  72      'LWP::UserAgent'              => 0,
  73      'List::Util'                  => 0,
  74      'MIME::QuotedPrint'           => 3.07,
  75      'Pod::Usage'                  => 1.33,
  76      'Statistics::Regression'      => 0,
  77      'Test::More'                  => 0,
  78      'Test::Pod'                   => 0,
  79      'Time::Local'                 => 1.11,
  80      'XML::LibXML'                 => 0,
  81      'XML::LibXML::XPathContext'   => 0,
  82      'YAML::Syck'                  => 0,
  83     };
  84 # intentionally avoiding any size comparisons, trying to catch
  85 # interesting cases that happen during WriteMakefile, like
  86 # http://www.cpantesters.org/cpan/report/e1942da8-5fcc-11e0-994f-224f8e2a057c
  87 while (my($k,$v) = each %interesting_modules) {
  88     $prereq_pm->{$k} ||= $v;
  89 }
  90 while (my($k,$v) = each %indirect_dependencies) {
  91     $prereq_pm->{$k} ||= $v;
  92 }
  93
  94 eval { WriteMakefile
  95     (
  96      'NAME' => 'CPAN::Testers::ParseReport',
  97      'VERSION_FROM' => $::version_from,
  98      'PREREQ_PM' => $prereq_pm,
  99      'INSTALLDIRS' => 'site',
 100      'EXE_FILES' => [
 101                      'bin/ctgetreports',
 102                     ],
 103      LICENSE => "perl",
 104      ABSTRACT => "parse reports to www.cpantesters.org from various sources",
 105      'PL_FILES' => {},
 106      dist => {
 107               DIST_DEFAULT => join(" ", # note: order matters!
 108                                    "verify-changes-date",
 109                                    "Makefile",
 110                                    "META.yml",
 111                                    "setversion",
 112                                    "all",
 113                                    "tardist",
 114                                   ),
 115               COMPRESS => 'bzip2 -9f',
 116               SUFFIX => ".bz2",
 117              },
 118      ($ExtUtils::MakeMaker::VERSION >= 6.4502 ?
 119       (META_ADD => {
 120                     # write: git push git+ssh://repo.or.cz/srv/git/cpan-testers-parsereport.git master
 121                     repository => "git://repo.or.cz/cpan-testers-parsereport.git",
 122                     provides => { "CPAN::Testers::ParseReport" => { version => $mmgenereatedversionfrom, file => $::version_from }},
 123                    }) : ()),
 124      @sign,
 125     );
 126    };
 127 if (my $err = $@) {
 128     while (my($k,$v) = each %interesting_modules) {
 129         warn "Found $k version $v\n";
 130     }
 131     die $err;
 132 }
 133
 134 if ($version_diff){
 135   die "
 136 ==> I had to update some \$VERSIONs <==
 137 ==> Your Makefile has been rebuilt. <==
 138 ==> Please rerun the make command.  <==
 139 ";
 140 }
 141
 142 package MY;
 143 sub postamble {
 144   my @m;
 145   push @m, q{
 146 # the subdirs on MY OWN BOX are allowed here (only used for make dist!)
 147 OKDIRS=DIST|bin|blib|cover_db\
 148        |lib|t
 149
 150 Makefile: }.$::version_from.q{
 151
 152 META.yml: metafile
 153         $(CP) $(DISTVNAME)/META.yml  ./META.yml
 154
 155 setversion:
 156         $(PERL) Makefile.PL --setversion
 157
 158 verify-changes-date:
 159         @$(PERL) -ne 'BEGIN{my@t=(localtime)[5,4,3];$$t[0]+=1900;$$t[1]++;$$t=sprintf"%04d-%02d-%02d",@t}' \
 160                 -e '$$ok++,exit if /^$$t\s/; END{die "Alert: did not find <$$t> in Changes file" unless $$ok}' Changes
 161
 162 verify-no-subdir:
 163         @$(PERL) -e 'my$$s=join",",grep{!/^($(OKDIRS))\z/x&&-d($$_)}glob"*";' \
 164                 -e 'die"unexpected dir:$$s"if$$s'
 165
 166 the-release-name :
 167         $(NOECHO) $(ECHO) 'version ' $(VERSION)
 168         $(NOECHO) $(ECHO) 'release-name ' $(DISTVNAME).tar$(SUFFIX)
 169
 170 release :: disttest
 171         git tag -m 'This is $(VERSION)' $(VERSION)
 172         ls -l $(DISTVNAME).tar$(SUFFIX)
 173         rm -rf $(DISTVNAME)
 174
 175 sign:
 176         cpansign -s
 177 };
 178   join "", @m;
 179 }
 180
 181 sub dist_test {
 182   return q{
 183 # if we depend on $(DISTVNAME).tar$(SUFFIX), then the rest of the
 184 # Makefile breaks our intent to NOT remake dist
 185 disttest :
 186         rm -rf $(DISTVNAME)
 187         tar xvjf $(DISTVNAME).tar$(SUFFIX)
 188         cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
 189         cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
 190         cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
 191
 192 distdir ::
 193         touch $(DISTVNAME)/SIGNATURE && $(CP) $(DISTVNAME)/SIGNATURE ./SIGNATURE
 194         $(CP) $(DISTVNAME)/META.yml  ./META.yml
 195         $(CP) $(DISTVNAME)/MANIFEST  ./MANIFEST
 196
 197 }
 198 }
 199
 200 sub distdir {
 201   my $self = shift;
 202   my $out = $self->SUPER::distdir;
 203   $out =~ s/distdir :/distdir ::/g;
 204   return $out;
 205 }
 206
 207 # dist_dir was the name in very old MakeMaker as of 5.005_04
 208 sub dist_dir {
 209   my $self = shift;
 210   my $out = $self->SUPER::dist_dir;
 211   $out =~ s/distdir :/distdir ::/g;
 212   return $out;
 213 }