blob: fa9b6839e30ec006f96eb83bcac1cfcbb90dd47a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!perl
use strict;
use warnings;
use Cwd;
require "infrastructure\\BoxPlatform.pm.in";
my $wd = getcwd();
my $dummy = $BoxPlatform::product_version;
while(<>)
{
s|\@build_dir@|$wd|;
s|\@client_parcel_dir@|$wd/Debug|;
s|\@box_version@|$BoxPlatform::product_version|;
m|[^@](@[^@]+@)| and die "Unknown variable: $1";
print;
}
|