加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
clean.pl 505 Bytes
一键复制 编辑 原始数据 按行查看 历史
#!/usr/bin/env perl
use Cwd qw(abs_path);
use File::Basename qw(dirname);
# include script functions
use vars qw(
$PREFIX
);
$PREFIX = abs_path(dirname($0));
require($PREFIX . "/bin/functions.pl");
my @command = ($MVN, 'clean');
info("running in $PREFIX:", @command);
my $exit = handle_errors(system(@command));
if ($exit != 0) {
exit ($exit >> 8);
}
chdir($PREFIX . "/opennms-full-assembly");
info("running in $PREFIX/opennms-full-assembly:", @command);
handle_errors_and_exit(system(@command));
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化