Repository: lucy
Updated Branches:
  refs/heads/0.6 [created] b48f71e35

Update update_version script


Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/020aa632
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/020aa632
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/020aa632

Branch: refs/heads/0.6
Commit: 020aa63217c54ac43e4ef19409d1917e3b961ce1
Parents: f1c0f22
Author: Nick Wellnhofer <wellnho...@aevum.de>
Authored: Sat Sep 24 15:00:47 2016 +0200
Committer: Nick Wellnhofer <wellnho...@aevum.de>
Committed: Sat Sep 24 15:01:44 2016 +0200

----------------------------------------------------------------------
 devel/bin/update_version | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy/blob/020aa632/devel/bin/update_version
----------------------------------------------------------------------
diff --git a/devel/bin/update_version b/devel/bin/update_version
index 52dbb45..5adaadb 100755
--- a/devel/bin/update_version
+++ b/devel/bin/update_version
@@ -63,7 +63,7 @@ for my $path ('common/charmonizer.c', 
'common/charmonizer.main') {
         or die "no match";
     $buf =~ s/(lucy_major_version\[\]\s+=\s+)"[\d.]+"/$1"$x.$y"/
         or die "no match";
-    $buf =~ s/(cfish_lib_name\s+=\s+)"cfish-[\d.]+"/$1"cfish-$x.$y"/
+    $buf =~ s/(cfish_lib_name\s+=\s+)"clownfish-[\d.]+"/$1"clownfish-$x.$y"/
         or die "no match";
     write_file($path, $buf);
 }
@@ -84,6 +84,14 @@ if ( $z == 0 && $dev == 0 ) {
 }
 write_file( 'perl/lib/Lucy.pm', $buf );
 
+# Update Lucy/Test.pm.
+$buf = read_file('perl/lib/Lucy/Test.pm');
+$buf =~ s/(our \$VERSION\ +=\ +)'.+?'/$1'$x_yyyzzz_version'/g
+    or die "no match";
+$buf =~ s/(bootstrap\s+Lucy::Test\s+)'[\d\._]+'/$1'$x_y_z_d_version'/
+    or die "no match";
+write_file( 'perl/lib/Lucy/Test.pm', $buf );
+
 # Update Lucy.pod.
 $buf = read_file('perl/lib/Lucy.pod');
 $buf =~ s/(^=head1\s+VERSION\s+)([\d._]+)/$1$x_y_z_d_version/m
@@ -121,13 +129,15 @@ $buf = read_file('core/Lucy.cfp');
 $buf =~ s/("version":\s+)"v\d+\.\d+\.\d+"/$1"v$x_y_z_version"/
     or die "no match";
 if ( $z == 0 && $dev == 0 ) {
+    $buf =~ s/("major_version":\s+)"v\d+\.\d+\.\d+"/$1"v$x_y_z_version"/
+        or die "no match";
     $buf =~ s/("Clownfish":\s+)"v\d+\.\d+\.\d+"/$1"v$x_y_z_version"/
         or die "no match";
 }
 write_file( 'core/Lucy.cfp', $buf );
 
 # Update TestLucy.cfp
-$buf = read_file('core/TestLucy.cfp');
+$buf = read_file('test/TestLucy.cfp');
 $buf =~ s/("version":\s+)"v\d+\.\d+\.\d+"/$1"v$x_y_z_version"/
     or die "no match";
 if ( $z == 0 && $dev == 0 ) {
@@ -136,7 +146,7 @@ if ( $z == 0 && $dev == 0 ) {
 }
 $buf =~ s/("Lucy":\s+)"v\d+\.\d+\.\d+"/$1"v$x_y_z_version"/
     or die "no match";
-write_file( 'core/TestLucy.cfp', $buf );
+write_file( 'test/TestLucy.cfp', $buf );
 
 # Update all other Perl modules.
 find sub {

Reply via email to