[r2469]: tools / trunk / tagrelease.pl Maximize Restore History

Download this file

tagrelease.pl    22 lines (15 with data), 384 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use warnings;
use strict;
# Config
my $repos_base = 'svn+ssh://svn.code.sf.net/p/mrbs/code/';
my $rel_ver = shift;
my $user = shift || 'jberanek';
my $tag = $rel_ver;
$tag =~ s/\./_/g;
$tag = 'mrbs-'.$tag;
(system('svn',
'copy',
"${repos_base}mrbs/trunk",
"${repos_base}/mrbs/tags/$tag") == 0) or
die "Failed to create tag in SVN\n";