Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 740780c

Add the tag-release.pl script.

  • Participants
  • Parent commits cb81fce

Comments (0)

Files changed (2)

File perl/XML-Grammar-ProductsSyndication/MANIFEST

 t/02-xslt-output.t
 t/03-dload-imgs.t
 t/04-dont-dload-disable-imsg.t
+tag-release.pl
 t/boilerplate.t
 t/data/images/014036711X-l.jpg
 t/data/images/0451529308-l.jpg

File perl/XML-Grammar-ProductsSyndication/tag-release.pl

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