зеркало из https://github.com/mozilla/gecko-dev.git
make certain the destination path for the jar file exists. R=warren
dprice using anthonyd's account if there are problems email dprice@netscape.com
This commit is contained in:
Родитель
a29c8269e1
Коммит
0b60677281
|
@ -31,7 +31,7 @@ sub Cleanup
|
|||
sub JarIt
|
||||
{
|
||||
my ($jarfile, $args) = @_;
|
||||
system "zip $jarfile $args\n" || die "zip failed";
|
||||
system "zip -u $jarfile $args\n" || die "zip failed";
|
||||
my $cwd = cwd();
|
||||
print "+++ jarred $cwd => $jarfile\n";
|
||||
Cleanup();
|
||||
|
@ -141,7 +141,16 @@ while (<>) {
|
|||
chomp;
|
||||
start:
|
||||
if (/^([\w\d.\-\\\/]+)\:\s*$/) {
|
||||
my $jarfile = "$destPath/$1";
|
||||
my $jarfileDest = $1;
|
||||
my $jarfile = "$destPath/$jarfileDest";
|
||||
$jarfileDest =~ s/[^\/]+$//;
|
||||
if ( ! -e "$destPath/$jarfileDest" ) {
|
||||
my $currentDir = cwd();
|
||||
chdir($destPath);
|
||||
MkDirs($jarfileDest,".");
|
||||
chdir($currentDir);
|
||||
@cleanupList = ();
|
||||
}
|
||||
|
||||
my $args = "";
|
||||
while (<>) {
|
||||
|
|
Загрузка…
Ссылка в новой задаче