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);
10 if ($ARGV[0] eq "--setversion") {
11 die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008;
12 die "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nDo not make a release with it\n"
13 if $ExtUtils::MakeMaker::VERSION < 6.48;
14 local $ENV{LANG} = "C";
15 my $dirty = `git status --porcelain --untracked-files=no`;
16 die "Not everything checked in or out?\n====\n$dirty====\n" if $dirty;
18 my ($namespace) = $version_from;
19 $namespace =~ s|^lib/(.+)\.pm$|$1|;
20 $namespace =~ s|/|::|g;
21 eval qq{ require $namespace; }; die $@ if $@;
22 my $makefile = "Makefile";
23 unless (-f $makefile) {
24 $makefile = "Makefile.old";
26 unless (-f $makefile) {
27 die "no Makefile and no Makefile.old found";
29 open my $fh, "make -f $makefile the-release-name|" or die "Could not fork: $!";
31 my ($have_version) = <$fh> =~ /^version\s+([\d\._]+)/m;
32 close $fh or die "Could not close: $!";
33 eval qq{ if (\$$namespace\::VERSION != \$version) {
34 warn "Not equal: $namespace\\::VERSION[\$$namespace\::VERSION] MM generated version[\$version]";
37 } elsif ($ARGV[0] eq "--trial") {
38 die "FIXME: --trial does not seem to work";
51 "File::Rsync::Mirror::Recent" =>
54 file => $version_from,
57 for my $m (qw(Recentfile Recentfile::Done Recentfile::FakeBigFloat )) {
58 my $fullm = "File::Rsync::Mirror::$m";
61 $file = "lib/$file.pm";
62 my $v = MM->parse_version($file);
63 $provides->{$fullm} = {
69 my $preferzip = "bzip2"; # bzip2 | gzip
72 NAME => 'File::Rsync::Mirror::Recent',
74 AUTHOR => 'Andreas König <andreas.koenig.7os6VVqR@franz.ak.mind.de>',
78 # 'Data::Serializer' => 0.46, # restricted to YAML without it
80 'Data::Serializer' => 0,
81 'ExtUtils::MakeMaker' => 6.48,
82 'File::Basename' => 0,
83 'File::Find::Rule' => 0,
87 'File::Temp' => '0.21', # removes bogus test on parent directory
91 'List::MoreUtils' => 0,
92 'List::Pairwise' => 0,
93 'Pod::Usage' => '1.61', # 1.16 from perl-5.8.1 failed, 1.61 is
94 # the oldest working on CPAN now
103 grep { !/~/ } glob("bin/rrr bin/rrr-*")
106 DIST_DEFAULT => join(" ", # note: order matters!
107 "verify-changes-date",
108 "verify-changes-version",
114 "memo-howto-release",
116 $preferzip eq "bzip2" ?
117 (COMPRESS => 'bzip2 -9f',
119 (COMPRESS => 'gzip -9f',
123 # write: git push git+ssh://repo.or.cz/srv/git/rersyncrecent.git master
125 repository => "git://repo.or.cz/rersyncrecent.git",
127 provides => $provides,
129 MIN_PERL_VERSION => '5.006',
131 clean => { FILES => 'File-Rsync-Mirror-Recent-*' },
136 ==> I had to update some \$VERSIONs <==
137 ==> Your Makefile has been rebuilt. <==
138 ==> Please rerun the make command. <==
145 my $ret = $self->SUPER::distsignature_target(@_);
146 $ret =~ s|cpansign|\$(PERL) \`dirname \$(PERL)\`/cpansign|g;
152 Makefile: }.$version_from.q{
155 $(CP) $(DISTVNAME)/META.yml ./META.yml
158 $(PERL) Makefile.PL --setversion
161 $(NOECHO) $(ECHO) AGAINST_TAG=$(AGAINST_TAG)
162 $(PERL) dagolden-reversion-gist.pl $(AGAINST_TAG)
165 @$(PERL) -ne 'BEGIN{my@t=(localtime)[5,4,3];$$t[0]+=1900;$$t[1]++;$$t=sprintf"%04d-%02d-%02d",@t}' \
166 -e '$$ok++,exit if /^$$t\s/; END{die "Alert: did not find <$$t> in Changes file" unless $$ok}' Changes
168 verify-changes-version:
169 @$(PERL) -ne '$$ok++,exit if /\b$(VERSION)\b/; END{die "Alert: did not find <$(VERSION)> in Changes file" unless $$ok}' Changes
172 @$(PERL) -e 'my$$s=join",",grep{!/^($(OKDIRS))\z/x&&-d($$_)}glob"*";' \
173 -e 'die"unexpected dir:$$s"if$$s'
176 $(NOECHO) $(ECHO) 'version ' $(VERSION)
177 $(NOECHO) $(ECHO) 'release-name ' $(DISTVNAME).tar$(SUFFIX)
180 $(NOECHO) $(ECHO) 'after successful make dist and upload do not forget to'
181 $(NOECHO) $(ECHO) ' make tag'
182 $(NOECHO) $(ECHO) ' git push --tags'
183 $(NOECHO) $(ECHO) 'before writing Changes do not forget to'
184 $(NOECHO) $(ECHO) ' git --no-pager log --no-merges --pretty=format:" %x20%x20 - %s (%an)" | less'
187 git tag -m 'This is $(VERSION)' "$(VERSION)"
190 $(PERL) `dirname $(PERL)`/cpansign -s
193 $(PERL) bin/rrr-init --force t/testserver
194 $(PERL) bin/rrr-server t/testserver/RECENT-1h.yaml &
195 $(PERL) bin/rrr-init --force t/testserver
202 # if we depend on $(DISTVNAME).tar$(SUFFIX), then the rest of the
203 # Makefile breaks our intent to NOT remake dist
206 tar xvjf $(DISTVNAME).tar$(SUFFIX)
207 cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
208 cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
209 cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
212 touch $(DISTVNAME)/SIGNATURE && $(CP) $(DISTVNAME)/SIGNATURE ./SIGNATURE
213 $(CP) $(DISTVNAME)/META.yml ./META.yml
214 $(CP) $(DISTVNAME)/MANIFEST ./MANIFEST
221 my $out = $self->SUPER::distdir;
222 $out =~ s/distdir :/distdir ::/g;
226 # dist_dir was the name in very old MakeMaker as of 5.005_04
229 my $out = $self->SUPER::dist_dir;
230 $out =~ s/distdir :/distdir ::/g;