blob: 24f951a222d31cd728a81674c86e97de260546de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!perl
unless (@ARGV == 2)
{
die "Usage: $0 <parcel-name> <target-os>\n";
}
$basedir = $0;
$basedir =~ s|/.*||;
$basedir .= "/..";
-d $basedir or die "$basedir: $!";
chdir $basedir or die "$basedir: $!";
require "infrastructure/BoxPlatform.pm.in";
print BoxPlatform::parcel_dir(@ARGV) . "\n";
exit 0;
|