Commits

Shlomi Fish committed 970a661

Moved away tag-release.pl so it won't be installed.

It got installed in the file system in the Mageia Linux package
and I don't want that.

Comments (0)

Files changed (3)

modules/App-XML-DocBook-Docmake/MANIFEST

 META.yml # Will be created by "make dist"
 README
 script/docmake
+script/tag-release.pl
 t/00-load.t
 t/01-use.t
-tag-release.pl
 t/boilerplate.t
 t/pod-coverage.t
 t/pod.t

modules/App-XML-DocBook-Docmake/script/tag-release.pl

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

modules/App-XML-DocBook-Docmake/tag-release.pl

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