fix src tar args
use strict;
use warnings;
-use Digest::MD5 qw(md5);
+use Digest::MD5 qw(md5_hex);
use File::Path;
use File::Copy::Recursive qw(dircopy);
use Getopt::Long;
@@ -81,9 +81,9 @@ if( !$skipAssembly) {
if ($micro) {
#TODO: support update repo merge
print "\nCopying updates\n";
- unlink "$tmp_dir/updates" || warn "Unable to remove updates link: $!";
- rmtree "$tmp_dir/empty" || warn "Unable to remove empty dir: $!";
- dircopy("$base_repo_path/$base_release:/Update$micro/*", "$tmp_dir/updates") ||
+ "$tmp_dir/updates" || warn "Unable to remove updates link: $!";
+ "$tmp_dir/empty" || warn "Unable to remove empty dir: $!";
+ ("$base_repo_path/$base_release:/Update$micro/*", "$tmp_dir/updates") ||
die "Unable to copy update repo: $!";
}
