src/tools/msvc/install.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

use strict;
use warnings;

use Install qw(Install);

my $target = shift || Usage();
Install($target);

sub Usage
{
    print "Usage: install.pl <targetdir>\n";
    exit(1);
}