Makefile.PL

   1 use strict;
   2 use warnings;
   3 use ExtUtils::MakeMaker;
   4
   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 if ($ARGV[0] && $ARGV[0] eq "--setversion") {
   9     eval {  require $version_from; };
  10     open my $fh, "make the-release-name|" or die;
  11     local $/;
  12     my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m;
  13     my ($namespace) = $version_from;
  14     $namespace =~ s|^lib/(.+)\.pm$|$1|;
  15     $namespace =~ s|/|::|g;
  16     eval qq{ if (\$$namespace\::VERSION != \$have_version) {
  17         warn "Not equal: CPAN::Testers::ParseReport::VERSION[\$$namespace\::VERSION] Makefile version[\$have_version]";
  18         \$version_diff = 1;
  19     }};
  20 }
  21
  22 WriteMakefile
  23     (
  24      NAME                => 'File::Rsync::Mirror::Recent',
  25      AUTHOR              => 'Andreas König <andreas.koenig.7os6VVqR@franz.ak.mind.de>',
  26      VERSION_FROM        => $version_from,
  27      PL_FILES            => {},
  28      PREREQ_PM =>
  29      {
  30       # 'Data::Serializer' => 0.46, # restricted to YAML without it
  31       'File::Rsync'      => 0,
  32       'Test::More'       => 0,
  33       'File::Basename'   => 0,
  34       'File::Path'       => 0,
  35       'File::Temp'       => 0,
  36       'Scalar::Util'     => 0,
  37       'Time::HiRes'      => 0,
  38       'YAML::Syck'       => 0,
  39      },
  40      EXE_FILES    => [qw(bin/rrr-aggregate)],
  41      dist => {
  42               DIST_DEFAULT => join(" ", # note: order matters!
  43                                    "Makefile",
  44                                    "META.yml",
  45                                    "setversion",
  46                                    "all",
  47                                    "tardist",
  48                                   ),
  49               COMPRESS => 'gzip -9',
  50              },
  51      # I took it from RT-CPAN ticket 30098:
  52      ($ExtUtils::MakeMaker::VERSION >= 6.3002 ?
  53       (EXTRA_META => <<EMETA,
  54 # write: git push git+ssh://repo.or.cz/srv/git/rersyncrecent.git master
  55 repository: "git://repo.or.cz/rersyncrecent.git"
  56 EMETA
  57       ) : ()),
  58      @sign,
  59      clean               => { FILES => 'File-Rsync-Mirror-Recent-*' },
  60     );
  61
  62 if ($version_diff){
  63   die "
  64 ==> I had to update some \$VERSIONs <==
  65 ==> Your Makefile has been rebuilt. <==
  66 ==> Please rerun the make command.  <==
  67 ";
  68 }
  69
  70 package MY;
  71 sub postamble {
  72   my @m;
  73   push @m, q{
  74 setversion:
  75         $(PERL) Makefile.PL --setversion
  76
  77 the-release-name :
  78         $(NOECHO) $(ECHO) 'version ' $(VERSION)
  79         $(NOECHO) $(ECHO) 'release-name ' $(DISTVNAME).tar$(SUFFIX)
  80
  81 release ::
  82         /usr/bin/perl -I../CPAN/GIT/trunk/release-lib -S release $(DISTVNAME).tar$(SUFFIX)
  83         rm -rf $(DISTVNAME)
  84
  85 sign:
  86         cpansign -s
  87 };
  88   join "", @m;
  89 }
  90
  91 sub dist_test {
  92   return q{
  93 # if we depend on $(DISTVNAME).tar$(SUFFIX), then the rest of the
  94 # Makefile breaks our intent to NOT remake dist
  95 disttest :
  96         rm -rf $(DISTVNAME)
  97         tar xvzf $(DISTVNAME).tar$(SUFFIX)
  98         cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
  99         cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
 100         cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
 101
 102 distdir ::
 103         touch $(DISTVNAME)/SIGNATURE && $(CP) $(DISTVNAME)/SIGNATURE ./SIGNATURE
 104         $(CP) $(DISTVNAME)/META.yml  ./META.yml
 105         $(CP) $(DISTVNAME)/MANIFEST  ./MANIFEST
 106
 107 }
 108 }
 109
 110 sub distdir {
 111   my $self = shift;
 112   my $out = $self->SUPER::distdir;
 113   $out =~ s/distdir :/distdir ::/g;
 114   return $out;
 115 }
 116
 117 # dist_dir was the name in very old MakeMaker as of 5.005_04
 118 sub dist_dir {
 119   my $self = shift;
 120   my $out = $self->SUPER::dist_dir;
 121   $out =~ s/distdir :/distdir ::/g;
 122   return $out;
 123 }