casa / casa6 / 05ab4b46216

Commits

Fix branch sort

Tags

No tags

Modified

-48
-49
+print ("\n");
-50
-51
+sub get_last_branch_tag () {
-52
+    my $gitbranch = shift;
-53
+    my @versions;
-54
+    open( $tags, "git tag -l | grep $gitbranch | " );
-55
+    chomp( @tags = <$tags> );
-56
+    close( @tags );
-57
+    @versions = grep(/^$gitbranch-\d+$/, @tags);
--
+    #print(@versions,"\n");
--
+    my @sorted = sort(@versions);
-+
+    print(@versions,"\n");
-+
+    my @sorted =
-+
+        map { $_->[0] }
-+
+        sort { $a->[1] cmp $b->[1] }
-+
+        map { [$_, join '', map { sprintf "%8d", $_ } split /\-/, $_] }
-+
+        @versions;
-+
-65
+    return($sorted[$#sorted]);
-66
+}
-67
-68
+sub get_last_master_tag () {
-69
+    my $gitbranch = shift;
-70
+    my @versions;
-71
+    open( $tags, "git tag -l | " );
-72
+    chomp( @tags = <$tags> );
-73
+    close( @tags );
-74
+    @versions = grep(/^\d+\.\d+\.\d+\.\d+$/, @tags);