control.pm (e50a3cc3) control.pm (01a01bd6)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 483 unchanged lines hidden (view full) ---

492 $installer::logger::Global->printf("Ship drive defined: %s\n", $shipdrive);
493
494 if ( -d $shipdrive ) # SHIPDRIVE must be a directory
495 {
496 $installer::logger::Global->print("Ship drive exists\n");
497
498 # try to write into $shipdrive
499
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 483 unchanged lines hidden (view full) ---

492 $installer::logger::Global->printf("Ship drive defined: %s\n", $shipdrive);
493
494 if ( -d $shipdrive ) # SHIPDRIVE must be a directory
495 {
496 $installer::logger::Global->print("Ship drive exists\n");
497
498 # try to write into $shipdrive
499
500 my $directory = $installer::globals::product . "_" . $installer::globals::compiler . "_" . $installer::globals::buildid . "_" . $installer::globals::languageproducts[0] . "_test_$$";
500 my $directory = $installer::globals::product . "_" . $installer::globals::compiler . "_" . $installer::globals::buildid . "_" . $installer::globals::languageproduct . "_test_$$";
501 $directory =~ s/\,/\_/g; # for the list of languages
502 $directory =~ s/\-/\_/g; # for en-US, pt-BR, ...
503 $directory = $shipdrive . $installer::globals::separator . $directory;
504
505 $installer::logger::Global->printf("Try to create directory: %s\n", $directory);
506
507 # saving this directory for later removal
508 $installer::globals::shiptestdirectory = $directory;

--- 245 unchanged lines hidden --- 		501 $directory =~ s/\,/\_/g; # for the list of languages
502 $directory =~ s/\-/\_/g; # for en-US, pt-BR, ...
503 $directory = $shipdrive . $installer::globals::separator . $directory;
504
505 $installer::logger::Global->printf("Try to create directory: %s\n", $directory);
506
507 # saving this directory for later removal
508 $installer::globals::shiptestdirectory = $directory;

--- 245 unchanged lines hidden ---