|
Revision 3484, 0.6 kB
(checked in by morris, 3 years ago)
|
Build wired server as universal binary
|
- Property svn:executable set to
*
- Property svn:keywords set to
Id Rev
|
| Line | |
|---|
| 1 |
|
|---|
| 2 |
|
|---|
| 3 |
use strict; |
|---|
| 4 |
|
|---|
| 5 |
die "$0: Must be run from Xcode" unless $ENV{"BUILT_PRODUCTS_DIR"}; |
|---|
| 6 |
|
|---|
| 7 |
my $REV = `svn info 2>&1 | grep "^Revision:"`; |
|---|
| 8 |
my $INFO = "$ENV{BUILT_PRODUCTS_DIR}/$ENV{WRAPPER_NAME}/Contents/Info.plist"; |
|---|
| 9 |
|
|---|
| 10 |
my $version = $REV; |
|---|
| 11 |
$version =~ s/^Revision: (\d+)\n/$1/; |
|---|
| 12 |
die "$0: No Subversion revision found" unless $version; |
|---|
| 13 |
my $prevversion = $version - 1; |
|---|
| 14 |
|
|---|
| 15 |
open(FH, "$INFO") or die "$0: $INFO: $!"; |
|---|
| 16 |
my $info = join("", <FH>); |
|---|
| 17 |
close(FH); |
|---|
| 18 |
|
|---|
| 19 |
$info =~ s/([\t ]+<key>CFBundleVersion<\/key>\n[\t ]+<string>).*?(<\/string>)/$1$version$2/; |
|---|
| 20 |
|
|---|
| 21 |
open(FH, ">$INFO") or die "$0: $INFO: $!"; |
|---|
| 22 |
print FH $info; |
|---|
| 23 |
close(FH); |
|---|
