Changeset 396

Timestamp:

Aug 30, 2019, 1:31:33 PM (5 years ago)

Author:

g7moreau

Message:

• Error on version database

File:

• trunk/project-meta/project-meta (modified) (3 diffs)

trunk/project-meta/project-meta

@@ -8 +8 @@
 use strict;
 use warnings;
-use version; our $VERSION = version->declare('0.1.1');
+use version; our $VERSION = version->declare('0.1.2');
 
 use File::Copy qw(copy);    
@@ -117 +117 @@
       my $upgrade = 'upgrade_version_' . ($CFG_VERSION - 1) . '_to_' . $CFG_VERSION;
       &{$upgrade}($meta);
+      $initial_version = $CFG_VERSION;
       }
    elsif ($initial_version < $CFG_VERSION) {
@@ -122 +123 @@
       }
 
-   return wantarray ? ($meta, $version) : $meta;
+   return wantarray ? ($meta, $initial_version) : $meta;
    }