Commits

Shlomi Fish  committed d210dcd

Move the tag-release.pl script under scripts/.

  • Participants
  • Parent commits cba6533
  • Tags releases/2.79

Comments (0)

Files changed (4)

File config-inifiles/MANIFEST

-
 Build.PL
 Changes
+MANIFEST
+META.json
+META.yml
+Makefile.PL
+README
 inc/Test/Run/Builder.pm
 lib/Config/IniFiles.pm
-Makefile.PL
-MANIFEST
-META.yml
-README
+scripts/tag-release.pl
 t/00load.t
 t/01basic.t
 t/02weird.t
 t/30parameters-with-empty-values.t
 t/31comments_with_spaces.t
 t/32mswin-outputs-contain-crs.t
-tag-release.pl
 t/allowed-comment-chars.ini
 t/array.ini
 t/bad.ini
 t/case-sensitive-default.ini
 t/case-sensitive.ini
 t/cmt.ini
+t/en.ini
 t/end-of-line-comment.ini
-t/en.ini
 t/es.ini
 t/for-27-empty.ini
 t/lib/Config/IniFiles/Debug.pm
 t/pod.t
 t/test.ini
 t/trailing-comments.ini
-META.json

File config-inifiles/lib/Config/IniFiles.pm

 
 use vars qw($VERSION);
 
-$VERSION = '2.78';
+$VERSION = '2.79';
 
 require 5.004;
 use strict;

File config-inifiles/scripts/tag-release.pl

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

File config-inifiles/tag-release.pl

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