Commits

Shlomi Fish committed 14e88e2

Add the new tag-release script.

  • Participants
  • Parent commits 732ba22

Comments (0)

Files changed (3)

File perl/modules/XML-Grammar-Fiction/MANIFEST

 rejects/QnD.pm
 rejects/Screenplay_Parser_QnD.pm
 scripts/run_agg_tests.t
+scripts/tag-release.pl
 t/00-load.t
-tag-release.pl
 t/app-to-html.t
 t/base/line-iterator-unit.t
 t/boilerplate.t

File perl/modules/XML-Grammar-Fiction/scripts/tag-release.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use IO::All;
+
+my ($version) =
+    (map { m{\$VERSION *= *'([^']+)'} ? ($1) : () }
+    io->file('lib/XML/Grammar/Fiction.pm')->getlines()
+    )
+    ;
+
+if (!defined ($version))
+{
+    die "Version is undefined!";
+}
+
+my @cmd = (
+    "hg", "tag", "-m",
+    "Tagging the XML-Grammar-Fiction release as $version",
+    "releases/XML-Grammar-Fiction/$version",
+);
+
+print join(" ", map { /\s/ ? qq{"$_"} : $_ } @cmd), "\n";
+exec(@cmd);
+

File perl/modules/XML-Grammar-Fiction/tag-release.pl

-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use IO::All;
-
-my ($version) =
-    (map { m{\$VERSION *= *'([^']+)'} ? ($1) : () }
-    io->file('lib/XML/Grammar/Fiction.pm')->getlines()
-    )
-    ;
-
-if (!defined ($version))
-{
-    die "Version is undefined!";
-}
-
-my $mini_repos_base = 'https://svn.berlios.de/svnroot/repos/web-cpan/XML-Grammar-Fiction';
-
-my @cmd = (
-    "svn", "copy", "-m",
-    "Tagging the XML-Grammar-Fiction release as $version",
-    "$mini_repos_base/trunk",
-    "$mini_repos_base/tags/releases/$version",
-);
-
-print join(" ", map { /\s/ ? qq{"$_"} : $_ } @cmd), "\n";
-exec(@cmd);
-