blob: 6dc3cf5c27672fbdfeb252b138cb33417d1c2c8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
use strict;
use warnings;
use Cwd 'abs_path';
my $ROOT;
BEGIN { ($ROOT = abs_path $0) =~ s{/util/multi\.pl$}{} }
use lib $ROOT.'/lib';
use Multi::Core;
my $quiet = grep '-q', @ARGV;
Multi::Core::run $quiet;
|