Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/mumble-voip/mumble.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThorvald Natvig <slicer@users.sourceforge.net>2009-10-20 15:23:54 +0400
committerThorvald Natvig <slicer@users.sourceforge.net>2009-10-20 15:23:54 +0400
commite6037df79b2a279d5fe8f0706b6befdf32c631bf (patch)
treeb7cafcb4e0d752866c50fb76d8cbab3c802c1e9c /scripts/release.pl
parent488f252d3ff3acaa4f5223d4b965b5cc734ac003 (diff)
Update release script for multiple celt versions
Diffstat (limited to 'scripts/release.pl')
-rw-r--r--scripts/release.pl24
1 files changed, 19 insertions, 5 deletions
diff --git a/scripts/release.pl b/scripts/release.pl
index a4833a3bb..b68d700e9 100644
--- a/scripts/release.pl
+++ b/scripts/release.pl
@@ -60,13 +60,21 @@ while (my $pro = shift @pro) {
my ($var,$value)=(lc $1,$2);
switch ($var) {
case "version" {
- if ($basedir !~ /mumble11x/) {
- croak "Versions don't match" if (defined($ver) && ($ver ne $value));
- $ver=$value;
+ if ($value !~ /\$\$/) {
+ if ($basedir !~ /mumble11x/) {
+ croak "Versions don't match" if (defined($ver) && ($ver ne $value));
+ $ver=$value;
+ }
}
}
case "vpath" {
- push @vpath,map { "$basedir$_/"} split(/\s/, $value);
+ if ($value eq '../$$SOURCEDIR/libcelt') {
+ my $vdir = $basedir;
+ $vdir =~ s/-build/-src/;
+ push @vpath, $vdir.'libcelt/';
+ } else {
+ push @vpath,map { "$basedir$_/"} split(/\s/, $value);
+ }
}
case "subdirs" {
push @pro,map { my ($b,$p) = ($_,$_); $p =~ s/^.+\///g; "$basedir$b/$p.pro" } split(/\s/, $value);
@@ -121,7 +129,13 @@ foreach my $resfile (@resources) {
close(F);
}
-foreach my $dir ('speex','speex/include/speex','speex/libspeex','man','celt','celt/libcelt') {
+my @fulldirs = ('speex','speex/include/speex','speex/libspeex','man');
+foreach my $cver ('0.6.1','0.6.2','0.6.3') {
+ push @fulldirs, "celt-$cver-src";
+ push @fulldirs, "celt-$cver-src/libcelt";
+}
+
+foreach my $dir (@fulldirs) {
opendir(D, $dir) or croak "Could not open $dir";
foreach my $f (grep(! /^\./,readdir(D))) {
next if ($f =~ /\~$/);