Changeset 3295 for lang/perl

Timestamp:

12/18/07 23:10:29 (5 years ago)

Author:

yappo

Message:

lang/perl/misc/pmsetup: tools/release.pl をやめて ShipIt? を使うようにした。あとincをMANIFESTに含める

Files:

• lang/perl/misc/pmsetup/yappo-pmsetup (modified) (2 diffs)

lang/perl/misc/pmsetup/yappo-pmsetup

@@ -242 +242 @@
   ^t/9\d_.*\.t
   ^t/perlcritic
-  ^inc/
   ^tools/
   \.svn/
   ^[^/]+\.yaml$
   ^[^/]+\.pl$
+  ^\.shipit$
 ---
 file: README
@@ -278 +278 @@
   [% config.author %]
 ---
-file: tools/release.pl
-chmod: 0744
-template: |
-  #!/usr/bin/perl
-  use warnings;
-  use strict;
-  use File::Path;
-  use LWP::Simple;
-  use ExtUtils::MakeMaker qw(prompt);
-
-  my $version = shift @ARGV or die "Usage: release.pl version";
-
-  my @pkg  = split /::/, '[% module %]';
-  my $dist = join "-", @pkg;
-  my $path = join("/", @pkg) . ".pm";
-
-  my $workdir  = "[% config.workdir %]";
-  my $checkout = "$dist-$version";
-
-  chdir $workdir;
-
-  if (-e $checkout) {
-      die "$workdir/$checkout exists. Remove it first";
-  }
-
-  system("svk co [% config.mirror_repos %]/$dist/trunk $checkout");
-  sleep(2);
-
-  if (-e $checkout) {
-      chdir $checkout;
-
-      rewrite_version("lib/$path", $version);
-
-      system("perl Makefile.PL --skip");
-      system("make manifest");
-
-      check_version("Changes", $version);
-
-      if (!system("make disttest")) {
-          system("svk ci -m 'packaging $version'");
-          system("svk cp -m 'tag release $version' [% config.mirror_repos %]/$dist/trunk [% config.mirror_repos %]/$dist/tags/release-$version");
-          system("make dist");
-          if (prompt("upload to CPAN?: [yN]", 'n') =~ /[yY]/) {
-              system("cpan-upload -verbose $dist-$version.tar.gz");
-          } else {
-              rename "$dist-$version.tar.gz", "../$dist-$version.tar.gz";
-          }
-      } else {
-          warn "make disttest failed. Don't upload";
-      }
-
-      chdir "..";
-      system("svk co --detach $checkout");
-  }
-
-  rmtree("$workdir/$checkout");
-
-  sub rewrite_version {
-      my($file, $version) = @_;
-
-      open my $fh, $file or die "$file: $!";
-      my $content = join '', <$fh>;
-      close $fh;
-
-      $content =~ s/^our \$VERSION = .*?;$/our \$VERSION = '$version';/m;
-
-      open my $out, ">", "lib/$path";
-      print $out $content;
-      close $out;
-  }
-
-  sub check_version {
-      my($file, $version) = @_;
-
-      open my $fh, $file or die "$file: $!";
-      while (<$fh>) {
-          /^\Q$version\E / and return 1;
-      }
-
-      die "$file doesn't contain log for $version";
-  }
+file: .shipit
+chmod: 0644
+template: |
+  steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+  svk.tagpattern = release-%v