Commits

Shlomi Fish committed 1faf594

tag-release tweak.

  • Participants
  • Parent commits 83e2d50
  • Tags Perl/Task-Sites-ShlomiFish/releases/0.0208

Comments (0)

Files changed (5)

File Perl/modules/Task-Sites-ShlomiFish/MANIFEST

 README
 lib/Task/Sites/ShlomiFish.pm
 t/00-load.t
-tag-release.pl
+scripts/tag-release.pl
 META.json

File Perl/modules/Task-Sites-ShlomiFish/META.yml

 provides:
   Task::Sites::ShlomiFish:
     file: lib/Task/Sites/ShlomiFish.pm
-    version: 0.0207
+    version: 0.0208
 requires:
   App::XML::DocBook::Builder: 0
   CGI: 0
   utf8: 0
   vars: 0
   warnings: 0
-version: 0.0207
+version: 0.0208

File Perl/modules/Task-Sites-ShlomiFish/lib/Task/Sites/ShlomiFish.pm

 
 =cut
 
-our $VERSION = '0.0207';
+our $VERSION = '0.0208';
 
 =head1 DESCRIPTION
 

File Perl/modules/Task-Sites-ShlomiFish/scripts/tag-release.pl

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

File Perl/modules/Task-Sites-ShlomiFish/tag-release.pl

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