view release on metacpan or  search on metacpan

maint/release  view on Meta::CPAN

  my @lines = path('dist.ini')->lines;

  for(@lines)
  {
    if(/^version\s*=\s*(.*)\s*$/)
    {
      my $old = $1;
      my $new = Alien::Build->VERSION . '00';
      s/$old/$new/;
      print " version $old -> $new\n";
      if($old eq $new)
      {
        die "seems to be the same version";
      }
    }
    elsif(/^Alien::Base::Wrapper\s*=\s*(.*)\s*$/)
    {
      my $old = $1;
      my $new = Alien::Base::Wrapper->VERSION;
      print " abw     $old -> $new\n";
      s/$old/$new/;
    }
    elsif(/^Acme::Alien::DontPanic2\s*=\s*(.*)\s*$/)
    {
      my $old = $1;
      my $new = Acme::Alien::DontPanic2->VERSION;
      print " acme    $old   -> $new\n";
      s/$old/$new/;
    }
    elsif(/^alien = Acme::Alien::DontPanic2\@(\S+)\s*$/)
    {
      my $old = $1;
      my $new = Acme::Alien::DontPanic2->VERSION;
      print " acme    $old   -> $new\n";
      s/$old/$new/;
    }
  }

  path('dist.ini')->spew(@lines);
}

{
  my @lines = path('Changes')->lines;

  my $title = shift @lines;
  my $blank = shift @lines;
  my $next  = shift @lines;

  unshift @lines, $title, $blank, $next,
    "  - Require Acme::Alien::DontPanic2 @{[ Acme::Alien::DontPanic2->VERSION ]} (Alien::Build @{[ Alien::Build->VERSION ]})\n";

  path('Changes')->spew(@lines);
}

system 'git', 'diff';

print "does that look right? ";

my $input = <STDIN>;

die 'not right apparently' unless $input =~ /^y/i;

sub run
{
  print "+@_\n";
  system @_;
  die if $?;
}

run 'dzil', 'release';
run 'cpanm', "Acme-Ford-Prefect2-@{[ Alien::Build->VERSION . '00' ]}.tar.gz";