Blame Makefile.PL

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
}