|
Packit |
b48d6e |
#!/usr/bin/perl -w -*- mode: cperl -*-
|
|
Packit |
b48d6e |
use strict;
|
|
Packit |
b48d6e |
use vars qw( $VERSION );
|
|
Packit |
b48d6e |
use ExtUtils::MakeMaker qw(:DEFAULT);
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
my $version_diff = 0; # we'll have to die if this becomes true
|
|
Packit |
b48d6e |
my $is_trial = 0;
|
|
Packit |
b48d6e |
my $version;
|
|
Packit |
b48d6e |
{
|
|
Packit |
b48d6e |
local $^W;
|
|
Packit |
b48d6e |
$ExtUtils::MakeMaker::VERSION = eval $ExtUtils::MakeMaker::VERSION;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
print "Require Devel::Symdump from the local tarball.\n";
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
BEGIN {
|
|
Packit |
b48d6e |
local @INC = @INC;
|
|
Packit |
b48d6e |
unshift @INC, './lib';
|
|
Packit |
b48d6e |
require Devel::Symdump;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
$version = $Devel::Symdump::VERSION;
|
|
Packit |
b48d6e |
if ($is_trial && $version !~ /_/) {
|
|
Packit |
b48d6e |
$version .= "-TRIAL";
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
{
|
|
Packit |
b48d6e |
my $version_set_manually = 1; # not by SVN
|
|
Packit |
b48d6e |
if ($ARGV[0] && $ARGV[0] eq "--setversion") {
|
|
Packit |
b48d6e |
die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008;
|
|
Packit |
b48d6e |
die "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nDo not make a release with it\n"
|
|
Packit |
b48d6e |
if $ExtUtils::MakeMaker::VERSION < 6.4502;
|
|
Packit |
b48d6e |
die "Your MakeMaker doesn't do the sign woodoo" unless
|
|
Packit |
b48d6e |
MM->can("signature_target");
|
|
Packit |
b48d6e |
shift @ARGV;
|
|
Packit |
b48d6e |
my $st;
|
|
Packit |
b48d6e |
local $ENV{LANG} = "C";
|
|
Packit |
b48d6e |
my $dirty = `git status --porcelain --untracked-files=no`;
|
|
Packit |
b48d6e |
die "Not everything checked in or out?\n====\n$dirty====\n" if $dirty;
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
if ($version_set_manually) {
|
|
Packit |
b48d6e |
# we must control that the VERSION in this .pm is the same as in the Makefile
|
|
Packit |
b48d6e |
open my $fh, "make the-release-name|" or die;
|
|
Packit |
b48d6e |
my $have_version;
|
|
Packit |
b48d6e |
while (<$fh>) {
|
|
Packit |
b48d6e |
next unless /^version\s+([\d\._]+(?:-TRIAL)?)/;
|
|
Packit |
b48d6e |
$have_version = $1;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
die "could not determine current version from Makefile" unless $have_version;
|
|
Packit |
b48d6e |
eval q{
|
|
Packit |
b48d6e |
no warnings "numeric";
|
|
Packit |
b48d6e |
my $dsv = $Devel::Symdump::VERSION;
|
|
Packit |
b48d6e |
if ($dsv != $have_version) {
|
|
Packit |
b48d6e |
warn "Not equal: D:S:VERSION[$dsv] Makefile version[$have_version]";
|
|
Packit |
b48d6e |
$version_diff = 1;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
};
|
|
Packit |
b48d6e |
die $@ if $@;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
exit unless $version_diff;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
my $prereq_pm = {
|
|
Packit |
b48d6e |
'Test::More' => 0,
|
|
Packit |
b48d6e |
};
|
|
Packit |
b48d6e |
my @interesting_modules =
|
|
Packit |
b48d6e |
(
|
|
Packit |
b48d6e |
'Compress::Zlib', # only for t/glob_to_local_typeglob.t
|
|
Packit |
b48d6e |
);
|
|
Packit |
b48d6e |
for my $interesting_module (@interesting_modules) {
|
|
Packit |
b48d6e |
my $have = eval "require $interesting_module; 1;";
|
|
Packit |
b48d6e |
if ($have) {
|
|
Packit |
b48d6e |
$prereq_pm->{$interesting_module} ||= 0;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
my @sign = (MM->can("signature_target") ? (SIGN => 1) : ());
|
|
Packit |
b48d6e |
WriteMakefile(
|
|
Packit |
b48d6e |
NAME => "Devel::Symdump",
|
|
Packit |
b48d6e |
DISTNAME => "Devel-Symdump",
|
|
Packit |
b48d6e |
VERSION => $version,
|
|
Packit |
b48d6e |
PREREQ_PM => $prereq_pm,
|
|
Packit |
b48d6e |
($ExtUtils::MakeMaker::VERSION >= 6.3002 ?
|
|
Packit |
b48d6e |
(LICENSE => "perl") : (),
|
|
Packit |
b48d6e |
),
|
|
Packit |
b48d6e |
($ExtUtils::MakeMaker::VERSION >= 6.48 ?
|
|
Packit |
b48d6e |
(MIN_PERL_VERSION => '5.004') : (),
|
|
Packit |
b48d6e |
),
|
|
Packit |
b48d6e |
clean => {
|
|
Packit |
b48d6e |
FILES => '*/*/*~',
|
|
Packit |
b48d6e |
},
|
|
Packit |
b48d6e |
@sign,
|
|
Packit |
b48d6e |
($] >= 5.005 ?
|
|
Packit |
b48d6e |
(
|
|
Packit |
b48d6e |
ABSTRACT_FROM => 'lib/Devel/Symdump.pm', # retrieve abstract from module
|
|
Packit |
b48d6e |
AUTHOR => 'Andreas Koenig <andreas.koenig.gmwojprw@franz.ak.mind.de>') : (),
|
|
Packit |
b48d6e |
),
|
|
Packit |
b48d6e |
dist => {
|
|
Packit |
b48d6e |
DIST_DEFAULT => join(" ", # note: order matters!
|
|
Packit |
b48d6e |
"verify-no-subdir",
|
|
Packit |
b48d6e |
"verify-changes-date",
|
|
Packit |
b48d6e |
"verify-changes-version",
|
|
Packit |
b48d6e |
"Makefile",
|
|
Packit |
b48d6e |
"setversion",
|
|
Packit |
b48d6e |
"README",
|
|
Packit |
b48d6e |
"all",
|
|
Packit |
b48d6e |
"tardist",
|
|
Packit |
b48d6e |
),
|
|
Packit |
b48d6e |
COMPRESS => 'gzip -9',
|
|
Packit |
b48d6e |
},
|
|
Packit |
b48d6e |
# I took it from RT-CPAN ticket 30098:
|
|
Packit |
b48d6e |
($ExtUtils::MakeMaker::VERSION >= 6.4502 ?
|
|
Packit |
b48d6e |
(META_ADD => {
|
|
Packit |
b48d6e |
resources => {
|
|
Packit |
b48d6e |
repository => "git://github.com/andk/devel-symdump.git",
|
|
Packit |
b48d6e |
},
|
|
Packit |
b48d6e |
keywords => ['symbol table inspection'],
|
|
Packit |
b48d6e |
}) : ()),
|
|
Packit |
b48d6e |
);
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
if ($version_diff){
|
|
Packit |
b48d6e |
die "
|
|
Packit |
b48d6e |
==> I had to update some \$VERSIONs <==
|
|
Packit |
b48d6e |
==> Your Makefile has been rebuilt. <==
|
|
Packit |
b48d6e |
==> Please rerun the make command. <==
|
|
Packit |
b48d6e |
";
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
package MY;
|
|
Packit |
b48d6e |
sub distsignature {
|
|
Packit |
b48d6e |
my($self) = shift;
|
|
Packit |
b48d6e |
my $ret = $self->SUPER::distsignature_target(@_);
|
|
Packit |
b48d6e |
$ret =~ s|cpansign|\`dirname \$(PERL)\`/cpansign|g;
|
|
Packit |
b48d6e |
return $ret;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
sub macro {
|
|
Packit |
b48d6e |
q{
|
|
Packit |
b48d6e |
LC_ALL_noexport=en_GB.utf8
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
YAML_MODULE=YAML::Syck
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
sub postamble {
|
|
Packit |
b48d6e |
q{
|
|
Packit |
b48d6e |
# the subdirs on MY OWN BOX are allowed here (only used for make dist!)
|
|
Packit |
b48d6e |
OKDIRS=benchmark|bin|blib|lib|scripts|t
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
verify-no-subdir:
|
|
Packit |
b48d6e |
@$(PERL) -e 'my$$s=join",",grep{!/^($(OKDIRS))\z/x&&-d($$_)}glob"*";' \
|
|
Packit |
b48d6e |
-e 'die"unexpected dir:$$s"if$$s'
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
verify-changes-date:
|
|
Packit |
b48d6e |
@$(PERL) -ne 'BEGIN{my@t=(localtime)[5,4,3];$$t[0]+=1900;$$t[1]++;$$t=sprintf"%04d-%02d-%02d",@t}' \
|
|
Packit |
b48d6e |
-e '$$ok++,exit if /^$$t\s/; END{die "Alert: did not find <$$t> in Changes file" unless $$ok}' Changes
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
verify-changes-version:
|
|
Packit |
b48d6e |
@$(PERL) -ne '$$ok++,exit if /\b$(VERSION)\b/; END{die "Alert: did not find <$(VERSION)> in Changes file" unless $$ok}' Changes
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
setversion:
|
|
Packit |
b48d6e |
$(PERL) Makefile.PL --setversion
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
README: lib/Devel/Symdump.pm Makefile
|
|
Packit |
b48d6e |
-test -r $@ && chmod +w $@
|
|
Packit |
b48d6e |
-$(PERL) -MPod::Text -e 'Pod::Text->new->parse_from_file(\*ARGV)' lib/Devel/Symdump.pm > $@
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
the-release-name :
|
|
Packit |
b48d6e |
$(NOECHO) $(ECHO) 'version ' $(VERSION)
|
|
Packit |
b48d6e |
$(NOECHO) $(ECHO) 'release-name ' $(DISTVNAME).tar$(SUFFIX)
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
release :: disttest
|
|
Packit |
b48d6e |
git tag -m 'This is $(VERSION)' "$(VERSION)"
|
|
Packit |
b48d6e |
ls -l $(DISTVNAME).tar$(SUFFIX)
|
|
Packit |
b48d6e |
rm -rf $(DISTVNAME)
|
|
Packit |
b48d6e |
$(NOECHO) $(ECHO) '#### Suggested next steps:'
|
|
Packit |
b48d6e |
$(NOECHO) $(ECHO) ' git push --tags origin master'
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
sign:
|
|
Packit |
b48d6e |
cpansign -s
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
howto-release:
|
|
Packit |
b48d6e |
@$(ECHO) manually set version in Symdump.pm, edit ChangeLog
|
|
Packit |
b48d6e |
@$(ECHO) make ci dist \&\& make release
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
sub dist_ci {
|
|
Packit |
b48d6e |
return qq{ci :
|
|
Packit |
b48d6e |
svn ci
|
|
Packit |
b48d6e |
};
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
sub dist_test {
|
|
Packit |
b48d6e |
return q{
|
|
Packit |
b48d6e |
# if we depend on $(DISTVNAME).tar$(SUFFIX), then the rest of the
|
|
Packit |
b48d6e |
# Makefile breaks our intent to NOT remake dist
|
|
Packit |
b48d6e |
disttest :
|
|
Packit |
b48d6e |
rm -rf $(DISTVNAME)
|
|
Packit |
b48d6e |
tar xvzf $(DISTVNAME).tar$(SUFFIX)
|
|
Packit |
b48d6e |
cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
|
|
Packit |
b48d6e |
cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
|
|
Packit |
b48d6e |
cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
distdir ::
|
|
Packit |
b48d6e |
touch $(DISTVNAME)/SIGNATURE && $(CP) $(DISTVNAME)/SIGNATURE ./SIGNATURE
|
|
Packit |
b48d6e |
$(CP) $(DISTVNAME)/META.yml ./META.yml
|
|
Packit |
b48d6e |
$(CP) $(DISTVNAME)/META.json ./META.json
|
|
Packit |
b48d6e |
$(CP) $(DISTVNAME)/MANIFEST ./MANIFEST
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
sub distdir {
|
|
Packit |
b48d6e |
my $self = shift;
|
|
Packit |
b48d6e |
my $out = $self->SUPER::distdir;
|
|
Packit |
b48d6e |
$out =~ s/distdir :/distdir ::/g;
|
|
Packit |
b48d6e |
return $out;
|
|
Packit |
b48d6e |
}
|
|
Packit |
b48d6e |
|
|
Packit |
b48d6e |
# dist_dir was the name in very old MakeMaker as of 5.005_04
|
|
Packit |
b48d6e |
sub dist_dir {
|
|
Packit |
b48d6e |
my $self = shift;
|
|
Packit |
b48d6e |
my $out = $self->SUPER::dist_dir;
|
|
Packit |
b48d6e |
$out =~ s/distdir :/distdir ::/g;
|
|
Packit |
b48d6e |
return $out;
|
|
Packit |
b48d6e |
}
|