Commits

Shlomi Fish committed b8a2c1a

Move away bump-version-number.

Comments (0)

Files changed (4)

perl/modules/XML-Grammar-Fiction/Changes

 Revision history for XML-Grammar-Fiction.
 
+0.10.0      Sun 13 Jan 08:32:43 IST 2013
     * Add more links to the XML::Grammar::Fiction's perldoc.
     * Convert from Mouse to Moo, MooX and "use MooX 'late'".
     * Add t/00-libxml-basic.t to diagnose the XML::LibXML version.

perl/modules/XML-Grammar-Fiction/MANIFEST

 Build.PL
-bump-version-number.pl
 Changes
 contrib/docbook-to-fiction-xml-txt.pl
 extradata/fiction-xml.rng
 rejects/proto-text-to-xml.t
 rejects/QnD.pm
 rejects/Screenplay_Parser_QnD.pm
+scripts/bump-version-number.pl
 scripts/run_agg_tests.t
 scripts/tag-release.pl
 t/00-libxml-basic.t

perl/modules/XML-Grammar-Fiction/bump-version-number.pl

-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use File::Find::Object;
-use IO::All;
-
-my $tree = File::Find::Object->new({}, 'lib/');
-
-my $version_n = shift(@ARGV);
-
-if (!defined($version_n))
-{
-    die "Specify version number as an argument! bump-version-number.pl '0.0.1'";
-}
-
-while (my $r = $tree->next()) {
-    if ($r =~ m{/\.svn\z})
-    {
-        $tree->prune();
-    }
-    elsif ($r =~ m{\.pm\z})
-    {
-        my @lines = io->file($r)->getlines();
-        foreach (@lines)
-        {
-            s#(\$VERSION = '|^Version )\d+\.\d+(?:\.\d+)?('|)#$1 . $version_n . $2#e;
-        }
-        io->file($r)->print(
-            @lines
-        );
-    }
-}
-

perl/modules/XML-Grammar-Fiction/scripts/bump-version-number.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use File::Find::Object;
+use IO::All;
+
+my $tree = File::Find::Object->new({}, 'lib/');
+
+my $version_n = shift(@ARGV);
+
+if (!defined($version_n))
+{
+    die "Specify version number as an argument! bump-version-number.pl '0.0.1'";
+}
+
+while (my $r = $tree->next()) {
+    if ($r =~ m{/\.svn\z})
+    {
+        $tree->prune();
+    }
+    elsif ($r =~ m{\.pm\z})
+    {
+        my @lines = io->file($r)->getlines();
+        foreach (@lines)
+        {
+            s#(\$VERSION = '|^Version )\d+\.\d+(?:\.\d+)?('|)#$1 . $version_n . $2#e;
+        }
+        io->file($r)->print(
+            @lines
+        );
+    }
+}
+