summaryrefslogtreecommitdiff
path: root/infrastructure/msvc/fake-config.sub.pl
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;
}