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 my $version_from = 'lib/File/Rsync/Mirror/Recent.pm';
   8 my $version = 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     use lib "lib";
  14     eval {  require $version_from; }; die $@ if $@;
  15     my $makefile = "Makefile";
  16     unless (-f $makefile) {
  17         $makefile = "Makefile.old";
  18     }
  19     unless (-f $makefile) {
  20         die "no Makefile and no Makefile.old found";
  21     }
  22     open my $fh, "make -f $makefile the-release-name|" or die "Could not fork: $!";
  23     local $/;
  24     my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m;
  25     close $fh or die "Could not close: $!";
  26     my ($namespace) = $version_from;
  27     $namespace =~ s|^lib/(.+)\.pm$|$1|;
  28     $namespace =~ s|/|::|g;
  29     eval qq{ if (\$$namespace\::VERSION != \$version) {
  30         warn "Not equal: $namespace\\::VERSION[\$$namespace\::VERSION] MM generated version[\$version]";
  31         \$version_diff = 1;
  32     }};
  33 }
  34
  35 WriteMakefile
  36     (
  37      NAME                => 'File::Rsync::Mirror::Recent',
  38      VERSION             => $version,
  39      AUTHOR              => 'Andreas König <andreas.koenig.7os6VVqR@franz.ak.mind.de>',
  40      PL_FILES            => {},
  41      PREREQ_PM =>
  42      {
  43       # 'Data::Serializer' => 0.46, # restricted to YAML without it
  44       'accessors'        => 0,
  45       'Data::Float'      => 0,
  46       'File::Rsync'      => 0,
  47       'Test::More'       => 0,
  48       'File::Basename'   => 0,
  49       'File::Path'       => 0,
  50       'File::Temp'       => 0,
  51       'List::MoreUtils'  => 0,
  52       'List::Pairwise'   => 0,
  53       'Scalar::Util'     => 0,
  54       'Data::Serializer' => 0,
  55       'Time::HiRes'      => 0,
  56       'YAML::Syck'       => 0,
  57      },
  58      EXE_FILES    => [qw(bin/rrr-aggregate bin/rrr-news)],
  59      dist => {
  60               DIST_DEFAULT => join(" ", # note: order matters!
  61                                    "verify-changes-date",
  62                                    "Makefile",
  63                                    "META.yml",
  64                                    "setversion",
  65                                    "all",
  66                                    "tardist",
  67                                   ),
  68               COMPRESS => 'bzip2 -9f',
  69               SUFFIX => ".bz2",
  70              },
  71      ($ExtUtils::MakeMaker::VERSION >= 6.4502 ?
  72       (META_ADD => {
  73                     # write: git push git+ssh://repo.or.cz/srv/git/rersyncrecent.git master
  74                     repository => "git://repo.or.cz/rersyncrecent.git",
  75                     provides => {
  76                                  "File::Rsync::Mirror::Recent" =>
  77                                  {
  78                                   version => $version,
  79                                   file => $version_from,
  80                                  }
  81                                 },
  82                    }) : ()),
  83      @sign,
  84      clean               => { FILES => 'File-Rsync-Mirror-Recent-*' },
  85     );
  86
  87 if ($version_diff){
  88   die "
  89 ==> I had to update some \$VERSIONs <==
  90 ==> Your Makefile has been rebuilt. <==
  91 ==> Please rerun the make command.  <==
  92 ";
  93 }
  94
  95 package MY;
  96 sub postamble {
  97   my @m;
  98   push @m, q{
  99 Makefile: }.$version_from.q{
 100
 101 META.yml: metafile
 102         $(CP) $(DISTVNAME)/META.yml  ./META.yml
 103
 104 setversion:
 105         $(PERL) Makefile.PL --setversion
 106
 107 verify-changes-date:
 108         @$(PERL) -ne 'BEGIN{my@t=(localtime)[5,4,3];$$t[0]+=1900;$$t[1]++;$$t=sprintf"%04d-%02d-%02d",@t}' \
 109                 -e '$$ok++,exit if /^$$t\s/; END{die "Alert: did not find <$$t> in Changes file" unless $$ok}' Changes
 110
 111 verify-no-subdir:
 112         @$(PERL) -e 'my$$s=join",",grep{!/^($(OKDIRS))\z/x&&-d($$_)}glob"*";' \
 113                 -e 'die"unexpected dir:$$s"if$$s'
 114
 115 the-release-name :
 116         $(NOECHO) $(ECHO) 'version ' $(VERSION)
 117         $(NOECHO) $(ECHO) 'release-name ' $(DISTVNAME).tar$(SUFFIX)
 118
 119 tag ::
 120         git tag -m 'This is $(VERSION)' "$(VERSION)"
 121
 122 sign:
 123         cpansign -s
 124 };
 125   join "", @m;
 126 }
 127
 128 sub dist_test {
 129   return q{
 130 # if we depend on $(DISTVNAME).tar$(SUFFIX), then the rest of the
 131 # Makefile breaks our intent to NOT remake dist
 132 disttest :
 133         rm -rf $(DISTVNAME)
 134         tar xvjf $(DISTVNAME).tar$(SUFFIX)
 135         cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
 136         cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
 137         cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
 138
 139 distdir ::
 140         touch $(DISTVNAME)/SIGNATURE && $(CP) $(DISTVNAME)/SIGNATURE ./SIGNATURE
 141         $(CP) $(DISTVNAME)/META.yml  ./META.yml
 142         $(CP) $(DISTVNAME)/MANIFEST  ./MANIFEST
 143
 144 }
 145 }
 146
 147 sub distdir {
 148   my $self = shift;
 149   my $out = $self->SUPER::distdir;
 150   $out =~ s/distdir :/distdir ::/g;
 151   return $out;
 152 }
 153
 154 # dist_dir was the name in very old MakeMaker as of 5.005_04
 155 sub dist_dir {
 156   my $self = shift;
 157   my $out = $self->SUPER::dist_dir;
 158   $out =~ s/distdir :/distdir ::/g;
 159   return $out;
 160 }