Commits

Anonymous committed f90d0e5

Add the tag-release script.

  • Participants
  • Parent commits 88c6ccc

Comments (0)

Files changed (3)

File abc-path/Games-ABC_Path-Solver/Changes

         - Add the input_from_v1_string class method to input from a version
         1 string, so there will be a way to input from something besides
         a file.
+        - Add the scripts/tag-release.pl file to tag a release in the
+        Subversion repository.
 
 0.0.3
         - Encapsulated scripts/abc-path-solve inside

File abc-path/Games-ABC_Path-Solver/MANIFEST

 README
 scripts/abc-path-solve
 scripts/bump-version-number.pl
+scripts/tag-release.pl
 t/00-load.t
 t/input-from-string.t
 t/layouts/brain-bashers.2010-12-21.abc-path

File abc-path/Games-ABC_Path-Solver/scripts/tag-release.pl

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